Slanted circle
(c) Jakob.scholbach at the English Wikipedia, CC BY-SA 3.0
Autor/Urheber:
Shortlink:
Quelle:
Größe:
322 x 330 Pixel (6065 Bytes)
Beschreibung:
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]]]\ ;\)\)
Lizenz:
Credit:
Relevante Artikel
Algebraische GeometrieDie algebraische Geometrie ist ein Teilgebiet der Mathematik, das die abstrakte Algebra, insbesondere das Studium von kommutativen Ringen, mit der Geometrie verknüpft. Sie lässt sich kurz als das Studium der Nullstellengebilde algebraischer Gleichungen beschreiben. .. weiterlesen