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.