拟合x1和y之间的曲线,用12次多项式拟合
x1 = {1.5,1.5,2,2,2.5,2.5,2.5,2.5,3,3,3,3};
y = {1,0.99,0.98,0.97,0.98,0.975,0.97,0.965,0.975,0.97,
0.965,0.96};
data = Table[{x1[[i]],y[[i]]},{i,1,Length[x1]}]
p1 = Fit[data,{1,x,x^2,x^3,x^4,x^5,x^6,x^7,x^8,x^9,x^10,
x^11,x^12},x]
Show[ListPlot[data,PlotStyle -> Red],Plot[p1,{x,1,3}]]
输出
0.968628 + 0.062384 x - 0.0192278 x^2 - 0.00727978 x^3 -
0.000960493 x^4 + 0.000212047 x^5 + 0.000183664 x^6 +
0.0000720644 x^7 + 0.0000200974 x^8 + 3.65551*10^-6 x^9 -
1.29406*10^-7 x^10 - 5.40089*10^-7 x^11 - 3.46969*10^-7 x^12
所以可以用2次曲线拟合就可以得到比较好的结果
p2 = Fit[data,{1,x,x^2},x]
输出
1.07467 - 0.0725 x + 0.0123333 x^2
mathematica怎么拟合多项式方程
mathematica怎么拟合多项式方程
x1=[1.5 1.5 2 2 2.5 2.5 2.5 2.5 3 3 3 3];x2=[0.05 0.1 0.15 0.2 0.05 0.1 0.15 0.2 0.05 0.1 0.15 0.2];y=[1 0.99 0.98 0.97 0.98 0.975 0.97 0.965 0.975 0.97 0.965 0.96];求Y等于X1,X2的函数表达式.怎么用mathematica做啊!初学者请教各位高手 非常感谢了啊
x1=[1.5 1.5 2 2 2.5 2.5 2.5 2.5 3 3 3 3];x2=[0.05 0.1 0.15 0.2 0.05 0.1 0.15 0.2 0.05 0.1 0.15 0.2];y=[1 0.99 0.98 0.97 0.98 0.975 0.97 0.965 0.975 0.97 0.965 0.96];求Y等于X1,X2的函数表达式.怎么用mathematica做啊!初学者请教各位高手 非常感谢了啊
数学人气:888 ℃时间:2020-02-03 10:24:09
优质解答
我来回答
类似推荐
猜你喜欢
- 1中秋节作文的开头与结尾
- 2四氧化三铁和盐酸反应
- 3英语作文标点
- 4松鼠的体长在20厘米到30厘米之间,它的尾巴约占体长的四分之三,它的尾巴最短约有多长?最长约有多长?
- 5硫酸亚铁溶液和氢氧化钠溶液反应的化学方程式
- 6下列有语病的句子错在哪里?1.这次外出比赛,我一定说服老师和你一起去,这样你就不会太紧张了,……
- 7一定质量的氧气中含有1mol e,则氧气的质量是
- 8给手机电池充电事实上是将电能转化为化学能.小诚在充电时发现电池表面有些发烫,从中我们可以知道,充电时消耗的电能---电池获得的化学能,因为-----------------
- 9变上限积分求导的一点问题
- 10如图,抛物线y=ax2+bx+3与y轴交于点C,与x轴交于A、B两点,tan∠OCA=1/3,S△ABC=6. (1)求点B的坐标; (2)求抛物线的解析式及顶点坐标; (3)设点E在x轴上,点F在抛物线上,如果A、C、E、