Manipulate+Plot showing no output
- To: mathgroup at smc.vnet.net
- Subject: [mg81840] Manipulate+Plot showing no output
- From: Sooraj R <soorajrnambiar at yahoo.com>
- Date: Thu, 4 Oct 2007 04:34:04 -0400 (EDT)
Hii all
with
ta = 0.9;
tb = 0.9;
ka = Sqrt[1 - ta^2];
kb = Sqrt[1 - tb^2];
\[Omega] = (2*10^15)/\[Lambda];
L = 100 \[Pi];
T = 2.6*10^-12;
out1 = (ta - tb*(Exp[-\[Alpha] L/2])*Exp[\[ImaginaryI]
\[Omega] T])/(
1 - ta*tb*(Exp[-\[Alpha] L/2])*Exp[\[ImaginaryI]
\[Omega] T]);
out2 = (-ka kb Exp[-\[Alpha] L/4] Exp[\[ImaginaryI]
\[Omega] T/2])/(
1 - ta tb Exp[-\[Alpha] L/2] Exp[\[ImaginaryI]
\[Omega] T]);
Manipulate[
Plot[Evaluate[(Abs[out1])^2], {\[Lambda], 1.54,
1.56},
PlotRange -> {0, 1}, AxesLabel -> {"\[Lambda]",
"out1"}], {\[Alpha],
1, 100, 1}]
Manipulate[
Plot[Evaluate[(Abs[out2])^2], {\[Lambda], 1.54,
1.56},
PlotRange -> {0, 1}, AxesLabel -> {"\[Lambda]",
"out2"}], {\[Alpha],
1, 100, 1}]
I dont see any output graph for expressions out1 and
out2.
Can some one tell me what mistake I have done?
Mathematica version is 6.0
Many thanks
Sooraj
____________________________________________________________________________________
Got a little couch potato?
Check out fun summer activities for kids.
http://search.yahoo.com/search?fr=oni_on_mail&p=summer+activities+for+kids&cs=bz