MathGroup Archive 2007

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

Search the Archive

Overlaying 3d plots

  • To: mathgroup at
  • Subject: [mg75084] Overlaying 3d plots
  • From: "Alan Ford" <fabio.sattin at>
  • 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,

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


  • Prev by Date: Re: 2D cellular automata (non-totalistic)
  • Next by Date: Re: differentiate a function of a function
  • Previous by thread: Re: how to make myVec[v,3] to return {v_1, v_2, v_3} ?
  • Next by thread: Re: Overlaying 3d plots