MathGroup Archive 2011

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

Search the Archive

Problems Using Mathematica

  • To: mathgroup at
  • Subject: [mg117251] Problems Using Mathematica
  • From: Crystal <sbi.afolabi at>
  • Date: Sat, 12 Mar 2011 05:34:11 -0500 (EST)

Hello Friends,
I'm almost racking my head against the wall trying to solve this
problem... maybe because I'm new to Mathematica but there's no point
trying to learn without help from forums like this.

Here are my problems (I'm hoping the questions should render well in
Mathematica environment with copy/paste):

Problem 1

\[Bullet] Consider the following set of equations

{A E^(\[Alpha] Subscript[L, 1]) - C Cos[\[Gamma] Subscript[L, 1]] -
   B Sin[\[Gamma] Subscript[L, 1]] == 0,
 A E^(\[Alpha] Subscript[L, 1]) \[Alpha] -
   B \[Gamma] Cos[\[Gamma] Subscript[L, 1]] +
   C \[Gamma] Sin[\[Gamma] Subscript[L, 1]] ==
  0, -D E^(-\[Alpha] Subscript[L, 2]) + C Cos[\[Gamma] Subscript[L,
2]] +
   B Sin[\[Gamma] Subscript[L, 2]] == 0,
 D E^(-\[Alpha] Subscript[L, 2]) \[Alpha] +
   B \[Gamma] Cos[\[Gamma] Subscript[L, 2]] -
   C \[Gamma] Sin[\[Gamma] Subscript[L, 2]] == 0}


\[Alpha]^2 + \[Gamma]^2 == v^2

with given v and

L == -Subscript[L, 1] + Subscript[L, 2]

Derive the eigenvalue equation in terms of \[Gamma] and L with v as
the parameter.

Problem 2

\[Bullet] Given the reflection amplitude given by

B[z] == -((I E^(-(1/2) I z \[CapitalDelta]\[Beta]) A[0] Sinh[s (L -
\!\(\*SuperscriptBox["\[Kappa]", "*"]\))/(
  s Cosh[L s] + 1/2 I (I g + \[CapitalDelta]\[Beta]) Sinh[L s]))


s == Sqrt[-(1/
    4) (I g + \[CapitalDelta]\[Beta])^2 + \[LeftBracketingBar]\[Kappa]

the reflection gain is given by

Subscript[G, refl] == \[LeftBracketingBar]B[0]/A[0]\

For simplicity, put \[Kappa]=1,L=1 and find the lowest three numerical
solutions of \[CapitalDelta]\[Beta] and g for infinite gain.

Thanks so much

  • Prev by Date: Re: Learning maths with mathematica
  • Next by Date: Re: Set persistent default notebook window size and location
  • Previous by thread: Re: Create a notebook with both input and output cells
  • Next by thread: Re: Problems Using Mathematica