24小时热门版块排行榜

>论坛更新日志 (3439)
>虫友互识 (489)
>导师招生 (173)
>休闲灌水 (169)
>文献求助 (166)
>考博 (116)
>论文投稿 (114)
>博后之家 (84)
>论文道贺祈福 (65)
>招聘信息布告栏 (62)
>基金申请 (52)
>硕博家园 (50)
>教师之家 (48)
>找工作 (45)
>考研 (42)
>公派出国 (20)

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

meina861010

银虫 (小有名气)

应助: 0 (幼儿园)
金币: 257
红花: 5
帖子: 138
在线: 45.1小时
虫号: 1075736
注册: 2010-08-16
性别: MM
专业: 生物化学

[求助] 用Mathematica软件进行最小二乘法曲线拟合遇到问题，哪位大神帮忙看看？已有2人参与

最近想用Mathematica软件对一组数据最小二乘法曲线拟合问题,以下是数据及代码，错误提示“不完全的表达”，修改了多次，还是一直提示这种错误，没辙了。
哪位大神帮忙看看到底哪里出错了？
万分感谢！！！

mathematica数据拟合代码.jpg

回复此楼

» 猜你喜欢

存款400万可以在学校里躺平吗已经有37人回复
英文综述是否需要润色及查重已经有5人回复
救命帖已经有5人回复
限项规定已经有5人回复
为什么nbs上溴没有产物点出现呢已经有9人回复
招博士已经有3人回复
最失望的一年已经有18人回复

1楼 2015-09-10 16:32:25

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

xzczd

木虫 (小有名气)

应助: 72 (初中生)
金币: 1941.4
红花: 11
帖子: 290
在线: 144.2小时
虫号: 3305534
注册: 2014-07-03

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
meina861010(feixiaolin代发): 金币+50 2015-09-21 13:08:06

引用回帖:

21楼: Originally posted by meina861010 at 2015-09-18 15:32:17
你好，请问能不能把你试的拟合效果不好的代码发我一份（我写的根本就不显示拟合曲线）。我赋一下可能的初始值，刚学这个软件，写进去一堆错误，麻烦了！...

CODE:

model = ((1/2 Exp[I θ] Tanh[r])^(x/2) Exp[-(1/2) (Abs[α]^2 + Conjugate[α]^2 Exp[I θ] Tanh[r])] (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^13 + 

       x^14 + x^15 + x^16) (α + Conjugate[α] Exp[I θ] Tanh[r]))/(Sqrt[x! Cosh[r]] Sqrt[2 Exp[I θ] Tanh[r]]);

nlm = ComplexFit[data, model, {α, r, θ}, x(*,Method -> NMinimize*)]

Show[ListPlot[data, PlotRange -> All], 

 Plot[{Re@#, Im@#} &@model /. nlm // Evaluate, {x, 0, 20}, PlotRange -> All], 

 Frame -> True]

注意我用了上面那帖里的程序包。