Re: Overlaying 3d plots
- To: mathgroup at smc.vnet.net
- Subject: [mg75121] Re: Overlaying 3d plots
- From: Daniel Huber <dh at metrohm.ch>
- Date: Wed, 18 Apr 2007 04:54:41 -0400 (EDT)
- References: <f013t5$8jt$1@smc.vnet.net>
Hi,
displaying two object in the same surface is problematic because it is
not clear which should be shown. An easy trick is to simply draw the
curve slightly above the surface. In this case the curve is visible if
seen from above:
g1=Plot3D[x^2+y^2,{x,-1,6},{y,-1,6}];
g2=ParametricPlot3D[{t,t,0.1+2 t^2},{t,0,6}];
Show[g1,g2]
Daniel
Alan Ford wrote:
> 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
>
>