       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>

```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

```

• Prev by Date: Re: Can Integrate[expr,{x,a,b}] give an incorrect result?
• Next by Date: Re: Functions with data hidden in them
• Previous by thread: Re: Manipulate+Plot showing no output
• Next by thread: Optional arguments & FilterRules