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
本圖片是以PNG、GIF或JPEG格式上傳。然而,其中包含的資料或訊息,應該重新建立成可縮放向量圖形SVG)檔案,以更有效率或更準確的方式儲存。如有可能,請上傳本圖片的SVG格式版本。在上傳之後,請修改維基各姊妹計畫中所有使用舊版圖片的條目(列在圖像連結章節中),替換為新版圖片,並在舊圖片的描述頁中加入{{Vector version available|新圖片名稱.svg}}模板,同時移除本模板。

授權條款

Jakob.scholbach at the English Wikipedia,此作品的版權所有人,決定用以下授權條款發佈本作品:
GNU head 已授權您依據自由軟體基金會發行的無固定段落、封面文字和封底文字GNU自由文件授權條款1.2版或任意後續版本,對本檔進行複製、傳播和/或修改。該協議的副本列在GNU自由文件授權條款中。
w:zh:創用CC
姓名標示 相同方式分享
此檔案採用創用CC 姓名標示-相同方式分享 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:58於 2010年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 使用了這個檔案: