用Mathematica求变化方程

题目

用Mathematica求变化方程
time(h) concentrition(mg/L)
2.5 30.4364
5 68.7273
7.5 75.6
10 82.4727
15 82.1455
20 77.2364
25 68.7273
30 68.7273
35 58.5818
40 51.3818
45 50.0727
50 41.8909
60 38.6182
70 35.3455
80 28.4727
90 25.2
100 18.9818
110 15.0545
120 12.1091
130 11.1273
140 7.2
150 7.2
160 3.92727
这是数据~希望有人能帮我用mathematica求一下浓度随时间变化的方程馁~希望详细一些 我比较笨馁~
哈哈~o(∩_∩)o...

答案

做直线拟合：Fit[data,{1,x},x]
72.7306 - 0.477302 x
二次和三次的依次是：
75.5695 - 0.610861 x + 0.000873775 x^2
67.3036 + 0.12403 x - 0.0113442 x^2 + 0.0000520347 x^3