MathGroup Archive 2003

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

Search the Archive

Simultaneous equation just give Bus error

  • To: mathgroup at smc.vnet.net
  • Subject: [mg40008] Simultaneous equation just give Bus error
  • From: "AISPHD07" <someone at kellogg.nwu.edu>
  • Date: Fri, 14 Mar 2003 04:47:48 -0500 (EST)
  • Organization: Northwestern University, Evanston, IL, US
  • Sender: owner-wri-mathgroup at wolfram.com

Hi,
I have serious trouble solving a system of 12 equations all of which are
exponential. Does anybody know, what how to deal with them? So far, even
after the job was running for several hours it just gave "Bus error".

Thanks in advance!
Anne.

here is the system of equations, and the Solve-command I used:

Eq1=Exp[-r*Q]*(d[1]-a[1])+b*e[2]*Exp[-r*P]==0,



Eq2=c[1]+d[1]*a[1]-0.5*a[1]*a[1]-0.5*r*s*s*d[1]*d[1]==Q



Eq3=c[2]+d[2]*a[2]+e[2]*a[1]-0.5*a[1]*a[1]-0.5*r*s*s*d[2]*d[2]==P



Eq4=a[2]-d[2]==0



Eq5=-Exp[-r*Q]-b*Exp[-r*P]-t==0



Eq6=-p-b(l[1]*e[2]-m)*Exp[-r*P]*r==0



Eq7=-1+(l[1]*(d[1]-a[1])-m)*Exp[-r*Q]*(-r)==0



Eq8=1-d[1]-(r*l[1]*(d[1]-a[1])*(d[1]-a[1])-m*r*(d[1]-a[1])-l[1])*Exp[-r*Q]==
0



Eq9=p*(1-d[2])+l[2]+(l[1]*b*e[2]-m*b)*Exp[-r*P]*(-r*(d[2]-a[2]))==0



Eq10=-a[1]+(l[1]*(d[1]-a[1])-m)*Exp[-r*Q]*(-r*(a[1]-r*d[1]*s*s))+l[1]*Exp[-r
*Q]==0



Eq11=-p*a[2]-l[2]+(l[1]*b*e[2]-m*b)*Exp[-r*P]*(-r*(a[2]-r*d[2]*s*s))==0



Eq12=-p*a[1]+l[1]*b*(Exp[-r*P]+e[2]*Exp[-r*P]*(-r*(a[1]-r*s*s*e[2])))-m*b*Ex
p[-r*P]*(-r*(a[1]-r*s*s*e[2]))==0



Solve[{Eq1,Eq2,Eq3,Eq4,Eq5,Eq6,Eq7,Eq8,Eq9,Eq10,Eq11,Eq12},{a[1],a[2],d[1],d
[2],c[1],c[2],e[2],l[1],l[2],m,P,Q}]





  • Prev by Date: Re: general solution for element of series
  • Next by Date: Re: Re: This should evaluate to zero
  • Previous by thread: RE: RE: How to apply one plot range to another plot?
  • Next by thread: Re: a question about Hazard Rate - HazardRate.nb (1/1)