Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1993
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1993

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

Search the Archive

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