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]; >