Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Show problem: combining ListPlot and Plot

  • To: mathgroup at smc.vnet.net
  • Subject: [mg96957] Re: [mg96923] Show problem: combining ListPlot and Plot
  • From: Curtis Osterhoudt <cfo at lanl.gov>
  • Date: Sat, 28 Feb 2009 06:41:35 -0500 (EST)
  • Organization: LANL
  • References: <200902271113.GAA21534@smc.vnet.net>
  • Reply-to: cfo at lanl.gov

Works for me (under v. 7); replace "PlotJoined" with "Joined". Also, to remove the "squishedness" of the plot, use, in the outer Show, the "AspectRatio -> 1/GoldenRatio" option. 

                 C.O.


On Friday 27 February 2009 04:13:59 am carlos 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=FEM)",
>         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
See http://www.gnu.org/philosophy/no-word-attachments.html
==========================================================


  • Prev by Date: Re: Can't quite figure out tensors
  • Next by Date: Re: Show problem: combining ListPlot and Plot
  • Previous by thread: Show problem: combining ListPlot and Plot
  • Next by thread: Re: Show problem: combining ListPlot and Plot