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.