File:Slanted circle.png

Summary

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]]]\ ;\)\)

Licensing

Lua error in package.lua at line 80: module 'strict' not found.