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