Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2007
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2007

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

Search the Archive

Re: ParametricPlot3D from 5.2 to 6.0

  • To: mathgroup at smc.vnet.net
  • Subject: [mg80498] Re: ParametricPlot3D from 5.2 to 6.0
  • From: Francois LE COAT <lecoat at atari.org>
  • Date: Thu, 23 Aug 2007 06:22:34 -0400 (EDT)
  • Organization: University Paris-Sud, France.
  • References: <fagtvh$91l$1@smc.vnet.net> <faj4au$8io$1@smc.vnet.net>

Hi,

Thanks. I finally found the following form, thanks to Brett Champion

xmin := 0
xmax := 2*Pi
ymin := 0
ymax := Pi
ro[t_, p_] := Max[1 - 3*Sin[2*p]*Sin[5*t + Pi/2], 0]
xxx[t_, p_] := ro[t, p]*Sin[p]*Cos[t]
yyy[t_, p_] := ro[t, p]*Sin[p]*Sin[t]
zzz[t_, p_] := ro[t, p]*Cos[p]
ParametricPlot3D[{yyy[t, p], -xxx[t, p], zzz[t, p]}, {t, xmin, xmax},
  {p,ymin, ymax}, PlotPoints -> {11, 5}, Mesh -> All, MaxRecursion -> 0,
  PlotRange -> All, NormalsFunction -> None]

Regards,

--
Fran=E7ois LE COAT
Author of Eureka 2.12 (2D Graph Describer, 3D Modeller)
<http://eureka.atari.org/>
<http://fon.gs/eureka/>

Jens-Peer Kuska wrote :
> try:
>
> xmin := 0
> xmax := 2*Pi
> ymin := 0
> ymax := Pi
> ro[t_, p_] := Max[1 - 3*Sin[2*p]*Sin[5*t + Pi/2], 0]
> xxx[t_, p_] := ro[t, p]*Sin[p]*Cos[t]
> yyy[t_, p_] := ro[t, p]*Sin[p]*Sin[t]
> zzz[t_, p_] := ro[t, p]*Cos[p]
> ParametricPlot3D[{yyy[t, p], -xxx[t, p], zzz[t, p]}, {t, xmin,
>    xmax}, {p, ymin, ymax}, PlotPoints -> {11, 5}, MaxRecursion -> 0,
>   PlotRange -> All, PerformanceGoal -> "Speed"]
>
> Francois LE COAT wrote :
>> With the following notebook <http://eureka.atari.org/vrml/etoile.nb>
>> I had the following rendering <http://eureka.atari.org/vrml/etoilm.gif=
>
>> using Mathematica v. <= 5.2. With Mathematica 6.0 the interpolation
>> method order seems to have changed. I didn't managed to obtain a simil=
ar
>> rendering with the "star" 3D surface.
>>
>> Can someone help to find how to describe the "star" the same way again=
 ?


  • Prev by Date: Re: On partitioning lists by intervals
  • Next by Date: Re: Manipulate a VectorFieldPlot3D
  • Previous by thread: Re: ParametricPlot3D from 5.2 to 6.0
  • Next by thread: Re: Re: ParametricPlot3D from 5.2 to 6.0