Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2006
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2006

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

Search the Archive

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