Re: Frustrated with Plotting

• To: mathgroup at smc.vnet.net
• Subject: [mg75511] Re: Frustrated with Plotting
• From: dimitris <dimmechan at yahoo.com>
• Date: Thu, 3 May 2007 03:51:58 -0400 (EDT)
• References: <f19fon\$4ot\$1@smc.vnet.net>

```Although I am more fond of using Epilog structures
since you asked I suggest you to use AbsoluteThickness/Dashing
instead of pure Thckness/Dashing in the PlotStyle option.

As an example see below...

In[107]:=
Needs["Graphics`Legend`"]

In[136]:=
Plot[{1/(x^2 + 1), Sin[x]/x, BesselJ[0, x]}, {x, -2*Pi, 2*Pi}, Axes ->
False, Frame -> {True, True, False, False},
PlotStyle -> {{Red, AbsoluteThickness[2]}, {Blue,
AbsoluteThickness[3], AbsoluteDashing[{2, 5}]},
{Green, AbsoluteThickness[2], AbsoluteDashing[{5, 5}]}},
PlotLegend -> {"1", "2", "3"}, ImageSize -> 600,
LegendShadow -> None, LegendPosition -> {1, 0}];

Dimitris
> Is there an easy way to plot several graphs so that the Legend comes out =
with the correct thickness, line length and dashing.  I have tried several =
iterations of the following with absolutely no luck.
>
> PercentFD = MultipleListPlot[OriginalCD, SQCD, NinetyPercentFD, \
> SeventyPercentFD, FiftyPercentFD, Frame -> True, PlotJoined ->
>       True, PlotRange -> {Automatic, {-1000000, 2000000}}, PlotStyle -> {{
>       Thickness[0.006], GrayLevel[.5]}, {Thickness[0.004], RGBColor[.8, 0,
>       0]}, {Thickness[0.002],
>         RGBColor[0.8, 0, 0]}, {Thickness[0.004], RGBColor[
>             0, 0, 0.6]}, {Thickness[0.002], RGBColor[0, 0,
>         0.6]}}, FrameTicks -> {{{1, "08"}, {2, "
>             09"}, {3, "10"}, {4, "11"}, {5, "
>           12"}, {6, "13"}, {7, "14"}, {8, "15
>             "}, {9, "16"}, {10, "17"}, {11, "18"}, {12, "
>           19"}, {13, "20"}, {14, "21"}, {15, "22
>             "}, {16, "Future"}}, {{-200000, "-200,000
>           "}, {0, "0"}, {500000, "500,000"}, {1000000, "1,000,000"}, {150=
0000,
>                "1,500,000"}, {
>           2000000, "2,000,000"}}, None, None},
>             GridLines -> {None, {0, 500000,
>               1000000, 1500000}}, FrameLabel -> {"Fiscal
>         Year Ending", "Funding Delta (\$000)
>               ", None, None}, SymbolShape -> {None, None},
>                TextStyle -> {FontFamily -> "Helvetica", FontSize -> 6,
>             ImageSize -> 100}, PlotLegend -> {StyleForm["
>             Original Funding Delta
>             ", FontFamily -> "Helvetica", FontSize -> 6], StyleForm["Stat=
us \
> Quo Allocation",
>           FontFamily -> "Helvetica", FontSize -> 6], StyleForm["90% of \
> Equipment Allocation", FontFamily -> "Helvetica", FontSize -> 6],
>             StyleForm["70% of
>               Equipment Allocation", FontFamily -> "Helvetica", FontSize =
-> \
> 6], StyleForm["50% of Equipment
>             Allocation", FontFamily -> "Helvetica", FontSize -> 6]},
>              LegendSize -> {1.3, .3}, LegendPosition -> {-.6, .3}, \
> LegendTextSpace -> 2, LegendSpacing -> .0001];

```

• Prev by Date: Re: Re: Fourier and InverseFourier
• Next by Date: Re: averaging sublists of different lengths
• Previous by thread: Re: Frustrated with Plotting
• Next by thread: Re: maximum entropy method for deconvolution