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

MathGroup Archive 2009

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

Search the Archive

Solve a couple mode equation with Mathematica.

  • To: mathgroup at smc.vnet.net
  • Subject: [mg99888] Solve a couple mode equation with Mathematica.
  • From: jty112 at psu.edu
  • Date: Mon, 18 May 2009 06:17:43 -0400 (EDT)

To whom my concern,

w = 2 *\[Pi]*f;
c = 3*10^8;
nnl = 0.01;
L = 3000*10^-6;
eqns1 = A1'[z] == -(w/c)*(2*nnl)/\[Pi]*((Abs[A1 (z)])^2 + (Abs[A2 (z)])
^2)*A2[z];
eqns2 = A2'[z] == -(w/c)*(2*nnl)/\[Pi]*((Abs[A1 (z)])^2 + (Abs[A2 (z)])
^2)*A1[z];
eqns3 = A1[0] == 1;
eqns4 = A2[L] == 0;
DSolve[{eqns1, eqns2, eqns3, eqns4}, {A1[z], A2[z]}, z]

I am trying solve A1[z] and A2[z] in terms of f.

Any help will be appreciated.

Thanks.


  • Prev by Date: Re: "SelectionData" and palettes
  • Next by Date: problem in expression
  • Previous by thread: Followup question: Problem with parallel evaluation of integrals depending on a parameter
  • Next by thread: Re: Solve a couple mode equation with Mathematica.