       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

```

• Prev by Date: Re: Help with solving ODE
• Next by Date: Re: Multiple nests?
• Previous by thread: Re: Re: problem with contourplot
• Next by thread: Re: Manipulate+Plot showing no output