Re: Show problem: combining ListPlot and Plot
- To: mathgroup at smc.vnet.net
- Subject: [mg96953] Re: [mg96923] Show problem: combining ListPlot and Plot
- From: "David Park" <djmpark at comcast.net>
- Date: Sat, 28 Feb 2009 06:40:49 -0500 (EST)
- References: <11554100.1235735977664.JavaMail.root@m02>
This is how I would do it using Presentations:
Needs["Presentations`Master`"]
vFEM = {{4., 0.054}, {7., 0.0395}, {10., 0.037}};
vexact = 0.1905*(1/r + r/100); rbeg = 4.; rend = 10.;
Draw2D[
{AbsoluteThickness[2], Red,
ListDraw[vFEM, Joined -> True],
Black, Draw[vexact, {r, rbeg, rend}]},
AspectRatio -> 1/2,
PlotRange -> All,
Frame -> True,
GridLines -> Automatic, GridLinesStyle -> GrayLevel[.8],
PlotLabel -> "Radial displacement (black=exact,red=FEM)",
BaseStyle -> {FontFamily -> "Times", FontSize -> 12},
ImageSize -> 400]
David Park
djmpark at comcast.net
http://home.comcast.net/~djmpark/
From: carlos at colorado.edu [mailto:carlos at colorado.edu]
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=FEM)",
Frame->True, DisplayFunction->DisplayChannel];