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

MathGroup Archive 2007

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

Search the Archive

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