Services & ResourcesWolfram ForumsMathGroup Archive

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

Dashing (Again)

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

To all:

Okay.  Sorry.  Got it . . . Finally.  Probably not the most elegant way to
do it, but it works.  Apologies to anyone who tried to make sense of my
earlier messages.  Final code is:

<<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]}},PlotStyle->{Dashing[{}],Dashing[{}],Dashing[{.06}],Dashing[{.06}]}];

RG2u=FilledPlot[{f1[x],f2[x],f3[x],f4[x]},{x,10,20},Fills ->{{{1,3},GrayLeve
l[.8]}},PlotStyle->{Dashing[{}],Dashing[{}],Dashing[{.06}],Dashing[{.06}]}];

LG1u=FilledPlot[{f1[x],f2[x],f3[x],f4[x]},{x,-20,-10},Fills ->{{{2,4},GrayLe
vel[.8]}},PlotStyle->{Dashing[{}],Dashing[{}],Dashing[{.06}],Dashing[{.06}]}
];

LG2u=FilledPlot[{f1[x],f2[x],f3[x],f4[x]},{x,-10,0},Fills ->{{{2,1},GrayLeve
l[.8]}},PlotStyle->{Dashing[{}],Dashing[{}],Dashing[{.06}],Dashing[{.06}]}];

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

RG2d=FilledPlot[{f1[x],f2[x],f3[x],f4[x]},{x,10,20},Fills ->{{{2,4},GrayLeve
l[.8]}},PlotStyle->{Dashing[{}],Dashing[{}],Dashing[{.06}],Dashing[{.06}]}];

LG1d=FilledPlot[{f1[x],f2[x],f3[x],f4[x]},{x,-20,-10},Fills ->{{{1,3},GrayLe
vel[.8]}},PlotStyle->{Dashing[{}],Dashing[{}],Dashing[{.06}],Dashing[{.06}]}
];

LG2d=FilledPlot[{f1[x],f2[x],f3[x],f4[x]},{x,-10,0},Fills ->{{{4,3},GrayLeve
l[.8]}},PlotStyle->{Dashing[{}],Dashing[{}],Dashing[{.06}],Dashing[{.06}]}];

$TextStyle={FontFamily->"Times", FontSize->10}

{FontFamily -> "Times",
 FontSize -> 10,FontWeight->"Bold"}{FontFamily -> "Times",
 FontSize -> 10}{FontFamily -> "Times", FontSize -> 10}{FontFamily ->
"Times", FontSize -> 10}{FontFamily -> "Times", FontSize ->
10}{FontFamily -> "Times", FontSize -> 10}



Show[RG1u, RG2u,LG1u, LG2u,RG1d,RG2d,LG1d,LG2d,Ticks->{None,{ {4,"SLIT 1
\[LongRightArrow]"},{-4,"SLIT 2
\[LongRightArrow]" }}},Axes->{False,True},AxesLabel->" DOUBLE SLIT SCREEN
"];