Re: Wireframes

*To*: mathgroup at smc.vnet.net*Subject*: [mg4279] Re: Wireframes*From*: vvs124 at rsphy1.anu.edu.au (Victoria.Steblina) (Victoria Steblina)*Date*: Sat, 29 Jun 1996 03:53:25 -0400*Organization*: Optical Sciences Centre, ANU*Sender*: owner-wri-mathgroup at wolfram.com

>I would like to take a Stack of 2D outlined sections and create a 3D >wireframe. Does anyone know if there is an already existing program >or algorithm that will help. Try StackGraphics: In[47]:= Needs["Graphics`Graphics3D`"] In[48]:= ?StackGraphics StackGraphics[{g1, g2, ...}] generates a Graphics3D object corresponding to a "stack" of two-dimensional graphics objects. Gaussian pulse as an example: In[49]:= f[x_, y_] := Exp[-(x-y)^2/4] The following function defines 2D sections and labels them: In[50]:= section[y_] := Show[Plot[ f[x,y], {x, -10, 15}, PlotRange -> All, DisplayFunction->Identity], Graphics[Text["y = "<> ToString @ y,{17, 0}]], DisplayFunction->Identity] StackGraphics displays corresponding to different y sections together: In[51]:= Show[ StackGraphics[Table[section[y], {y,0,10,2}]], PlotRange -> All, BoxRatios -> {1,1,0.5},Boxed -> False, Axes -> {Automatic, None, Automatic}, AxesLabel -> {"x ","","f"}, DisplayFunction -> $DisplayFunction] Out[52]= -Graphics3D- Cheers, Vicki ________________________________________________________________________ Victoria Steblina vvs124 at rsphy1.anu.edu.au Optical Sciences Centre Australian National University ==== [MESSAGE SEPARATOR] ====