Re: Combining differnt plots in one graphic
- To: mathgroup at smc.vnet.net
- Subject: [mg68369] Re: Combining differnt plots in one graphic
- From: Peter Pein <petsie at dordos.net>
- Date: Thu, 3 Aug 2006 06:06:26 -0400 (EDT)
- References: <eaprbb$s1g$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Eckhard Schlemm schrieb:
> Hello,
>
> It's me again having a question^^
>
> I have got a surface plot generated by ParametricPlot3D and a curve on that
> surface wich I want to display in one graphic, such that the line is clearly
> to be distinguished from the surface..are there any options to make the line
> bold or somewhat more visible?:-) ANd also it seems to me, that the lne does
> not always seem to be on top...how can that be done?
>
> Thanks, I attached a simple example of what I am talking about^^
>
> [Contact the author to get this - attachments are not permitted - moderator]
>
> Eckhard
>
> --
> _________________________
> Ludwig Schlemm
> LudwigSchlemm at hotmail.com
>
>
>
Hello Eckhard,
you can add colour and thickness of the curve as fourth "coordinate" in ParametricPlot.
Be sure to add a small value to the z-coordinate. The curve hovers invisibly above the surface:
surf[x_, y_] = BesselJ[0, Sqrt[x^2 + y^2]];
Block[{$DisplayFunction = Identity},
plsurf = Plot3D[surf[x, y], {x, -5, 5}, {y, -5, 5}];
plcurve = ParametricPlot3D[{#1, #2, surf[#1, #2] + 0.03,
{Red, AbsoluteThickness[3]}}& [3*Cos[t], 2*Sin[3*t]], {t, 0, Pi}]
];
Show[plsurf, plcurve,ImageSize->666,BoxRatios->Automatic,ViewPoint -> {-3, -6, 2.5}];
Hope that helps,
Peter