| 查看: 394 | 回复: 2 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
[交流]
【求助】求助程序 已有2人参与
|
||
|
lagrange.m %lagrange insert function y=lagrange (x0, y0, x) n=length (x0);m=length (x); for i=1:m x=x (i); s=0.0; for k=1:n p=1.0; for j=1:n if j~=k p=p*(x-x0(j))/(x0(k)-x0(j)); end end s=p*y0 (k)+s; end y(i)=s; end 这个程序不知道为什么运行不了，求各位帮帮忙，先谢谢了。 |
回复此楼
3楼2010-07-23 20:16:45
2楼2010-07-23 09:09:20