求助,如何提取出方程的解
mathematica吧
全部回复
仅看楼主
level 4
我想提取出NSolve里面解出的x1,x2的值存放在一个新的数组里面方面调用,这个过程要怎么实现。。。在线等 求大神解救
2016年03月21日 03点03分 1
level 4
x11 = 120;
x22 = 70;
tgg = 85;
thh = 60;
b = 0.3;
tn = 18;
tt = N[((x11 - tgg) - (x22 - thh))/Log[(x11 - tgg)/(x22 - thh)], 5];
q = {1, 0.5, 0.35}
tg = tn + 0.5*(tgg + thh - 2*tn)*q^(1/(1 + b)) + 0.5*(tgg - thh)*q;
th = tn + 0.5*(tgg + thh - 2*tn)*q^(1/(1 + b)) - 0.5*(tgg - thh)*q;
Do[NSolve[(x1 - x2)/(x11 - x22) ==
q[[i]] && ((x1 - tg[[i]]) - (x2 - th[[i]]))/(tt*
Log[(x1 - tg[[i]])/(x2 - th[[i]])]) == q[[i]], {x1, x2},
4], {i, 1, 3, 1}]
2016年03月21日 03点03分 2
level 1
Do改成Table
2016年03月21日 04点03分 3
{{{x1 -> 120., x2 -> 70.}}, {{x1 -> 73.7268, x2 -> 48.7268}}, {{x1 -> 58.9291, x2 -> 41.4291}}}
2016年03月21日 04点03分
@play9937 看到你的回复瞬间想通了啊啊啊啊啊
2016年03月21日 04点03分
1