Overlaying 3d plots
- To: mathgroup at smc.vnet.net
- Subject: [mg75084] Overlaying 3d plots
- From: "Alan Ford" <fabio.sattin at igi.cnr.it>
- Date: Mon, 16 Apr 2007 20:14:32 -0400 (EDT)
Dear Mathematica users,
could anybody help me with this problem ?
I have a 3d plot of a potential profile, generated with
PlotPotential = Plot3D[Potential, {x, -1, 6}, {y, -1, 6}, PlotRange -
> All, PlotPoints -> 50]
Then, I compute the corresponding trajectory (XSOL[t],YSO[t]) for a
particle in this potential,
solving Newton equations,
and plot the courve on the potential surface
PlotTrajectory = ParametricPlot3D[{
XSOL, YSOL, V}, {t, 0, TMAX}, PlotRange -> {{-1, 6}, {-1, 6}, {-0.2,
0.2}}]
with V = Potential(XSOl[t],YSOL[t])
Finally, I wish to overlay the two plots, showing the trajectory of
the particle AND the
potential surface.
I tried several methods, from Show[PlotPotential, PlotTrajectory]
or DisplayTogether,
but I am not able to display the second plot: only the potential
surface does appear.
Which options/commands should I use ?
Many thanks for your help
Fabio