Slanted circle


Autor/Urheber:
Jakob.scholbach in der Wikipedia auf Englisch
Shortlink:
https://dewiki.de/b/8535a
Quelle:
Wikimedia Commons
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:
CC BY-SA 3.0
Credit:
Übertragen aus en.wikipedia nach Commons durch Common Good mithilfe des CommonsHelper.
Bild teilen:
Facebook   Twitter   Pinterest   WhatsApp   Telegram   E-Mail
Weitere Informationen zur Lizenz des Bildes finden Sie hier. Letzte Aktualisierung: Thu, 27 Apr 2023 17:14:30 GMT


Relevante Artikel

Algebraische Geometrie

Die 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