|
发表于 2007-7-21 11:50:56
|
显示全部楼层
A1 = -Log[
0.842 + A12*0.158] +
0.158*(A12/(
0.842 + A12*0.158) - A21/(0.158 + A21*0.842)) - Log[1.0082];
A2 = -Log[0.158 + A21*0.842] + 0.842*(A21/(0.158 + A21*0.842) - A12/(0.842 +
A21*0.158)) - Log[1.6719];
FindRoot[{A1 == 0, A2 == 0}, {{A12, 1.01818}, {A21, 0.3378}}]
{A12 -> 0.205253, A21 -> 1.24694}
mathematica也是这个结果撒
醉兄可以放心咯
我这可是严格的在你要求的邻域求解的萨 
今天忽然想起这事来了,赫赫 |
|