Mathematica 有个复杂方程组解不出,急求请大家帮帮忙

Solve[{a*Log[(4.6*10^(-7)*x*a)/(m*c)] + ((1 - a))*Log[(1/(m*n))((3.196*10^(-8)*x*((1 - a))))] + a*((1 - a))*(-4260)/(8.31*1273) == 0, a*Log[(9.27*10^(-5)*a*y)/(v*c)] + ((1 - a))*Log[(1/(v*n))((3.19*10^(-8)*y*((1 - a))))] + a*((1 - a))*(-4260)/(8.31*1273) == 0, a* Log[(1/(t*c))((4.22*10^(-7)*a*((1 - x - y))))] + ((1 - a))*Log[(1/(t*n))((5.09*10^(-10)*((1 - x - y))*((1 - a))))] + a*((1 - a))*(-4260)/(8.31*1273) == 0, y*a*Log[(x*v*4.6*10^(-7))/(y*m*9.27*10^(-5))] + ((1 - x - y))*((1 - a))* Log[((m*((1 - x - y))*5.09*10^(-10)))/((x*t*3.196*10^(-8)))] + ((1 - a))* Log[(1/(m*n))((x*((1 - a))*3.19*10^(-7)))] + a^2*((1 - a))*(-4260)/(8.31*1273) == 0, 0.000137 == x*f/2 + ((1 - f))*m, 0.000337 == y*f/2 + ((1 - f))* v, 0.0000142 == ((1 - x - y))* f/2 + ((1 - f))*t, 0.0074 == a*f/2 + ((1 - f))*c, 0.00013 == ((1 - a))* f/2 + ((1 - f))*n}, {m, v, t, c, n, x, y, a, f}])

第1个回答  2010-09-12
用NSolve解吧,数值解估计可以得到
你可以去学问社区把这个帖子发上去,那里讨论挺热闹的
第2个回答  2010-09-08
呵呵 这个是挺复杂 的 mathematica内部的算法 完成这样的问题谁知道要多长时间啊。。。
有的数据相差很大啊,自己找看看是否有单独可以解出局部解得方程 再依次解看看本回答被提问者采纳
第3个回答  2010-09-07
楼主,能给出方程么??有问题联系啊~~~~
相似回答