Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1995
*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 1995

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

Search the Archive

Re: ContourPlots

  • To: mathgroup at christensen.cybernetics.net
  • Subject: [mg2042] Re: [mg2024] ContourPlots
  • From: Tom Wickham-Jones <twj>
  • Date: Sat, 16 Sep 1995 01:42:24 -0400



>I would like to know how to plot two ContourPlots (with Contours at 

>0) into one plot. The command Show[plot1,plot2], where plot1 and 

>plot2 

>are defined as ContourPlots does not work, Also, the command 

>PLot[{f1,f2},{x,.,.},{y,.,.}], where f1 and f2 define two implicit 

>functions in x and y  does not work either. Is there a way that works 

>well?

If you want to plot an implicit function then the command to use is ContourPlot.
If you want to combine two contours you can do this with Show[plot1,plot2].
When you do it you probably want to turn off contour shading so that one plot
does not hide the other.



In[8]:= ContourPlot[ x^2 +y^2-1, {x, -2,2},{y,-2,2},
        ContourShading -> False, Contours -> {0}]
        

Out[8]= -ContourGraphics-

In[9]:= ContourPlot[ x^2 y^2-1, {x, -2,2},{y,-2,2},
        ContourShading -> False, Contours -> {0}]
        

Out[9]= -ContourGraphics-

In[10]:= Show[%, %%]

Out[10]= -Graphics-


Tom Wickham-Jones
WRI




  • Prev by Date: Re: Mathematica and NetScape
  • Next by Date: Weirdness in Encapsulated Postscript (Windows version)?
  • Previous by thread: ContourPlots
  • Next by thread: Re: ContourPlots