Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

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

Search the Archive

Split Screen

  • To: mathgroup at smc.vnet.net
  • Subject: [mg96046] Split Screen
  • From: "Jeff Albert" <albertj001 at hawaii.rr.com>
  • Date: Tue, 3 Feb 2009 06:31:35 -0500 (EST)

Help Appreciated.

The code below is my attempt to "draw" the following:

Split screen experiment showing the areas accessible to particles coming in
from the left of vertical axis and leaving to the right through two slits,
one at y= 4, the other at y= -4

The upper set of crossed lines represents the area accessible to particles
coming in from the slit at y=4.  The lower set represents the area
accessible to particles coming in from the slit at y= -4.

I want to shade the area where the upper and lower accessible areas (on both
sides of the vertical)  do not  intersect.

As you can see what I have done so far is exactly the opposite, shading the
area where they do intersect.

In addition I would like to eliminate all graph numbers, as well as the x
axis, and to have the lower set of crossed lines dashed instead of solid.

Can someone help?

<<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
RG=FilledPlot[{f1[x],f2[x],f3[x],f4[x]},{x,0,20},Fills
->{{{2,3},GrayLevel[.8]}}]
LG=FilledPlot[{f1[x],f2[x],f3[x],f4[x]},{x,-20,0},Fills
->{{{1,4},GrayLevel[.8]}}]
Show[RG,LG]


Jeff Albert



  • Prev by Date: Log[x]//TraditionalForm
  • Next by Date: FW: Split Screen
  • Previous by thread: Re: Re: Log[x]//TraditionalForm
  • Next by thread: FW: Split Screen