Services & Resources / Wolfram Forums / MathGroup Archive

MathGroup Archive 2013

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

Search the Archive


  • To: mathgroup at
  • Subject: [mg131797] 3DAspectRatio
  • From: Narasimham <mathma18 at>
  • Date: Mon, 7 Oct 2013 08:24:01 -0400 (EDT)
  • Delivered-to:
  • Delivered-to:
  • Delivered-to:
  • Delivered-to:

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

Is there some way to ContourPlot3D maintaining AspectRatio  along all its three axes?


  • Prev by Date: Re: plotting complex functions in (x,y,t) space
  • Next by Date: ListLogLinearPlot crystal filter
  • Previous by thread: Re: Mathematica does not recognize C Compiler
  • Next by thread: Re: 3DAspectRatio