Slanted_circle.png (322 × 330像素,文件大小:6 KB,MIME类型:image/png


摘要

描述
English: Mathematica commands:
In[132]:=
<<Graphics`Shapes`
In[133]:=
Solve[{x^2+y^2+z^2\[Equal]1,x+y+z\[Equal]0},{x,y}]
Out[133]=
\!\({{x \[Rule] 1\/2\ \((\(-z\) - \@\(2 - 3\ z\^2\))\), 
      y \[Rule] 1\/2\ \((\(-z\) + \@\(2 - 3\ z\^2\))\)}, {x \[Rule] 
        1\/2\ \((\(-z\) + \@\(2 - 3\ z\^2\))\), 
      y \[Rule] 1\/2\ \((\(-z\) - \@\(2 - 3\ z\^2\))\)}}\)
In[134]:=
\!\(\(p1[z_] := {1\/2\ \((\(-z\) - \@\(2 - 3\ z\^2\))\), 
        1\/2\ \((\(-z\) + \@\(2 - 3\ z\^2\))\), z};\)\[IndentingNewLine]
  \(p2[z_] := {1\/2\ \((\(-z\) + \@\(2 - 3\ z\^2\))\), 
        1\/2\ \((\(-z\) - \@\(2 - 3\ z\^2\))\), z};\)\[IndentingNewLine]
  \)
In[136]:=
\!\(\(Show[{\[IndentingNewLine]WireFrame[
          Graphics3D[
            Sphere[1, 20, 
              20]]], \[IndentingNewLine]Graphics3D[{\[IndentingNewLine]\
RGBColor[1, 0, 0], \[IndentingNewLine]Thickness[
              0.009], \[IndentingNewLine]Line[
              Table[p1[z], {z, \(-\@\(2\/3\)\), \@\(2\/3\), 
                  0.01}]], \[IndentingNewLine]Line[
              Table[p2[z], {z, \(-\@\(2\/3\)\), \@\(2\/3\), 
                  0.01}]], \[IndentingNewLine]Text[
              StyleForm["\<x+y+z==0\>", Section, 
                FontColor \[Rule] RGBColor[1, 0, 0]], {1, 0.2, 1}, {\(-1\), 
                0}]}]\[IndentingNewLine]}, Boxed \[Rule] False, 
      Axes \[Rule] True, ViewPoint -> {8.043, \ \(-2.956\), \ 1.784}, 
      Boxed \[Rule] True, 
      AxesEdge \[Rule] {{1, \(-1\)}, {1, \(-1\)}, {1, 1}}, 
      AxesLabel \[Rule] {StyleForm[x, Section], StyleForm[y, Section], 
          StyleForm[z, Section]}, 
      Ticks \[Rule] {{\(-1\), \(- .5\), 0,  .5, 1}, {\(-1\), \(- .5\), 
            0,  .5, 1}, {\(-1\), \(- .5\), 0,  .5, 1}}, 
      PlotLabel \[Rule] 
        StyleForm[TraditionalForm[x^2 + y^2 + z^2 \[Equal] 1]\ , Section, 
          FontColor -> RGBColor[0, 0, 0]]]\ ;\)\)
日期 2007年5月9日 (原始上传日期)
来源 Transferred from en.wikipedia to Commons by Common Good using CommonsHelper.
作者 英语维基百科Jakob.scholbach
此math图片可使用矢量图形重新创建为SVG文件。这具有很多好处;更多信息请参见共享资源:待清理媒体。如果存在此图片的SVG格式,请将其上传,然后将此模板替换为{{vector version available|新图片名称}}


建议您将SVG命名为“Slanted circle.svg”,这样在使用Vector version available(或Vva)模板时就不需要填写新图片名称参数。

许可协议

Jakob.scholbach at the English Wikipedia,本作品著作权人,特此采用以下许可协议发表本作品:
GNU head 已授权您依据自由软件基金会发行的无固定段落及封面封底文字(Invariant Sections, Front-Cover Texts, and Back-Cover Texts)的GNU自由文件许可协议1.2版或任意后续版本的条款,复制、传播和/或修改本文件。该协议的副本请见“GNU Free Documentation License”。
w:zh:知识共享
署名 相同方式共享
本文件采用知识共享署名-相同方式共享 3.0 未本地化版本许可协议授权。
署名: Jakob.scholbach at the English Wikipedia
您可以自由地:
  • 共享 – 复制、发行并传播本作品
  • 修改 – 改编作品
惟须遵守下列条件:
  • 署名 – 您必须对作品进行署名,提供授权条款的链接,并说明是否对原始内容进行了更改。您可以用任何合理的方式来署名,但不得以任何方式表明许可人认可您或您的使用。
  • 相同方式共享 – 如果您再混合、转换或者基于本作品进行创作,您必须以与原先许可协议相同或相兼容的许可协议分发您贡献的作品。
本许可协议标签作为GFDL许可协议更新的组成部分被添加至本文件。

原始上传日志

The original description page was here. All following user names refer to en.wikipedia.
  • 2007-05-09 04:42 Jakob.scholbach 322×330× (6065 bytes) <tt><nowiki> In[132]:= <<Graphics`Shapes` In[133]:= Solve[{x^2+y^2+z^2\[Equal]1,x+y+z\[Equal]0},{x,y}] Out[133]= \!\({{x \[Rule] 1\/2\ \((\(-z\) - \@\(2 - 3\ z\^2\))\), y \[Rule] 1\/2\ \((\(-z\) + \@\(2 - 3\ z\^2\))\)}, {x \[Rule] 1\/2\ \(

说明

添加一行文字以描述该文件所表现的内容

此文件中描述的项目

描绘内容

文件历史

点击某个日期/时间查看对应时刻的文件。

日期/时间缩⁠略⁠图大小用户备注
当前2010年1月12日 (二) 19:582010年1月12日 (二) 19:58版本的缩略图322 × 330(6 KB)File Upload Bot (Magnus Manske) {{BotMoveToCommons|en.wikipedia|year={{subst:CURRENTYEAR}}|month={{subst:CURRENTMONTHNAME}}|day={{subst:CURRENTDAY}}}} {{Information |Description={{en|Mathematica commands: <pre> In[132]:= <<Graphics`Shapes` In[133]:= Solve[{x^2+y^2+z^2\[Equal]1,x+y+z\[

以下页面使用本文件:

全域文件用途

以下其他wiki使用此文件: