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

```

• Prev by Date: Re: find area bounded by three linear functions
• Next by Date: Re: Strange problem with "for" and "while"
• Previous by thread: Re: Combining differnt plots in one graphic
• Next by thread: webMathematica 2.3 now available