Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2007

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

Search the Archive

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


  • 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