Re: Manipulate+Plot showing no output
- To: mathgroup at smc.vnet.net
- Subject: [mg81853] Re: Manipulate+Plot showing no output
- From: janos <janostothmeister at gmail.com>
- Date: Fri, 5 Oct 2007 04:45:34 -0400 (EDT)
- References: <fe29g7$n7i$1@smc.vnet.net>
On okt. 4, 10:50, Sooraj R <soorajrnamb... at yahoo.com> wrote:
> 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...
Alpha received no values yet.