       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 == 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: problem in expression
• Next by Date: Re: Use of names
• Previous by thread: Solve a couple mode equation with Mathematica.
• Next by thread: problem in expression