Re: Solve a couple mode equation with Mathematica.

*To*: mathgroup at smc.vnet.net*Subject*: [mg99908] Re: Solve a couple mode equation with Mathematica.*From*: "Sjoerd C. de Vries" <sjoerd.c.devries at gmail.com>*Date*: Tue, 19 May 2009 06:43:48 -0400 (EDT)*References*: <gurck1$gr8$1@smc.vnet.net>

Some function brackets you use are '( )' instead of the required '[ ]' Cheers -- Sjoerd On May 18, 12:17 pm, jty... at psu.edu wrote: > 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.