早教吧作业答案频道 -->其他-->
mathematica非线性拟合拟合的形式是Log((5.47-2*a+y)/(4*y-2*a))=1/150*b*x ,我有一批x相应y的数据,想求参数a、b.用mathematica应该怎么写啊?（包括x、y的录入方式也不知道.）
题目详情
mathematica非线性拟合
拟合的形式是Log((5.47-2*a+y)/(4*y-2*a))=1/150*b*x ,我有一批x相应y的数据,想求参数a、b.用mathematica应该怎么写啊?（包括x、y的录入方式也不知道.）
拟合的形式是Log((5.47-2*a+y)/(4*y-2*a))=1/150*b*x ,我有一批x相应y的数据,想求参数a、b.用mathematica应该怎么写啊?（包括x、y的录入方式也不知道.）
▼优质解答
答案和解析
data = {{1, 1.81747}, {2, 1.8204}, {3, 1.82137}, {4, 1.82186}, {5, 1.82216}, {6, 1.82235}, {7, 1.82249}, {8, 1.8226}, {9, 1.82268}, {10, 1.82275}, {11, 1.8228}, {12, 1.82284}, {13, 1.82288}, {14, 1.82291}, {15, 1.82294}, {16, 1.82297}, {17, 1.82299}, {18, 1.82301}, {19, 1.82302}, {20, 1.82304}};
solu = Flatten[Solve[Log[10,(5.47 - 2 a + y)/(4 y - 2 a)] == 1/(150 b x), y]];
fitparameter = (FindFit[data, y /. solu, {a, b}, x])
fit = y /. solu /.fitparameter;
Show[ListPlot[data, PlotStyle -> Red], Plot[fit, {x, 1, 20}]]
将上述代码中的data输入成你需要的数据点即可,最后一行代码中的{x, 1, 20}用来调整画图的定义域范围
solu = Flatten[Solve[Log[10,(5.47 - 2 a + y)/(4 y - 2 a)] == 1/(150 b x), y]];
fitparameter = (FindFit[data, y /. solu, {a, b}, x])
fit = y /. solu /.fitparameter;
Show[ListPlot[data, PlotStyle -> Red], Plot[fit, {x, 1, 20}]]
将上述代码中的data输入成你需要的数据点即可,最后一行代码中的{x, 1, 20}用来调整画图的定义域范围
看了 mathematica非线性...的网友还看了以下：
急具体解释语句的含义啊：随机产生N个两位整数按从大到小的顺序排列并显示输出dimena(10)fo 2020-05-13 …
求解线性代数设A是n阶矩阵，⑴若A满足矩阵方程A²-A+I=O，证明：A和I-A都可逆，并求解线性 2020-05-14 …
I a - b I + I ab I =2 的整数对（a,b)的个数有几个?I I这个是绝对值的符 2020-05-16 …
分时系统的特点是( )。 I.多路性 II.交互性 Ⅲ.独占性 IV.及时性A.I、II B.IIC 2020-05-23 …
关于这个题目中间那个例如a=Int(i/1000)int是什么意思啊?在线等谢谢诶PrivateS 2020-06-04 …
线性代数将二次型∑（Xi-X拔）^2表示成x’Ax其中x=（x1,x2……xn）'A为对称阵求出A 2020-06-22 …
线性代数选择题：设A,B为n阶矩阵,A且B与相似,则().(A)lAl=lBl(B)A与B有相同的 2020-07-20 …
C语言冒泡排序法，疑问啊~~~~~~~~~~~~~~~~~#include<stdio.h>#de 2020-07-23 …
下图所示的红绿色盲患者家系中，女性患者Ⅲ-9的性染色体只有一条X染色体，其他成员性染色体组成正常。Ⅲ 2020-11-02 …
关于基础指针好心人，帮我看看这道题啊！谢谢了，怎么错了呢？#include<stdio.h>void 2020-11-04 …