Kod: |
prva = ParametricPlot3D[
{0.5*Cos[\[Phi]] Sin[\[Theta]], 0.5*Sin[\[Phi]] Sin[\[Theta]], 0.5*Cos[\[Theta]]}, {\[Phi], 0, 2 Pi}, {\[Theta], 0, Pi}, Mesh -> False] druga = ParametricPlot3D[ {Cos[\[Phi]] Sin[\[Theta]], Sin[\[Phi]] Sin[\[Theta]], Cos[\[Theta]]}, {\[Phi], 0, 3 Pi/2}, {\[Theta], 0, Pi}, Mesh -> False] Show[{druga, prva}, Axes -> False] |
Kod: |
prva=ParametricPlot3D[{Cos[\[Phi]] Sin[\[Theta]],Sin[\[Phi]] Sin[\[Theta]],Cos[\[Theta]]},{\[Phi],0,3 Pi/2},{\[Theta],0,Pi},Mesh->False];
druga=ParametricPlot3D[0.5{Cos[\[Phi]] Sin[\[Theta]],Sin[\[Phi]] Sin[\[Theta]],Cos[\[Theta]]},{\[Phi],0,3 Pi/2},{\[Theta],0,Pi},Mesh->False]; treca=ParametricPlot3D[r {Sin[\[Theta]],0,Cos[\[Theta]]},{r,0.5,1},{\[Theta],0,Pi},Mesh->False]; cetvrta=ParametricPlot3D[r {0,- Sin[\[Theta]],Cos[\[Theta]]},{r,0.5,1},{\[Theta],0,Pi},Mesh->False]; sve=Show[{prva,druga,treca,cetvrta},Axes->False] |
Kod: |
Manipulate[Show[{
ParametricPlot3D[{Cos[\[Phi]] Sin[\[Theta]]+ux,Sin[\[Phi]] Sin[\[Theta]]+uy,Cos[\[Theta]]+uz},{\[Phi],0,3 Pi/2},{\[Theta],0,Pi},Mesh->False], ParametricPlot3D[0.5 {Cos[\[Phi]] Sin[\[Theta]]+ux,Sin[\[Phi]] Sin[\[Theta]]+uy,Cos[\[Theta]]+uz},{\[Phi],0,3 Pi/2},{\[Theta],0,Pi},Mesh->False], ParametricPlot3D[r {Sin[\[Theta]]+ux,uy,Cos[\[Theta]]+uz},{r,0.5,1},{\[Theta],0,Pi},Mesh->False], ParametricPlot3D[r {ux,-Sin[\[Theta]]+uy,Cos[\[Theta]]+uz},{r,0.5,1},{\[Theta],0,Pi},Mesh->False] },Axes->False], {{ux,0},-1,1},{{uy,0},-1,1},{{uz,0},-1,1}] |
Kod: |
RegionPlot3D[
1/4 < x^2 + y^2 + z^2 && x^2 + y^2 + z^2 <= 1, {x, -1, 0}, {y, -1, 1}, {z, -1, 0}, PlotRange->{{-1,1},{-1,1},{-1,1}}] |
output generated using printer-friendly topic mod. Vremenska zona: GMT + 01:00.