Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2007
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2007

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

Search the Archive

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