RE: 3D plots

• To: mathgroup at smc.vnet.net
• Subject: [mg67340] RE: [mg67218] 3D plots
• From: "David Park" <djmp at earthlink.net>
• Date: Sun, 18 Jun 2006 05:13:56 -0400 (EDT)
• Sender: owner-wri-mathgroup at wolfram.com

```Jose,

I made a plot using my DrawGraphics package. I had to use several of the
commands to trim the surfaces to the domain on which they are defined.

I am attaching a .gif image of one view of the two surfaces. I am also
attaching the notebook I used to make the plot. (These are omitted from the
MathGroup response. Anyone interested can contact me.) If you don't have
DrawGraphics you won't be able to make the plots but you can see some of the
other steps. (The notebook uses the style sheet from my web site, but you
can let it go to the Default style.)

Basically what I did was first pad the data to fit the entire rectangle. I
did this by making the values constant outside the triangular region taking
the closest values in the y direction. I then interpolated a fit to the
upper and lower data points. I then used a feature of DrawGraphics where I
create a grid of rectangular polygons and then trimmed them to fit the
triangular region. Then I used another feature that will raise the grid to a
3D surface. I did this for each of the two surfaces. That gives one surface
above the other. You could rotate it with SpinShow to get a better view of
it.

Because there are two surfaces involved and because they are only defined
over a restricted domain, I think it would be difficult to make a plot that
clearly showed the two surfaces with regular Mathematica.

David Park

From: qfwfq [mailto:qfwfq_0 at yahoo.com]
To: mathgroup at smc.vnet.net

Hi David,

Zmax is always  greater than zmin. x_coord is always greater than
y_coord.
Next, I send you a piece of the list.

Thanks

Jose

{{0.2,0.1,2.12896,2.26061},
{0.3,0.2,2.12896,3.28811},
{0.4,0.2,4.25792,4.52123},
{0.4,0.3,2.12896,4.31561},
{0.5,0.3,4.25792,5.54873},
{0.5,0.4,2.12896,5.34311},
{0.6,0.3,6.38688,6.78184},
{0.6,0.4,4.25792,6.57622},
{0.6,0.5,2.12896,6.37061},
{0.7,0.4,6.38688,7.80934},
{0.7,0.5,4.25792,7.60372},
{0.7,0.6,2.12896,7.39811},
{0.8,0.4,8.51584,9.04245},
{0.8,0.5,6.38688,8.83684},
{0.8,0.6,4.25792,8.63122},
{0.8,0.7,2.12896,8.42561},
{0.9,0.5,8.51584,10.07},
{0.9,0.6,6.38688,9.86434},
{0.9,0.7,4.25792,9.65872},
{0.9,0.8,2.12896,9.4531},
{1.,0.5,10.6448,11.3031},
{1.,0.6,8.51584,11.0975},
{1.,0.7,6.38688,10.8918},
{1.,0.8,4.25792,10.6862},
{1.,0.9,2.12896,10.4806},
{1.1,0.6,10.6448,12.3306},
{1.1,0.7,8.51584,12.1249},
{1.1,0.8,6.38688,11.9193},
{1.1,0.9,4.25792,11.7137},
{1.1,1.,2.12896,11.5081},
{1.2,0.6,12.7738,13.5637},
{1.2,0.7,10.6448,13.3581},
{1.2,0.8,8.51584,13.1524},
{1.2,0.9,6.38688,12.9468},
{1.2,1.,4.25792,12.7412},
{1.2,1.1,2.12896,12.5356},
{1.3,0.7,12.7738,14.5912},
{1.3,0.8,10.6448,14.3856},
{1.3,0.9,8.51584,14.1799},
{1.3,1.,6.38688,13.9743},
{1.3,1.1,4.25792,13.7687},
{1.3,1.2,2.12896,13.5631},
{1.4,0.7,14.9027,15.8243},
{1.4,0.8,12.7738,15.6187},
{1.4,0.9,10.6448,15.4131},
{1.4,1.,8.51584,15.2074},
{1.4,1.1,6.38688,15.0018},
{1.4,1.2,4.25792,14.7962},
{1.4,1.3,2.12896,14.5906},
{1.5,0.7,17.0317,17.0574},
{1.5,0.8,14.9027,16.8518},
{1.5,0.9,12.7738,16.6462},
{1.5,1.,10.6448,16.4406},
{1.5,1.1,8.51584,16.2349},
{1.5,1.2,6.38688,16.0293},
{1.5,1.3,4.25792,15.8237},
{1.5,1.4,2.12896,15.6181}}

```

• Prev by Date: Re: Package writing
• Next by Date: Re: Mathematica bugs?
• Previous by thread: Re: 3D plots
• Next by thread: Why does Reduce work this way ...?