文档介绍：课程实验报告
专业年级一
课程名称数值分析
指导教师
学生姓名
学号
实验日期
实验地点
实验成绩
教务处制
2013年6 月20日
实验名称： Lagrange插值（实验一）
实验目的：
掌握
sumxy
sumx2
b=(sumy*sumx-sumxy*5)/(sumx*sumx-sumx2*5)
a=(sumy-b*sumx)/5
scatter(x,y)
hold on
plot(x,a+b*x)
在命令窗口调用函数M文件zxecnh，输出结果如下：
b =
a =
实验总结(由学生填写)：在本次实验中，通过对例题的实际分析操作，掌握了最小二乘法， 并可以根据给定数据求最小二乘一次或二次多项式，然后进行曲线拟合。通过本次试验，也 看到了数学与数学软件在实际生活中的应用。
教师对本次实验的评价(下面的表格由教师填写)：
评价细目
定性评价
量化分
实验准备(20分)
充分(15-20) □ 基本充分(0-15 ) □
实验态度(20分)
认真（15-20 ） □
比较认真(10-15 ) □
不认真(0-10 ) □
实验报告书写(20分)
规范（15-20 ）□
基本规范(10-15 ) □
不规范(0-10 ) □
实验报告内容(40分)
符合实验要求
(30-40 )□
基本符合实验要求
(10-30 )□
不符合实验要求
(0-10 ) □
实验结论及实验成绩
达到实验目的
(80-100 )□
基本达到实验目的
(60-80 )□
没有达到实验目的
(0-60 ) □
实验名称： Romberg 积分法（实验三）
实验目的:
掌握Romberg算法，并能根据给定的精度要求计算定积分。
实验准备：
，请回顾教科书的相关内容;
XP Professional操作系统和装有VC++。
实验内容及要求
用Romberg法求函数积分1 = j1 dx，。- 6 .
0 x
实验过程:
编写函数M文件Romberg如下：
funciton t=Romberg(fname,a,b,e)%Rom
%Romberg法求函数的积分
%fname是被积函数，a是上限，b是下限，e为精度(默认1e—4)
If nargin<4,e=1e—4;
end
i=1; j=1; h=b—a;
T(i,1)=h/2*(feval(fname,a)+feval(fname,b));
T(i+1,1)=T(i,1)/2+sum(feval(fname,a+h/2:h:b—h/2+*h))*h/2;
T(i+1,j+1)=4Aj*T(i+1,j)/(4Aj—1)—T(i,j)/ (4Aj —1);
while abs(T(i+1,i+1) — T(i,i))>e i=i+1; h=h/2;
T(i+1,1)=T(i,1)/2+sum(feval(fname,a+h/2:h:b—h/2+*h))*h/2;
For j=1:i
T(i+1,j+1)=4Aj*