Re: ParametricPlot3d not showing up when I use the manipulate command
- To: mathgroup at smc.vnet.net
- Subject: [mg84248] Re: ParametricPlot3d not showing up when I use the manipulate command
- From: "David Park" <djmpark at comcast.net>
- Date: Sat, 15 Dec 2007 15:39:27 -0500 (EST)
- References: <fjvkdr$ifc$1@smc.vnet.net>
That Clifford guy was really clever!
For those who have the Presentations package the following might be more the
kind of presentation you were looking for:
Needs["Presentations`Master`"]
Module[
{umin := 0,
umax := \[Pi],
vmin := 0,
vmax := 2 \[Pi],
surface, sgraphics},
surface[uu_, vv_] := {Cos[uu + vv]/(Sqrt[2] + Cos[vv - uu]),
Sin[uu + vv]/(Sqrt[2] + Cos[vv - uu]), Sin[vv - uu]/(
Sqrt[2] + Cos[vv - uu])};
sgraphics = {Opacity[.4, Orange],
ParametricDraw3D[
surface[uu, vv], {uu, umin, umax}, {vv, vmin, vmax},
Mesh -> None,
PlotPoints -> 25]};
Manipulate[
Draw3DItems[
{sgraphics,
ParametricDraw3D[surface[u, vv], {vv, vmin, vmax},
Mesh -> None,
PlotPoints -> 15],
AbsolutePointSize[7],
Point[surface[u, v]]},
ViewRiemann,
PlotRange -> All],
{{u, 0, "u Label"}, 0, \[Pi],
Appearance -> "Labeled"}, {{v, 0, "v Label"}, 0, 2 \[Pi],
Appearance -> "Labeled"}]
]
--
David Park
djmpark at comcast.net
http://home.comcast.net/~djmpark/
<vmrproject at gmail.com> wrote in message news:fjvkdr$ifc$1 at smc.vnet.net...
> ParametricPlot3d not showing up when I use the manipulate command
> using mathematica 6 sal2
>
> Greetings All
>
> I'm using the Clifford parametric equations using the ParametricPlot3D
> command and they work...but when I use the
> Manipulate command the image goes blank why is this? Should I be using
> Plot3d or the Graphic3D command instead?
>
> Working Code:
> umin:=0
> umax:=Pi
> vmin:=0
> vmax:=2*Pi
> xxx:=Cos[u+v]/(Sqrt[2]+Cos[v-u])
> yyy:=Sin[u+v]/(Sqrt[2]+Cos[v-u])
> zzz:=Sin[v-u]/(Sqrt[2]+Cos[v-u])
> ParametricPlot3D[{xxx,yyy,zzz},
> {u,umin, umax},{v,vmin,vmax}, PlotRange->All,PerformanceGoal ->
> "Quality"]
>
> Non workinig code when I add the manipulate command to it I'm not sure
> why:
> umin:=0
> umax:=Pi
> vmin:=0
> vmax:=2*Pi
> xxx:=Cos[u+v]/(Sqrt[2]+Cos[v-u])
> yyy:=Sin[u+v]/(Sqrt[2]+Cos[v-u])
> zzz:=Sin[v-u]/(Sqrt[2]+Cos[v-u])
> Manipulate[ParametricPlot3D[{xxx,yyy,zzz},{u,umin,umax},
> {v,vmin,vmax},PlotRange->All,PerformanceGoal->"Speed"],
> {{u,0,"u Label"},0,30,Appearance->"Labeled"},{{v,0,"v Label"},
> 0,30,Appearance->"Labeled"}]
>
>
> tia sal2
>
>