物化習題1.8 mathematica版

[longface (天道恰似零分之零)]

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}];
Fit[data, {1, t}, t]

上述程式的重點是線性回歸。
用mathematica，拷進上述程式後按Shift+Enter即出現線性回歸解。

--
※ 發信站: 批踢踢實業坊(ptt.csie.ntu.edu.tw)
◆ From: 210.85.1.31
※ 編輯: longface        來自: 210.85.1.31          (02/27 23:31)
→ dee:let me die...