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分
