Re: Frustrated with Plotting

• To: mathgroup at smc.vnet.net
• Subject: [mg75507] Re: Frustrated with Plotting
• From: dh <dh at metrohm.ch>
• Date: Thu, 3 May 2007 03:49:51 -0400 (EDT)
• References: <f19fon\$4ot\$1@smc.vnet.net>

```
\$Version= 5.1 for Microsoft Windows (October 25, 2004)

Hi,

seems to work for my version of Mathematica.

Daniel

ouadad wrote:

> 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"}, {1500000,

>                "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["Status \

> 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: averaging sublists of different lengths
• Next by Date: Re: averaging sublists of different lengths
• Previous by thread: Frustrated with Plotting
• Next by thread: Re: Frustrated with Plotting