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