Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

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

Search the Archive

Dashing

  • To: mathgroup at smc.vnet.net
  • Subject: [mg96098] Dashing
  • From: "Jeff Albert" <albertj001 at hawaii.rr.com>
  • Date: Thu, 5 Feb 2009 04:37:41 -0500 (EST)

To all,

In the following I want lines 1 and 2, solid, lines 3 and 4, dashed.  Can't
figure out how to do it.  I used documentation but each permutation I try I
get an error message.

Jeff Albert

<<Graphics`FilledPlot`
f1[x_]= a+.4*(b*x);
f2[x_]=a-.4*(b*x);
f3[x_]= a1+.4*(b*x);
f4[x_]=a1-.4*(b*x);
a=4;
a1=-4;
b=1;
RG1u=FilledPlot[{f1[x],f2[x],f3[x],f4[x]},{x,0,10},Fills
->{{{1,2},GrayLevel[.8]}}];

RG2u=FilledPlot[{f1[x],f2[x],f3[x],f4[x]},{x,10,20},Fills
->{{{1,3},GrayLevel[.8]}}];

LG1u=FilledPlot[{f1[x],f2[x],f3[x],f4[x]},{x,-20,-10},Fills
->{{{2,4},GrayLevel[.8]}}];
    .

LG2u=FilledPlot[{f1[x],f2[x],f3[x],f4[x]},{x,-10,0},Fills
->{{{2,1},GrayLevel[.8]}}];
    .

RG1d=FilledPlot[{f1[x],f2[x],f3[x],f4[x]},{x,0,10},Fills
->{{{4,3},GrayLevel[.8]}}];
    .

RG2d=FilledPlot[{f1[x],f2[x],f3[x],f4[x]},{x,10,20},Fills
->{{{2,4},GrayLevel[.8]}}];
    .

LG1d=FilledPlot[{f1[x],f2[x],f3[x],f4[x]},{x,-20,-10},Fills
->{{{1,3},GrayLevel[.8]}}];

LG2d=FilledPlot[{f1[x],f2[x],f3[x],f4[x]},{x,-10,0},Fills
->{{{4,3},GrayLevel[.8]}}];

Show[RG1u, RG2u,LG1u, LG2u,RG1d,RG2d,LG1d,LG2d];


Jeff Albert





  • Prev by Date: Re: Loop programming; how do i do this ???
  • Next by Date: Re: Re: Printing (v7)
  • Previous by thread: Re: weighted averages from 2 matrices
  • Next by thread: Dashing (Again)