scaling 3D axes?

• To: mathgroup at smc.vnet.net
• Subject: [mg7086] scaling 3D axes?
• From: Bill Simpson <wsimpson at uwinnipeg.ca>
• Date: Wed, 7 May 1997 01:58:12 -0400 (EDT)
• Organization: University of Winnipeg
• Sender: owner-wri-mathgroup at wolfram.com

```I am doing a 3D surface plot using TriangularSurfacePlot.
I am using Mathematica 2.2.2.

Needs["DiscreteMath`ComputationalGeometry`"]

pts=Table[{	{0.6,0.02,0.08}, {0.6,0.05,0.16},  {0.6,0.10,0.21},
{0.6, 0.25, 0.28},
{0.6,0.50,0.36}, {0.6,1.00,0.54},{1.5,0.02,2.0}, {1.5,0.05,2.0},
{1.5,0.10,2.7}, {1.5,0.25,2.4}, {1.5,0.50,1.3},{1.5,1.00,2.7},
{3.0,0.02,4.2}, {3.0,0.05,2.8}, {3.0,0.10,3.9}, {3.0,0.25,3.6},
{3.0,0.50,3.1}, {3.0,1.00,3.7},
{12,0.02,0.81},{12,0.05,1.1},{12,0.10,1.9},
{12,0.25,3.8}, {12,0.50,3.5}, {12,1.00,3.9}, {18,0.02,0.36},
{18,0.05,0.55}, {18,0.10,0.77}, {18,0.25,1.5}, {18,0.50,2.9},
{18,1.00,3.7}, {24,0.10,0.52}, {24,0.25,0.71}, {24,0.50,1.3},
{24,1.00,2.9}, {30,0.25,0.40}, {30,0.50,0.67}, {30,1.00,1.2},
{36,1.00,0.71}  }]

myplot=TriangularSurfacePlot[pts]

Problem:
The plot is extremely squished on the y axis.  Mathematica seems to
assume that all axes have to be on the same scale.  Is there any
way to make the plot look like a cube, with the axis scales changed
accordingly? (PlotRange doesn't do this)

Thanks very much for any help.

Bill Simpson

```

• Prev by Date: Re: Until -Reply
• Next by Date: Implementing finite element basis functions in Mma
• Previous by thread: nonlinear schrodinger PDF
• Next by thread: Re: scaling 3D axes?