完整解答：
Remove["Global`*"];
temp = {100, 150, 200, 250, 270, 280};
denliq = {1.4343, 1.3215, 1.1888, 0.9980, 0.8666, 0.7634};
denvap = {.0103, .0304, .0742, .1754, .2710, .3597};
density = (denliq + denvap)/2;
data = Table[{temp[[a]], density[[a]]}, {a, 1, 6}];
datafit = Fit[data, {1, t}, t];
Print [datafit];
answer = datafit[t = 283.1];
Print [answer];
聰明的你一定看得出來，只要換一些數字就可以適用1.26及所有線性回歸的題目。
（Mathematica的Fit功能甚至可以Fit任何冪次和常見函數組成的曲線）
--
※ 發信站: 批踢踢實業坊(ptt.csie.ntu.edu.tw)
◆ From: 210.85.1.31
※ 編輯: longface 來自: 210.85.1.31 (02/27 23:50)