Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

[Date Index] [Thread Index] [Author Index]

Search the Archive

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.



  • 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