Re: Graphics help

*To*: mathgroup at yoda.ncsa.uiuc.edu*Subject*: Re: Graphics help*From*: Frank Zizza <willamu!pioneer!zizza at uunet.UU.NET>*Date*: Wed, 7 Aug 91 13:24:15 PDT

You can use the Epilog option of ContourPlot to show the two-dimensional graphics object. Here is an example. Let's say you want to show the graph of y = x^2 with x varying from -1 to 1 together with the contour plot of the function x^2 + y^2 over the unit square. First generate the the plot of y = x^2. curve = Plot[ x^2, {x, -1, 1}] Then give the command to create the contour plot together with the option Epilog -> curve[[1]] ContourPlot[x^2 + y^2, {x, -1, 1}, {y, -1, 1}, Epilog -> curve[[1]] ] The first part of curve (i.e. curve[[1]] ) is the primitive graphics objects created with the plot, i.e. Line[{....}] etc. Of course these two commands can be spliced together to get the final picture all at once. ContourPlot[ x^2 + y^2, {x, -1, 1}, {y, -1, 1}, Epilog -> Plot[x^2, {x, -1, 1}, DisplayFunction -> Identity][[1]] ] Frank Zizza zizza at willamette.edu