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