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

Frustrated with Plotting

  • To: mathgroup at smc.vnet.net
  • Subject: [mg75465] Frustrated with Plotting
  • From: ouadad <desmier.pe at forces.gc.ca>
  • Date: Wed, 2 May 2007 03:46:59 -0400 (EDT)

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: Fourier and InverseFourier
  • Next by Date: Re: Running a loop for Maximizing problem
  • Previous by thread: Re: Fourier and InverseFourier
  • Next by thread: Re: Frustrated with Plotting