Path: csiph.com!v102.xanadu-bbs.net!xanadu-bbs.net!news.glorb.com!peer01.iad.highwinds-media.com!news.highwinds-media.com!feed-me.highwinds-media.com!nx01.iad01.newshosting.com!newshosting.com!newspump.sol.net!posts.news.twtelecom.net!nnrp3.twtelecom.net!not-for-mail From: Zhu Sha Zang Newsgroups: comp.soft-sys.math.mathematica Subject: Re: Running problem in DSolve Date: Mon, 6 Jan 2014 07:29:36 +0000 (UTC) Sender: steve@smc.vnet.net Approved: Steven M. Christensen , Moderator Message-ID: References: <20140105102705.492E969EB@smc.vnet.net> Lines: 40 Organization: Time-Warner Telecom NNTP-Posting-Date: 06 Jan 2014 07:34:46 GMT NNTP-Posting-Host: 52d6ee8a.news.twtelecom.net X-Trace: DXC=5:\VMBXoRSZ`NIIejLkL`^C_A=>8kQj6];[h;PUXBgbT?SWP;HjUf@VEFiONJ7[GoV8YXW 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] > - -- - --- Rodolfo T. da Silva