|
Math21a, Fall 2000 Course Head: Prof. Clifford H. Taubes |
| Mainpage | Syllabus | Calendar | Homework | Exams | Supplements | Comput. assigns | Links |
|
F[n_]:=FromCharacterCode[Join[IntegerDigits[n]+48,ToCharacterCode[".gif"]]];
Do[n=3*k; Display[F[1000+k],ParametricPlot3D[{Cos[5t]+Cos[31t]/2,Cos[5t]+Sin[31t]/2,Sin[5t]},{t,0,2Pi},
PlotPoints->n,DisplayFunction->Identity,Boxed->False,Axes->False],"GIF"],{k,100}];
|
| Last update, 10/29/2000 |