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