用Mathematica 利用非线性最小二乘法 实现曲线拟合 代码如下data = {{0,0},{0.000115,0.09},{0.000173,0.13},{0.000231,0.17},{0.000346,0.23},{0.000461,0.25},{0.0005,0.24}};model = D^2/(D^2 + (0.7 D + 2416.4)^2)*(Sin[0.5*x*Sqrt[D*D + (0.

来源：学生作业帮助网 编辑：作业帮 时间：2024/11/27 19:41:56
用Mathematica 利用非线性最小二乘法 实现曲线拟合 代码如下data = {{0,0},{0.000115,0.09},{0.000173,0.13},{0.000231,0.17},{0.000346,0.23},{0.000461,0.25},{0.0005,0.24}};model = D^2/(D^2 + (0.7 D + 2416.4)^2)*(Sin[0.5*x*Sqrt[D*D + (0.
xU]oG+hͲ[B_h"#vMIv͂rjl1KY>gvfvrg\Kyi(/j{9qǁOk71jdx-\M^QAB:*)6:#')th{"/&((I+wd۲MsnK`w%/;6&oW64_.['灅l_^,< ,O~z,oVρD'~,v"8!+BG`Ks?@$_$4eY4yݯ蚗 Pl̽xyvCH7?r@$ Ey`=|n?ri7Qz!(9F5%G34\d55kŤwNI&gV ;FnmB6J4nVs;>L֒ ލ3iXA]S;pY#n@/p+mS2j_h .OjNv'k~?r6JM=Osx{&j>NazWtpW+m'V8ڠ.o%@]P鐄eYr,(S.s1_6C@3XÕKt'!I0 e$4Ou0Vߴf:{{%HVeiQ@'{@2*PYh69MO@FctgpsYM4иQЌKQoBt@| ך@Lr¤5H١S>U ^v.aqt8|e2*R*[<wˤv[S3؄̴, \S &}x!4n3S܀|Y8 VʃC\m3 `5Q_a7BoٓN9x][&:"-cHpf ?Q D!7}u

用Mathematica 利用非线性最小二乘法 实现曲线拟合 代码如下data = {{0,0},{0.000115,0.09},{0.000173,0.13},{0.000231,0.17},{0.000346,0.23},{0.000461,0.25},{0.0005,0.24}};model = D^2/(D^2 + (0.7 D + 2416.4)^2)*(Sin[0.5*x*Sqrt[D*D + (0.
用Mathematica 利用非线性最小二乘法 实现曲线拟合
代码如下
data = {{0,0},{0.000115,0.09},{0.000173,0.13},{0.000231,0.17},{0.000346,0.23},{0.000461,0.25},{0.0005,0.24}};
model = D^2/(D^2 + (0.7 D + 2416.4)^2)*(Sin[0.5*x*Sqrt[D*D + (0.84 D + 2899.7)^2]])^2;
fit = FindFit[data,{model,{D >= 0}},{D},x]
modelf = Function[{x},Evaluate[model /.fit]]
Plot[modelf[x],{x,0,0.0005},Epilog -> Map[Point,data]]
数据 {{0,0},{0.000115,0.09},{0.000173,0.13},{0.000231,0.17},{0.000346,0.23},{0.000461,0.25},{0.0005,0.24}}
以方程D^2/(D^2 + (0.7 D + 2416.4)^2)*(Sin[0.5*x*Sqrt[D*D + (0.84 D + 2899.7)^2]])^2 为model 求出D的值并得出曲线拟合的图
但是用上面的代码计算出的D的值 有点问题（应该是几千的数值 但是结果才是1.03） 而且曲线拟合的图也不对

用Mathematica 利用非线性最小二乘法 实现曲线拟合 代码如下data = {{0,0},{0.000115,0.09},{0.000173,0.13},{0.000231,0.17},{0.000346,0.23},{0.000461,0.25},{0.0005,0.24}};model = D^2/(D^2 + (0.7 D + 2416.4)^2)*(Sin[0.5*x*Sqrt[D*D + (0.
上次偷懒了,没继续往下看,不好意思^^
把后两行改成:
modelf = Function[{x},Evaluate[model /.fit]][x]
Plot[modelf,{x,0,0.5},Epilog -> Map[Point,data]]
注意也只是把[x]换了个位置,还是笔误,
运行可得
1.82153*10^-7 Sin[1450.28 x]^2
图我昨天上传了一天都没通过,真没想通这也不和谐了?今天从略好了...
Q2算是解决.
从图上看你的函数频率是很高的,这是由拟合函数的形式决定的,至少都是2899.7.
用十来个离散点(而且相对频率来说分得很散了)来拟合高频率的曲线意义已经不大,我试着把第三句的{D >= 0}改成{D >= 1000},{D >= 2000},{D >= 5000},得到的结果为:
{D -> 1005.43},{D -> 2000.},{D -> 5002.49},可见D基本已经失效.
我不太清楚你的实验背景和数据来源,感觉还是要从拟合函数那里找找问题了.

变系数非线性常微分方程组用mathematica怎么求解? 如何求解常系数非线性微分方程组怎么样利用mathematica来求解非线性微分方程组,数值解法也好,命令是什么,格式是什么? 用Mathematica 利用非线性最小二乘法 实现曲线拟合 代码如下data = {{0,0},{0.000115,0.09},{0.000173,0.13},{0.000231,0.17},{0.000346,0.23},{0.000461,0.25},{0.0005,0.24}};model = D^2/(D^2 + (0.7 D + 2416.4)^2)*(Sin[0.5*x*Sqrt[D*D + (0. 求高手赐教 急!用Matlab或者Mathematica或任何可行的软件 利用非线性最小二乘法 实现曲线拟合 求解方程我有一组数据(x,y)=（0,0）（0.154,0.35）（0.173,0.39）（0.289,0.44）（0.346,0.48） 相对应的方程 用Mathematica 利用非线性最小二乘法 实现曲线拟合 盼您回信数据{0,0},{0.115,0.11},{0.173,0.14},{0.231,0.24},{0.346,0.29},{0.461,0.31},{0.5,0.32} 模型是 D^2/[D^2 + (0.7 D + 2416.4)^2]*(Sin[0.5*x*Sqrt[D*D + (0.84 D + 2899.7)^2]]) 如何利用MATLAB解非线性规划 求教：利用mathematica解如图所示的线性方程组. 用Mathematica 8.0 画图 用mathematica解决微分方程 用Mathematica求解 如何非线性最小方差法拟合曲线请问如何进行非线性最小方差法拟和曲线,一般用什么软件,origin行么?能简单介绍怎么操作吗?谢谢! 为什么调制必须利用电子器件的非线性特性才能实现 利用matlab编写非线性方程组求根的二分法程序 如何利用mathcad做多参数的非线性拟合 matlab中如何做非线性最小二乘拟合 mathematica非线性拟合拟合的形式是Log((5.47-2*a+y)/(4*y-2*a))=1/150*b*x ,我有一批x相应y的数据,想求参数a、b.用mathematica应该怎么写啊?（包括x、y的录入方式也不知道.） mathematica解运动方程我想解一个带非线性阻尼的微分方程,用MATHEMATICA就是算不出来,求大侠们帮忙.命令如下：MotionEquation=D[u[x,t],{t,2}]-a*D[u[x,t],{x,2}]-b*D[u[x,t],x]*D[u[x,t],{x,2}]==0;DSolve[MotionEquation,u[x, 非线性电子电路用英语怎么说