SphericalPlot3D: shifting the origin
- To: mathgroup at smc.vnet.net
- Subject: [mg101705] SphericalPlot3D: shifting the origin
- From: Dmitry <dpesin at gmail.com>
- Date: Wed, 15 Jul 2009 07:06:51 -0400 (EDT)
Hello,
I am plotting d-orbitals using SphericalPlot3D, here is the code for
the xy orbital:
SphericalPlot3D[(Sin[\Theta] Cos[\Phi])(Sin[\Theta]Sin[\Phi]), {\
[Theta], 0,
Pi}, {\[Phi], 0, 2 Pi}, Mesh -> False, Axes -> False,
Boxed -> False, PlotRange -> All];
I would like to be able to show two of such orbitals displaced by some
vector. Is there a simple way to do it, without having to solve for R
(\Theta,\Phi) for a displaced orbital?
Thanks,
Dmitry