Re: Show problem: combining ListPlot and Plot
- To: mathgroup at smc.vnet.net
- Subject: [mg97018] Re: Show problem: combining ListPlot and Plot
- From: carlos at colorado.edu
- Date: Mon, 2 Mar 2009 05:22:12 -0500 (EST)
- References: <200902271113.GAA21534@smc.vnet.net> <gob7t5$g6m$1@smc.vnet.net>
On Feb 28, 4:41 am, Curtis Osterhoudt <c... at lanl.gov> wrote:
> Works for me (under v. 7); replace "PlotJoined" with "Joined". Also, to r=
emove the "squishedness" of the plot, use, in the outer Show, the "AspectRa=
tio -> 1/GoldenRatio" option.
>
> C.O.
>
> On Friday 27 February 2009 04:13:59 am car... at colorado.edu wrote:
>
>
>
> > The following extract exemplifies a plot technique I used to
> > combine ListPlot and a Plot under v 2.2. It worked fine
> > under 3.0, 4.1,4.2 and 5.1. But students using this under 6.0 and
> > 7.0 for a HW report the plot frame "squished", and that line colors
> > disagree with the title. Question: can this be fixed in
> > a simple way or should it be completely rewritten? Thanks.
>
> > DisplayChannel=$DisplayFunction;
> > If [$VersionNumber>=6.0, DisplayChannel=Print];
> > (* fix for Mathematica 6 & later *)
> > Off[General::spell1]; Off[General::spell];
>
> > ClearAll[r];
> > vFEM={{4., 0.054}, {7., 0.0395}, {10., 0.037}};
> > vexact=0.1905*(1/r + r/100); rbeg=4.; rend=10.;
> > pFEM=ListPlot[vFEM,PlotJoined->True,PlotStyle->{RGBColor[1,0,0=
]},
> > DisplayFunction->Identity];
> > pexact=Plot[vexact,{r,rbeg,rend},PlotStyle->{RGBColor[0,0,0]},
> > DisplayFunction->Identity];
> > Show[Graphics[AbsoluteThickness[2]],pexact,
> > pFEM,TextStyle->{FontFamily->"Times",FontSize->12},
> > GridLines->Automatic,Axes->True,PlotRange->All,
> > PlotLabel->"Radial displacement (black=exact,red=FE=
M)",
> > Frame->True, DisplayFunction->DisplayChannel];
>
> --
> =========================
==========================
=========
> Curtis Osterhoudt
> cfo at remove_this.lanl.and_this.gov
> PGP Key ID: 0x4DCA2A10
> Please avoid sending me Word or PowerPoint attachments
> Seehttp://www.gnu.org/philosophy/no-word-attachments.html
> =========================
==========================
=========
So under $VersionNumber>=6.0 the default AspectRatio has changed and
Joined has replaced PlotJoined?