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

MathGroup Archive 2009

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

Search the Archive

Titles/Labels in Graphics

  • To: mathgroup at smc.vnet.net
  • Subject: [mg96200] Titles/Labels in Graphics
  • From: "Jeff Albert" <albertj001 at hawaii.rr.com>
  • Date: Mon, 9 Feb 2009 05:34:11 -0500 (EST)

To all:

The code that follows produces the two graphics at bottom.  I want to have a
label above the rightmost vertical line in each graphic ("Detector") that is
the same size and placement as the label above the y axis.

Using the "Text" command Mathematica keeps squeezing the graphics.  I want
them to retain their same size and proportionality.

Anyone have any ideas?

Thanks,

Jeff Albert

<<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[{.03}]
,Dashing[{.03}]}];
RG1uB=FilledPlot[{f1[x],f2[x]},{x,0,20},Fills ->{{{1,2},GrayLevel[.8]}}];
RG2u=FilledPlot[{f1[x],f2[x],f3[x],f4[x]},{x,10,20},Fills
->{{{1,3},GrayLevel[.8]}},PlotStyle->{Dashing[{}],Dashing[{}],Dashing[{.03}]
,Dashing[{.03}]}];
RG2uB=FilledPlot[{f1[x],f2[x]},{x,10,20},Fills
->{{{1,2},GrayLevel[.8]}},PlotStyle->{Dashing[{}],Dashing[{}],Dashing[{.03}]
,Dashing[{.03}]}];
LG1u=FilledPlot[{f1[x],f2[x],f3[x],f4[x]},{x,-20,-10},Fills
->{{{2,4},GrayLevel[.8]}},PlotStyle->{Dashing[{}],Dashing[{}],Dashing[{.03}]
,Dashing[{.03}]}];
LG2u=FilledPlot[{f1[x],f2[x],f3[x],f4[x]},{x,-10,0},Fills
->{{{2,1},GrayLevel[.8]}},PlotStyle->{Dashing[{}],Dashing[{}],Dashing[{.03}]
,Dashing[{.03}]}];
RG1d=FilledPlot[{f1[x],f2[x],f3[x],f4[x]},{x,0,10},Fills
->{{{4,3},GrayLevel[.8]}},PlotStyle->{Dashing[{}],Dashing[{}],Dashing[{.03}]
,Dashing[{.03}]}];
RG2d=FilledPlot[{f1[x],f2[x],f3[x],f4[x]},{x,10,20},Fills
->{{{2,4},GrayLevel[.8]}},PlotStyle->{Dashing[{}],Dashing[{}],Dashing[{.03}]
,Dashing[{.03}]}];
LG1d=FilledPlot[{f1[x],f2[x],f3[x],f4[x]},{x,-20,-10},Fills
->{{{1,3},GrayLevel[.8]}},PlotStyle->{Dashing[{}],Dashing[{}],Dashing[{.03}]
,Dashing[{.03}]}];
LG2d=FilledPlot[{f1[x],f2[x],f3[x],f4[x]},{x,-10,0},Fills
->{{{4,3},GrayLevel[.8]}},PlotStyle->{Dashing[{}],Dashing[{}],Dashing[{.03}]
,Dashing[{.03}]}];
$TextStyle={FontFamily->"Times", FontSize->10};
Screen1={{40,60},{40,-60}};
Scr=ListPlot[%,PlotJoined->True];
Show[Scr,RG1u, RG2u,RG1d,RG2d,Ticks->{None,{ {4,"SLIT 1 (open) *"},{-4,"SLIT
2 (open) *" }}},Axes->{False,True},AxesLabel->" DOUBLE SLIT SCREEN"];
 
Show[Scr,RG1uB, RG2uB,Ticks->{None,{ {4,"SLIT 1 (open) *"},{-4,"SLIT 2
(shut) *" }}},Axes->{False,True},AxesLabel->" DOUBLE SLIT SCREEN "];
 


  • Prev by Date: Data interpolation
  • Next by Date: Re: Log[x]//TraditionalForm
  • Previous by thread: Re: Data interpolation
  • Next by thread: "mapping" functions over lists, again!