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