Re: Manipulate+Plot showing no output
- To: mathgroup at smc.vnet.net
- Subject: [mg81858] Re: [mg81840] Manipulate+Plot showing no output
- From: DrMajorBob <drmajorbob at bigfoot.com>
- Date: Fri, 5 Oct 2007 04:48:09 -0400 (EDT)
- References: <20408172.1191519356952.JavaMail.root@m35>
- Reply-to: drmajorbob at bigfoot.com
This works:
Manipulate[
out1 = (ta -
tb*(Exp[-\[Alpha] L/2])*Exp[\[ImaginaryI] \[Omega] T])/(1 -
ta*tb*(Exp[-\[Alpha] L/2])*Exp[\[ImaginaryI] \[Omega] T]);
Plot[Abs[out1]^2, {\[Lambda], 1.5, 1.6}, PlotRange -> All,
AxesLabel -> {"\[Lambda]", "out1"}], {\[Alpha], 1, 100, 1}]
The plot is the same flat line for every alpha, however... since out1
doesn't change much when lambda changes:
out1 // Cancel
(0.9- 6.652958845731588*10^-6277 \[ExponentialE]^((
5200. \[ImaginaryI])/\[Lambda]))/(1.-
5.987662961158429*10^-6277 \[ExponentialE]^((
5200. \[ImaginaryI])/\[Lambda]))
and it doesn't depend on alpha AT ALL.
Bobby
On Thu, 04 Oct 2007 03:34:04 -0500, Sooraj R <soorajrnambiar 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
>
>
> ___________________________________________________________________________
--
DrMajorBob at bigfoot.com