24小时热门版块排行榜

返回列表

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

loujing

铁杆木虫 (正式写手)

应助: 19 (小学生)
金币: 5835.5
散金: 2028
红花: 8
帖子: 322
在线: 110.2小时
虫号: 58180
注册: 2005-02-20
性别: GG
专业: 计算机应用技术

[求助] 关于用Maple或Mathematica实现符号多项式拟合已有1人参与

最近在看李航老师的统计学习方法，想用Maple或Mathematica验证一下第一章中的多项式拟合。

看起来结果都不太对。
这是我异想天开了（这问题用Maple和Mathematica是无法解决的），还是哪里写错了，万望大家指教，十分感谢。

Mathematica：

CODE:

f[Subscript[w, j]] = 1/2 \!\(\*UnderoverscriptBox[\(\[Sum]\), \(i = 1\), \(n\)]\*SuperscriptBox[\((\*UnderoverscriptBox[\(\[Sum]\), \(j = 0\), \(m\)]\*SubscriptBox[\(w\), \(j\)] \*SubsuperscriptBox[\(x\), \(i\), \(j\)] - \*SubscriptBox[\(y\), \(i\)])\), \(2\)]\)

Maple:

CODE:

L := proc (w__j) options operator, arrow; (1/2)*(sum((sum(w__j*x__i^j, j = 0 .. m)-y__i)^2, i = 1 .. n)) end proc

回复此楼

» 猜你喜欢

求个博导看看已经有19人回复
论文终于录用啦！满足毕业条件了已经有13人回复
投稿Elsevier的杂志（返修），总是在选择OA和subscription界面被踢皮球已经有8人回复

1楼 2016-01-08 11:33:37

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

xzczd

木虫 (小有名气)

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

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与，应助指数 +1
loujing: 金币+40, ★★★很有帮助 2016-01-08 17:04:29

看看楼上的某些发言就觉得Mathematica推广工作任重而道远……楼主你这个问题是可以用Mathematica推导的。不过在给出解法前得先和你讨论清楚一件事：你给出的
$w_j$ 的表达式是不是错了。我手算和用软件推导（当然编程里面混入了我的分析，或许是我的分析本身不对）的结果都是：
$w_j=\frac{\sum _i^n y_i x_i^j}{\sum _i^n x_i^{2 j}}$