Oliver' s Project

this is the project we worked on during the short workshop on Thursday, July 18

Problem 1

S=ParametricPlot3D[ (2 Sin[t]+1){Cos[2t] Sin[s],Sin[3t]Sin[s],Cos[s]}/2,{t,0,2Pi},{s,0,Pi},PlotStyle->Directive[Opacity[1],Blue,Specularity[White,10]],MeshStyle->{{Yellow,Thickness[0.001]},{Orange,Thickness[0.001]}},Axes->False,Boxed->False]

Problem 2

S=SphericalPlot3D[(1+2 Sin[s]),{s,0,Pi},{t,0,2Pi},MeshStyle->Yellow,PlotStyle->Directive[Red,Opacity[0.7]],Axes->False,Boxed->False,PlotRange->All,PlotPoints->40]

Problem 3

S=ContourPlot3D[ x^2z+y^2+z^2==0.1,{x,-0.4,0.4},{y,-0.4,0.4},{z,-0.4,0.4}]

Problem 4

S1=PolyhedronData["Dodecahedron"];
S2=PolyhedronData["Icosahedron"];

Show[{Graphics3D[Table[Translate[S1[[1]],10{Random[],Random[],Random[]}],{10}]]}]

Problem 5

A0={Yellow,Scale[Sphere[{-3,0,0},1],{3,2,1}]};
A1={Yellow,Sphere[{0,0,0},1]};
f[phi_,theta_]:={Sin[phi] Cos[theta],Sin[phi] Sin[theta],Cos[phi]};
A3 ={Blue,Sphere[f[Pi/3,Pi/4],0.2]};
A4 ={Blue,Sphere[f[Pi/3,-Pi/4],0.2]};
A2={Red,Translate[Scale[Sphere[],{0.01,1,0.02},{0,0,0}],{1,0,0}]};
Show[Graphics3D[{A0,A1,A2,A3,A4}],Boxed->False, Axes->False,PlotRange->All]