two figures on same axes with different scales

• To: mathgroup at smc.vnet.net
• Subject: [mg117028] two figures on same axes with different scales
• From: "Hagwood, Charles R." <charles.hagwood at nist.gov>
• Date: Tue, 8 Mar 2011 05:34:23 -0500 (EST)

```If I plot the following ellipses on the same axes , then the left ellipse is much too small.  Is there a way to redo the plot with the right ellipse looking larger?

dat1 = dat1={{0.4337088920,.217018691}, {0.406673987,0.21247881},{0.429538614,0.219284756},{0.435436816,0.219360297},{0.433708892,0.219415037},{0.434859313,0.220394942}};

dat2={{2.057100439,0.837794005},{2.148339169,0.868515281},{2.143940655,0.864046805},
{2.148432958,0.874271059},{2.183485822,0.880743617},{2.19696413,0.892192841}};

p1=ListPlot[{dat1,dat2}, Frame->True,Axes->False];

mx1=Mean[dat1[[All,1]]];
my1=Mean[dat1[[All,2]]];

c1={mx1,my1}

mx2=Mean[dat2[[All,1]]];
my2=Mean[dat2[[All,2]]];

c2={mx2,my2}

cov1=Covariance[dat1];
cov2=Covariance[dat2];

n=Length[dat1];

falpha=Quantile[FRatioDistribution[2,n-2], Sqrt[.975]];
r1=2*((n-1)/(n-2))*falpha/n;
r2=2*((n-1)/(n-2))*falpha/n;

f1[x_,y_]:={x-mx1,y-my1}.Inverse[cov1].{x-mx1,y-my1}

f2[x_,y_]:={x-mx2,y-my2}.Inverse[cov2].{x-mx2,y-my2}

p4=ContourPlot[f2[x,y]==r2,{x,2,2.4},{y,.8,.95},Frame->None];

data=Join[dat1,dat2]

model=LinearModelFit[data,x,x]
p2=Plot[model["BestFit"],{x,0,2.6}];

Show[{p1,p2,p3,p4}]

```

• Prev by Date: Re: symbolic integration of wave functions
• Next by Date: MathematicaMark8 Benchmark Report for GPGPU, Compiled Code & Multi-Core Systems