ContourGraphics and Show
- To: mathgroup at smc.vnet.net
- Subject: [mg6571] ContourGraphics and Show
- From: Graciela Herrera <herrera at emba.uvm.edu>
- Date: Fri, 4 Apr 1997 02:11:25 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
Hello. I am trying to combine to graphic objects with Show, one was created
with ListContourPlot and the second is a dot that I want to place on it.
I am using the option ContourLines -> False in ListContourPlot. When I
show both objects together that option is changed and the contour lines
are shown. Is there a way to tell Show not to change the options of the
graphs? How can i solve my problem?
The set of instructions I am using is:
i=1;j=1;pts={2, 4};
meant1[j][[i]]={{6.885537613926097*10^-7, -(1.251171286903269*10^-7),
-(5.80042879778102*10^-7), 2.608617270261369*10^-7,
-(8.67137943737325*10^-8), -(1.309611657689917*10^-7)},
{0.0009811869136597, 0.00082997086072706, -0.00002225955008792286,
-0.000054995618840496, -(7.057858273090071*10^-6),
-(1.194087289283463*10^-6)},
{1., 0.04220860061042299, -0.002607971066665934, -0.0003133940403026902,
-0.00001646593255909188, -(1.816945972495427*10^-6)},
{1., 0.087860898501482, 0.003035215996362291, -0.000075462427126355,
-(4.792107516103969*10^-6), 4.637833574986826*10^-7},
{0.001841075296132766, 0.001819198469968475, 0.000478612243236697,
0.0000942694429305157, 0.00001462796003850877, 1.930272263036621*10^-6},
{1.293836640036087*10^-6, 1.596356199274069*10^-6, 9.4716763911094*10^-7,
5.018597885538581*10^-7, 3.495701851076042*10^-7,
1.331539556558437*10^-7}};
gr[i]=ListContourPlot[meant1[j][[i]],
ContourLines -> False,MeshRange -> {{1,6},{1,6}},
PlotRange->{0,1},DisplayFunction -> Identity,
ColorFunction -> colhue]
animg[i]=Show[gr[i],Graphics[{PointSize[0.03],Point[pts]}]]
Show[animg[i],DisplayFunction->$DisplayFunction,PlotRange->All]
If I show gr[i] alone the contour lines are not shown but in the last
instruction above the lines are shown. Thanks for any help,
Graciela Herrera