Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2007

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

Search the Archive

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



  • Prev by Date: Mathematica 6 Documentation - how does one add to it?
  • Next by Date: Re: disable "disable dynamic updating?"?
  • Previous by thread: Re: ParametricPlot3d not showing up when I use the manipulate command
  • Next by thread: Is this a bug