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.