MathGroup Archive 1993

[Date Index] [Thread Index] [Author Index]

Search the Archive

Memory


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