MathGroup Archive 1996

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

Search the Archive

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] ====


  • Prev by Date: Re: Help: Column/Row Vector
  • Next by Date: Re: Abs and variables
  • Previous by thread: Re: Wireframes
  • Next by thread: Reversing an axis