MathGroup Archive 2009

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

Search the Archive

Split Screen Redux

  • To: mathgroup at smc.vnet.net
  • Subject: [mg96076] Split Screen Redux
  • From: "Jeff Albert" <albertj001 at hawaii.rr.com>
  • Date: Wed, 4 Feb 2009 05:20:34 -0500 (EST)

Help wanted.

Okay.  Got the fill right.  But now I want lines 3 and 4 (the bottom crossed
lines) to be dashed.  Can't figure out how to do it.

<<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: symbolic matrix manipulation
  • Next by Date: Re: Log[x]//TraditionalForm
  • Previous by thread: Re: Loop programming; how do i do this ???
  • Next by thread: Re: Taking sums across indices of a