Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2006
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2006

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

Search the Archive

Re: Plot Truncation in RealTime3D

  • To: mathgroup at smc.vnet.net
  • Subject: [mg65439] Re: Plot Truncation in RealTime3D
  • From: "Narasimham" <mathma18 at hotmail.com>
  • Date: Sat, 1 Apr 2006 05:38:58 -0500 (EST)
  • References: <e0dpnj$qbk$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Thanks.

1) While attempting  to rotate with mouse Range limited plots Shown
below obtained without ReallTime3D,

 pos=ParametricPlot3D[ {Cosh[th] Cos[th+al], th, Cosh[th]Sin[th+al]},
 {th,-1.2, 1.2 }, {al,0, 2 Pi} ,PlotRange-> { { -2,2},{2,0},{0,2} } ];
 neg=ParametricPlot3D[ {Cosh[th] Cos[th+al], th, -Cosh[th]Sin[th+al]},
 {th,-1.2, 1.2 }, {al,0, 2 Pi} ,PlotRange-> { { -2,2},{2,0},{0,2} } ] ;
Show[pos,neg] ;

.. the PlotRange option cannot be implementable in <<ReallTime3D' as it
is. The entire surface of revolution comes in, without the desired
truncation. Is there a way to work around it?

2) Yes,the surface is same. The question is, How to hide the al
parameterized parallels , retaining only th lines in pos and neg ?

David Park wrote:

> This appears to be two different parametrizations of the same surface. When
> you Show them together Mathematica has difficulty in rendering them because
> it has to keep determining which surface is 'in front'.
>
> I don't understand what you are trying to illustrate in your plot.
>
> David Park
> djmp at earthlink.net
> http://home.earthlink.net/~djmp/
>
> From: Narasimham [mailto:mathma18 at hotmail.com]
To: mathgroup at smc.vnet.net
>
>
> a) How to make ParametricPlot3D to plot in the required PlotRange for
> top half surface only?
> b) How to omit/hide circumferential circles or parameter lines of al
> in Show[pos,neg] ?  TIA
>
> <<RealTime3D`
> pos=ParametricPlot3D[ {Cosh[th] Cos[th+al], th, Cosh[th]Sin[th+al]},
> {th,-1.2, 1.2 }, {al,0, 2 Pi} ,PlotRange-> { { -2,2},{2,0},{0,2} } ];
> neg=ParametricPlot3D[ {Cosh[th] Cos[th+al], th, -Cosh[th]Sin[th+al]},
> {th,-1.2, 1.2 }, {al,0, 2 Pi} ,PlotRange-> { { -2,2},{2,0},{0,2} } ];
> Show[pos,neg] ;
> <<Default3D`


  • Prev by Date: Re: simultaneous nonlinear regression of a lot of data
  • Next by Date: Re: simplify a trig expression
  • Previous by thread: Re: simultaneous nonlinear regression of a lot of data
  • Next by thread: Re: Plot Truncation in RealTime3D