FW: Split Screen

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

```To all:

Never mind.  Got it.  Just a bit tedious, but one must patch sections of
graph together and it works.  Sorry.

Jeff Albert
>  -----Original Message-----
> From: 	Jeff Albert [mailto:albertj001 at hawaii.rr.com]
> Sent:	Mon, February 02, 2009 2:48 PM
> To:	mathgroup at smc.vnet.net
> Subject:	Split Screen
>
> 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: Split Screen
• Next by Date: Re: Simplifying and Rearranging Expressions
• Previous by thread: Split Screen
• Next by thread: Re: Taking sums across indices of a SparseArray efficiently