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}]