作业帮 > 综合 > 作业

几组{x,y}数据,用Mathematica软件如何拟合出y=ax^b曲线,要求出a,b.搜到个差不多题目的回答,试了下

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/16 01:35:16
几组{x,y}数据,用Mathematica软件如何拟合出y=ax^b曲线,要求出a,b.搜到个差不多题目的回答,试了下不行
数据是{{1, 7.21}, {2, 6.88}, {4, 6.32}, {8, 5.84}}
试了下第三个回答的方法,还是不行.
你的几组{x,y}数据是什么样的格式?
你应将几组{x,y}数据,
data1 = {{1.0, 12.}, {1.9, 10.}};
data2 = { {2.6, 8.2}, {3.4, 6.9}, {5.0, 5.9}};
整合成如下格式:
data = {{1.0, 12.}, {1.9, 10.}, {2.6, 8.2}, {3.4, 6.9}, {5.0, 5.9}};
再用FindFit拟合.
例如:
data = {{1.0, 12.}, {1.9, 10.}, {2.6, 8.2}, {3.4, 6.9}, {5.0, 5.9}};
model = a*x^b;
fit = FindFit[data, model, {a, b}, x]
modelf = Function[{x}, Evaluate[model /. fit]]
再问: 数据是{{1, 7.21}, {2, 6.88}, {4, 6.32}, {8, 5.84}}
再答: data = {{1, 7.21}, {2, 6.88}, {4, 6.32}, {8, 5.84}}; model = a*x^b; fit = FindFit[data, model, {a, b}, x] modelf = Function[{x}, Evaluate[model /. fit]]
再问: ReplaceAll::"reps": "\!\({\(\[LeftSkeleton] 1 \[RightSkeleton]\)}\) is \ neither a list of replacement rules nor a valid dispatch table, and so cannot \ be used for replacing." 还是有问题。。。。
再答: 你重装或换一个版本的Mathematica
再问: 主要是因为学校机房的是4.0版本的,老师用的貌似也是。 我试试下最新版本。