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

```

• Prev by Date: Lists and Fitting multiple lines to data
• Next by Date: pointwise colors
• Previous by thread: Lists and Fitting multiple lines to data
• Next by thread: pointwise colors