Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2005
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2005

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

Search the Archive

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
> 



  • Prev by Date: Re: Language vs. Library why it matters
  • Next by Date: Re: Unsorted Union
  • Previous by thread: Re: Desperate help
  • Next by thread: Re: Desperate help