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=
?
