3DAspectRatio
- To: mathgroup at smc.vnet.net
- Subject: [mg131797] 3DAspectRatio
- From: Narasimham <mathma18 at gmail.com>
- Date: Mon, 7 Oct 2013 08:24:01 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- Delivered-to: l-mathgroup@wolfram.com
- Delivered-to: mathgroup-outx@smc.vnet.net
- Delivered-to: mathgroup-newsendx@smc.vnet.net
a=3; c=5;
ConPl=ContourPlot3D[ (Sqrt[x^2+y^2]- c)^2 + z^2 == a ^2 , {x,-8,8},{y,-8,8},{z,-3.1,3.1}]
ParPl=ParametricPlot3D[{ (a Cos[u]+c) Cos[v], (a Cos[u]+c) Sin[v], a Sin[u]},{u,0, 2Pi},{v,0, 2 Pi}]
Sph= ParametricPlot3D[1{ Cos[ph]Cos[t], Cos[ph] Sin[t], Sin[ph]}, {ph,-1.5,1.5},{t,0, 2 Pi}]
Show[ParPl,ConPl,Sph]
Show[ConPl,ParPl,Sph]
Is there some way to ContourPlot3D maintaining AspectRatio along all its three axes?
Regards
Narasimham
- Follow-Ups:
- Re: 3DAspectRatio
- From: Bob Hanlon <hanlonr357@gmail.com>
- Re: 3DAspectRatio