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

MathGroup Archive 2014

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

Search the Archive

Running problem in DSolve

  • To: mathgroup at smc.vnet.net
  • Subject: [mg132155] Running problem in DSolve
  • From: saha18swarup at gmail.com
  • Date: Sun, 5 Jan 2014 05:27:05 -0500 (EST)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com
  • Delivered-to: l-mathgroup@wolfram.com
  • Delivered-to: mathgroup-outx@smc.vnet.net
  • Delivered-to: mathgroup-newsendx@smc.vnet.net

Dear Expert,
I have some problem running Mathematica  and it is taking too much time. Can you help me?

Regards 
Swarup

eqns = {AA'[x] + I*b*EE[x] + c*CC[x] + d*AA[x] == 0,
  BB'[x] - a*CC[x] + I*b*FF[x] - c*DD[x] + d*BB[x] == 0,
  CC'[x] + a*BB[x] + I*b*GG[x] + c*AA[x] + d*CC[x] == 0,
  DD'[x] + I*b*HH[x] - c*BB[x] + d*DD[x] == 0,
  EE'[x] + I*b*AA[x] - c*GG[x] - I*e*BB[x] + d*EE[x] == 0,
  FF'[x] - a*GG[x] + I*b*BB[x] + c*HH[x] - I*e*AA[x] + d*FF[x] == 0,
  GG'[x] + a*FF[x] + I*b*CC[x] - c*EE[x] - I*e*DD[x] + d*GG[x] == 0,
  HH'[x] + I*b*DD[x] + c*FF[x] - I*e*CC[x] + d*HH[x] == 0}

ic = {AA[0] == 1, BB[0] == 0, CC[0] == 0, DD[0] == 0, EE[0] == 1,
  FF[0] == 0, GG[0] == 0, HH[0] == 0}

DSolve[{eqns, ic}, {AA, BB, CC, DD, EE, FF, GG, HH}, x]



  • Prev by Date: Re: Step-By-Step Solutions No Longer working?
  • Next by Date: Re: For 2014?
  • Previous by thread: Re: For 2014?
  • Next by thread: Re: Running problem in DSolve