Memory

*To*: MATHGROUP at yoda.physics.unc.edu*Subject*: Memory*From*: "Tesman, Barry" <TESMAN at dickinson.edu>*Date*: Fri, 12 Mar 93 10:41:42 est

The following command was written to generate surfaces of revolution. We are using MA v2.0 on a Mac IIsi with 9 megs of RAM. After evaluating the following (what would be) cells, our memory is almost completely exhausted and sometimes so much so that Mathematica shuts down. Does anyone know why so much memory is being used (for such "simple" code) and if there is a way of releasing some of the memory? ******************************** VolumePlot[expr_,{var_,a_,b_},x-axis]:= Module[{f,x,p,q}, f[x_]:=expr/.var->x; p=ParametricPlot3D[{-f[x]*Sin[t],x,f[x]*Cos[t]},{x,a,b}, {t,0,2Pi},Boxed->False, Axes->{False,True,True},AxesLabel->{"","x","y"}, ViewPoint->{2.345, 0.250, -0.012},PlotRange->All, DisplayFunction->Identity]; q=Graphics3D[{Line[{{0,a-1,0},{0,b+1,0}}]}]; Show[q,p,DisplayFunction->$DisplayFunction] ] p=VolumePlot[Cos[x],{x,0,Pi/4},x-axis]; q=VolumePlot[Sin[x],{x,0,Pi/4},x-axis]; Show[q,p] ******************************** Thanks, Barry Tesman Dickinson College tesman at dickinson.edu