Return to Answer

added 4 characters in body

Source Link

edited Aug 7, 2021 at 23:18

42.3k
3
37
106

aa = Graphics3D[{Opacity[0.5], Sphere[]}]; 
bb = ParametricPlot3D[{Cos[\[Theta]], Sin[\[Theta]], 0}, {\[Theta], 0, 2 \[Pi]},
  PlotStyle -> Thickness[0.015]];
cc =  ParametricPlot3D[{0, Cos[\[Phi]], Sin[\[Phi]]}, 
      {\[Phi], 0, 2 \[Pi]},
   PlotStyle -> Thickness[0.015]];
dd =  ParametricPlot3D[{Cos[\[Phi]], 0, Sin[\[Phi]]}, {\[Phi], 0, 2 \[Pi]},
   PlotStyle -> Thickness[0.015]];
Show[aa, bb, cc, dd]

ResourceFunction["Graphics3DSketch"][{aa, bb, cc, dd}]

ResourceFunction["Graphics3DSketch"][{aa, bb, cc, dd}]

aa = Graphics3D[{Opacity[0.5], Sphere[]}]; 
bb = ParametricPlot3D[{Cos[\[Theta]], Sin[\[Theta]], 0}, {\[Theta], 0, 2 \[Pi]},
  PlotStyle -> Thickness[0.015]];
cc =  ParametricPlot3D[{0, Cos[\[Phi]], Sin[\[Phi]]}, 
      {\[Phi], 0, 2 \[Pi]},
   PlotStyle -> Thickness[0.015]];
dd =  ParametricPlot3D[{Cos[\[Phi]], 0, Sin[\[Phi]]}, {\[Phi], 0, 2 \[Pi]},
   PlotStyle -> Thickness[0.015]];
Show[aa, bb, cc, dd]

ResourceFunction["Graphics3DSketch"][{aa, bb, cc, dd}]

aa = Graphics3D[{Opacity[0.5], Sphere[]}]; 
bb = ParametricPlot3D[{Cos[\[Theta]], Sin[\[Theta]], 0}, {\[Theta], 0, 2 \[Pi]},
  PlotStyle -> Thickness[0.015]];
cc =  ParametricPlot3D[{0, Cos[\[Phi]], Sin[\[Phi]]}, 
      {\[Phi], 0, 2 \[Pi]},
   PlotStyle -> Thickness[0.015]];
dd =  ParametricPlot3D[{Cos[\[Phi]], 0, Sin[\[Phi]]}, {\[Phi], 0, 2 \[Pi]},
   PlotStyle -> Thickness[0.015]];
Show[aa, bb, cc, dd]

ResourceFunction["Graphics3DSketch"][{aa, bb, cc, dd}]

Source Link

created Aug 7, 2021 at 16:44

David G. Stork

42.3k
3
37
106

aa = Graphics3D[{Opacity[0.5], Sphere[]}]; 
bb = ParametricPlot3D[{Cos[\[Theta]], Sin[\[Theta]], 0}, {\[Theta], 0, 2 \[Pi]},
  PlotStyle -> Thickness[0.015]];
cc =  ParametricPlot3D[{0, Cos[\[Phi]], Sin[\[Phi]]}, 
      {\[Phi], 0, 2 \[Pi]},
   PlotStyle -> Thickness[0.015]];
dd =  ParametricPlot3D[{Cos[\[Phi]], 0, Sin[\[Phi]]}, {\[Phi], 0, 2 \[Pi]},
   PlotStyle -> Thickness[0.015]];
Show[aa, bb, cc, dd]

ResourceFunction["Graphics3DSketch"][{aa, bb, cc, dd}]