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.