Re: Desperate help
- To: mathgroup at smc.vnet.net
- Subject: [mg61492] Re: Desperate help
- From: "Steve Luttrell" <steve_usenet at _removemefirst_luttrell.org.uk>
- Date: Wed, 19 Oct 2005 23:08:03 -0400 (EDT)
- References: <dj4pck$h43$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
You could transform the coordinates that are generated in the Graphics3D
expression generated by SphericalPlot3D.
Here is how you do this:
<<Graphics`ParametricPlot3D`
g=SphericalPlot3D[2,{theta,0,Pi},{phi,0,2Pi}]
Show[g[[0]][g[[1]] /. {x_, y_, z_} :> {x, y, z} + {1, 2, -2}, g[[2]]]]
g[[0]] is the head of the Graphics3D expression
g[[1]] is the graphics itself
g[[2]] is the graphics options
g[[1]] /. {x_, y_, z_} :> {x, y, z} + {1, 2, -2}
is the transformed version of the graphics
Steve Luttrell
"nomad111" <g_h_111 at hotmail.com> wrote in message
news:dj4pck$h43$1 at smc.vnet.net...
> hi every1
> i really need to kno how to move the center of a circle in
> SphericalPlot3D. I need the center at (1,2,-2) and any radius (say 5).
> Appreciate any help
>
> Regards,
> nomad111
>