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

回复此楼

» 猜你喜欢

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

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

loujing

铁杆木虫 (正式写手)

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

引用回帖:

12楼: Originally posted by xzczd at 2016-01-08 14:38:05
看看楼上的某些发言就觉得Mathematica推广工作任重而道远……楼主你这个问题是可以用Mathematica推导的。不过在给出解法前得先和你讨论清楚一件事：你给出的
w_j的表达式是不是错了。我手算和用软件推导（当然编程 ...

原书截图