Re: ParametricPlot3D from 5.2 to 6.0
- To: mathgroup at smc.vnet.net
- Subject: [mg80454] Re: ParametricPlot3D from 5.2 to 6.0
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Thu, 23 Aug 2007 00:58:45 -0400 (EDT)
- Organization: Uni Leipzig
- References: <fagtvh$91l$1@smc.vnet.net>
- Reply-to: kuska at informatik.uni-leipzig.de
Hi,
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"]
Regards
Jens
Francois LE COAT wrote:
> Hi,
>
> 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 similar
> rendering with the "star" 3D surface.
>
> Can someone help to find how to describe the "star" the same way again ?
>
> Thanks by advanced.
>
> Regards,
>
> --
> Fran=E7ois LE COAT
> Author of Eureka 2.12 (2D Graph Describer, 3D Modeller)
> <http://eureka.atari.org/>
> <http://fon.gs/eureka/>
>
