当前位置:文档之家› 三种消元法程序——数学软件实验报告

三种消元法程序——数学软件实验报告

三种消元法程序——数学软件实验报告
三种消元法程序——数学软件实验报告

北京大学数学软件实验任务书

课程名称数学软件实验班级数学0901 学号0912020112 姓名****

实验课题

线性方程组高斯消去法,高斯列主元消去法,高斯全

主元消去法

实验目的熟悉线性代数方程组高斯消去法,高斯列主元消去法,高斯全主元消去法

实验要求运用Matlab/C/C++/Java/Maple/Mathematica等其中一种语言完成

实验内容线性方程组高斯消去法

线性方程组高斯列主元消去法线性方程组高斯全主元消去法

成绩100 教师****

实验一 高斯消去法求解线性方程组

【实验名称】高斯消去法求解线性方程组

【实验目的】进一步熟悉理解Guass 消元法解法思路,提高matlab 编程能力。 【实验要求】已知线性方程矩阵,利用软件求解线性方程组的解。 【实验原理】

消元过程:

设0)0(11≠a ,令乘数)

0(11

)0(11/a a m i i -=,完成以下步骤: 首先,进行消元操作(消去第i 个方程组的i x )1i m ×第1个方程+第i 个方程(i=2,

3,.....n ),则第i 个方程变为1)1(2)1(2...i n in i b x a x a =++;

这样消去第2,3,... ,n 个方程的变元i x 后。原线性方程组变为:

?????

????=++=++=++)1()1(2)1(2)

1(2)1(22)

1(22)0(1)

0(11)0(11... . .

... ...n n nn n n n n n b x a x a b x a x a b x a x a

这样就完成了第一步消元。

回代过程:

在最后的一方程中解出n x ,得:)

1()1(/--=n nn

n n n a b x ;再将n x 的值代入倒数第二个方程,解出1-n x ,依次往上反推,即可求出方程组的解,其通项为:

3,...,1

-n 2,-n k /)()

1(1

)1()

1(=-

=-+=--∑k kk n

k j j k kj

k k

k a x a

b

x

【程序设计】

function maintest1 clc clear all

num=input('please input the order n=') A=zeros(num,num); for i=1:num for j=1:num

A(i,j)=input(''); end

end A

if det(A)~=0

for i=1:num

b(i)=input('');

end

b=b'

num=length(b)

for k=1:num-1

for i=k+1:num

if A(k,k)~=0

l=A(i,k)/A(k,k);

A(i,:)=A(i,:)-A(k,:).*l;

b(i)=b(i)-b(k)*l;

end

end

end

A

B

%回代求x

x(num)=b(num)/A(num,num);

for i=num-1:-1:1

sum=0;

for j=i+1:num

sum=sum+A(i,j)*x(j);

end

x(i)=(b(i)-sum)/A(i,i);

end

x

end

【实验结论】

高斯消元能很好的求解线性方程组,和用克莱姆法则求解方程组该算法简单而且求解次数少。但是高斯顺序消元是有缺陷的,它并没有考虑主对角元素相对其他同列元素绝对值很小,有时会导致用绝对值较小的数字做分母而出现较大的数字与较小数字进行相加减运算而被“吞掉”的现象,以至于产出某一未知元较小的误差却引起其他元更大的误差。

实验二列主元消去法求解线性方程组

【实验名称】列主元消去法求解线性方程组

【实验目的】进一步熟悉理解列主元消去法求解线性方程组解法思路,提高matlab编程能力。

【实验要求】已知线性方程矩阵,利用软件求解线性方程组的解。

【实验原理】

列主元消去法基本思路:

设有线性方程组x b A =,设A 是可逆矩阵。列主元消去法的基本思想就是通过列主元的选取将初等行变换作用于方程组的增广矩阵[]A |b =A ,将其中的A 变换成一个上三角矩阵,然后求解这个三角形方程组。

将方程组用增广矩阵[]()(1)|ij n n b a ?+A =A =表示。 1 消元过程

Step1:选主元,找{},1,,k i k k n ∈+ 使得

,max k i k ik k i n

a a ≤≤=,1,2,,1k n =-

Step2:如果,0k i k a =,则矩阵A 奇异,程序结束;否则执行step3;

Step3:如果k i k ≠,则交换第k 行与第k i 行对应元素位置,k kj i j a a ?, ,,1j k n =+ ; Step4:消元,对,,i k n = ,求解/,ik ik kk l a a =对1,,1j k n =++ ,求解

.ij ij ik kj a a l a =-

2 回代过程:

Step1:若0,nn a =则矩阵奇异,程序结束;否则执行step2 Step2:,1/;n n n nn x a a +=对1,,2,1i n =- ,求解:

,11/n i i n ij j ii j i x a a x a +=+??

=- ???

【程序设计】

function [x,XA]=GaussLiezhuYuan(A,b) N=size(A) n=N(1); index = 0; for i=1:(n-1)

me=max(abs(A(1:n,i))); %确定每一列绝对值最大的数值 for k=i:n

if(abs(A(k,i))==me) index=k; break; end end

temp=A(i,1:n);

A(i,1:n)=A(index,1:n);

A(index,1:n)=temp; %与主元所在的行进行交换 bb=b(index); b(index)=b(i);

b(i)=bb;

for j=(i+1):n

if(A(i,i)==0)

disp('对角元素为0!');

return;

end

l=A(j,i);

m=A(i,i);

A(j,1:n)=A(j,1:n)-l*A(i,1:n)/m;

b(j)=b(j)-l*b(i)/m;

end

end

x=SolveUpTriangle(A,b);

XA=A;

end

【实验结论】

将向量求解得到的解向量代入原方程,可以发现符合的还是比较好的。这说明了列主元

消去法求解这一类方程的有效性。事实上,对于普通Gauss消去法的修正,还可以有行主元

消去法,全主元消去法。但是全主元消去法相对于行、列主元消去法的工作量要大的多。所

以列主元消去法是解线性方程组实用的方法之一。

实验三全主元消去法求解线性方程组

【实验名称】全主元消去法求解线性方程组

【实验目的】进一步熟悉理解全主元消去法求解线性方程组解法思路,提高matlab编程能力。

【实验要求】已知线性方程矩阵,利用软件求解线性方程组的解。

【实验原理】

主元就是在每一步里面都要在被处理的矩阵里选取绝对值最大的元素作为主元,从而使高斯消去法具有更好的数据稳定性的方法。虽然全主元消去法的求解结果更加可靠,但由于全主元每步耗时多,而且进行列变换,就会打乱未知变元的顺序,因此,比较繁琐。(参考程序4)【程序设计】

%利用高斯全主元消去法求AX=b方程组的解

A=[3 2 0 0;1 4 2 0;0 1 2 1;0 0 -1 1]

b=[5 7 2 -2]'

N=size(A);

n = N(1);

index_l = 0;

index_r = 0;

order = 1:n; %记录未知数顺序的向量

for i=1:(n-1)

me = max(max(abs(A(i:n,i:n)))) %选取全主元

for k=i:n

for r=i:n

if(abs(A(k,r))==me)

index_l = k;

index_r = r; %保存主元所在的行和列

k=n;

break;

end

end

end

temp = A(i,1:n);

A(i,1:n) = A(index_l,1:n);

A(index_l,1:n) = temp;

bb = b(index_l);

b(index_l)=b(i);

b(i) = bb; %交换主行

temp = A(1:n,i);

A(1:n,i) = A(1:n,index_r);

A(1:n,index_r) = temp; %交换主列

pos = order(i);

order(i) = order(index_r);

order(index_r) = pos; %主列的交换会造成未知数顺序的变化

for j=(i+1):n

if(A(i,i)==0)

disp('对角元素为0!');

return;

end

l = A(j,i);

m = A(i,i);

A(j,1:n)=A(j,1:n)-l*A(i,1:n)/m

b(j)=b(j)-l*b(i)/m

end

end

x=SolveUpTriangle(A,b); %调用上三角系数矩阵求线性方程组的函数

y=zeros(n,1);

for i=1:n

for j=1:n

if(order(j)==i)

y(i)=x(j);

end

end

end %恢复未知数原来的顺序

x=y;

XA = A;

x

【实验结论】

虽然全主元消去法的求解结果更加可靠,高斯消去具有更好的数值稳定性。但是由于全选主元每步消耗的时间更多,而且要进行列交换,那么所求未知量x1,x2,……xn的顺序就会被打乱,因此,实际应用中一般使用列主元消去法。

数值分析列主元消去法的实验报告

实验一 列主元消去法 【实验内容】 1.掌握列主元消去法的基本思路和迭代步骤 2.并能够利用列主元的高斯消去法解任意阶数的线性方程组; 3、从课后题中选一题进行验证,得出正确结果,交回实验报告与计算结果。 【实验方法与步骤】 1.列主元消去法基本思路 设有线性方程组Ax b =,设A 是可逆矩阵。列主元消去法的基本思想就是通过列主元的选取将初等行变换作用于方程组的增广矩阵[]|B A b =,将其中的A 变换成一个上三角矩阵,然后求解这个三角形方程组。 2.列主元高斯消去法算法描述 将方程组用增广矩阵[]()(1)|ij n n B A b a ?+==表示。 步骤1:消元过程,对1,2,,1k n =-L (1) 选主元,找{},1,,k i k k n ∈+L 使得 ,max k i k ik k i n a a ≤≤= (2) 如果,0k i k a =,则矩阵A 奇异,程序结束;否则执行(3); (3) 如果k i k ≠,则交换第k 行与第k i 行对应元素位置,k kj i j a a ?, ,,1j k n =+L ; (4) 消元,对,,i k n =L ,计算/,ik ik kk l a a =对1,,1j k n =++L ,计算 .ij ij ik kj a a l a =- 步骤 2:回代过程: (1) 若0,nn a =则矩阵奇异,程序结束;否则执行(2); (2) ,1/;n n n nn x a a +=对1,,2,1i n =-L ,计算 ,11/n i i n ij j ii j i x a a x a +=+??=- ??? ∑

[实验程序] #include #include #include #include #define NUMBER 20 #define Esc 0x1b #define Enter 0x0d using namespace std; float A[NUMBER][NUMBER+1] ,ark; int flag,n; void exchange(int r,int k); float max(int k); void message(); void main() { float x[NUMBER]; int r,k,i,j; char celect; void clrscr(); printf("\n\nUse Gauss."); printf("\n\n1.Jie please press Enter."); printf("\n\n2.Exit press Esc."); celect=getch(); if(celect==Esc) exit(0); printf("\n\n input n="); scanf("%d",&n); printf(" \n\nInput matrix A and B:"); for(i=1;i<=n;i++) { printf("\n\nInput a%d1--a%d%d and b%d:",i,i,n,i); for(j=1;j<=n+1;j++) scanf("%f",&A[i][j]); } for(k=1;k<=n-1;k++) { ark=max(k); if(ark==0) { printf("\n\nIt’s wrong!");message();

数学实验报告

《数学实验》实验报告 实验四 MATLAB 的作图功能 1、画出y=x+cosx 在[02]π,上的图形。 >> x=linspace(0,0.1,30); >> y=x+cos(x); >> plot(x,y) 1234567 2、在同一坐标系中作出两曲线y=tanx 、y=x-cosx 、2 y x =、2 1y x =-在[0]π,上的图形;要求曲线分别用虚实线表示,并注明曲线名称及适当的标注。 x=0:0.1:pi; y1=tan(x); y2=x-cos(x); y3=x.*x; y4=1-x.*x; plot(x,y1,'k-',x,y2,'k:',x,y3,'k-.',x,y4,'k--'); title('四条平面曲线'); gtext('y=tantx'); gtext('y=x-cosx'); gtext('y=x^2'); gtext('y=1-x^2 ');

0.5 1 1.5 2 2.5 3 3.5 -35-30-25-20-15-10-505 10 15四条平面曲线 3、22 2351 ,cos ,21,1 x x x y e z x u x v x +-===-=+将在同一窗口画出图形。 >> x=linspace(0,2*pi,30); >> y=exp(x); z=cos(x); u=2*x.^2-1; v=(3*x.*x+5*x-1)./(x.*x+1); >> subplot(2,2,1),plot(x,y),title('y=e^x') >> subplot(2,2,2),plot(x,z), title('y=cosx') >> subplot(2,2,3),plot(x,u), title('y=2x^2-1') >> subplot(2,2,4),plot(x,v), title('y=(3*x^2+5*x-1)/(x^2+1)')

数学软件MATLAB实验报告 实验八

实验八:概率论与数理统计的MATLAB 实现 实验目的与要求: 能运用MATLAB 提供的针对概率统计课程的工具箱。 实验内容: 1、用normpdf函数计算正态概率密度函数。 该函数的调用格式为:Y=normpdf(X,MU,SIGMA) 2、用normpdf函数计算正态分布的分布函数。 该函数的调用格式为:F=normcdf(X,MU,SIGMA) 3、用chi2inv函数计算卡方分布的分布函数的逆函数。 分布函数的逆函数及其调用格式:x=chi2inv(P,v) 4、随机取8只活塞环,测得他们直径为(以mm计): 74.001 74.005 74.003 74.001 74.000 73.998 74.006 74.002 。 设环直径的测量值服从正态分布,现估计总体的方差2 程序代码: x=[74.001 74.005 74.003 74.001 74.000 73.998 74.006 74.002]; p=mle('norm',x); sigma2hatmle=p(2)^2 5、从一批灯泡中随机的取5只做寿命试验,测得寿命(以小时计)为: 1050 1100 1120 1250 1280 设灯泡寿命服从正态分布,求灯泡寿命平均值的95%置信区间。 程序代码: x=[1050 1100 1120 1250 1280]; [p,ci]=mle('norm',x,0.05) 6、下面列出的是某工厂随机选取的20只部件的装配时间(分): 9.8 10.4 10.6 9.6 9.7 9.9 10.9 11.1 9.6 10.2

10.3 9.6 9.9 11.2 10.6 9.8 10.5 10.1 10.5 9.7 设装配时间的总体服从正态分布,标准差为0.4,是否可以认为装配时间的均值在0.05的水平上不小于10. 0H :10<μ vs 1H :10≥μ 程序: %正态总体的方差已知时的均值检验 x1=[9.8 10.4 10.6 9.6 9.7 9.9 10.9 11.1 9.6 10.2]; x2=[10.3 9.6 9.9 11.2 10.6 9.8 10.5 10.1 10.5 9.7]; x=[x1 x2]'; m=10;sigma=0.4;a=0.05; [h,sig,muci]=ztest(x,m,sigma,a,1) 因此,在0.05的水平下,可以认为装配时间的均值不小于10。 7、某种电子元件的寿命x (以小时计)服从正态分布,2 δμ和均未知。现测得16只元件的寿命如下: 159 280 101 212 224 379 179 264 222 362 168 250 149 260 485 170 问是否有理由认为元件的平均寿命大于225(小时)? 0H :225≤μ vs 1H :225>μ 程序: %正态总体的方差求知时的均值检验 x=[159 280 101 212 224 379 179 264 222 362 168 250 149 260 485 170]; m=225;a=0.05; [h,sig,muci]=ttest(x,m,a,1)

matlab——大学数学实验报告

济南大学2012~2013学年第二学期数学实验上机考试题 班 级 计科1201 学号 20121222044 姓 名 黄静 考试时间 2014年6 月 17日 授课教师 王新红 说明:每题分值20分。第5题,第6题, 第7题和第8题可以任选其一, 第9题和第10题可以任选其一。每个同学以自己的学号建立文件夹,把每个题的文件按规定的方式命名存入自己的文件夹。有多余时间和能力的同学可以多做。 1、自定义函数:x x x y tan ln sin cos ln -=,并求 ?)3 (=π y (将总程序保存为test01.m 文件) %%代码区: y=inline('log(cos(x))-sin(x)*log(tan(x))','x'); y(pi/3) %%answer ans = -1.1689 2、将一个屏幕分4幅,选择合适的坐标系在左与右下幅绘制出下列函数的图形。 (1)衰减振荡曲线: x e y x 5sin 5.0-= (2)三叶玫瑰线:θρ3sin a = (将总程序保存为test02.m 文件) %%代码区: x=linspace(0,2*pi,30); y=exp(-0.5*x).*sin(5*x); subplot(2,2,1),plot(x,y),title('衰减振荡曲线') hold on theta=linspace(0,2*pi); r=sin(3*theta); subplot(2,2,4); polar(theta,r); xlabel('三叶玫瑰线')

%%answer 02468 -1 -0.500.5 1衰减振荡曲线 三叶玫瑰线 3、作马鞍面:22 ,66,8823 x y z x y =--≤≤-≤≤ (将总程序保存为test03.m 文件) %%代码区: [x,y]=meshgrid(linspace(-6,6,70),linspace(-8,8,70)); z=x.^2/2-y.^2/3; mesh(x,y,z) surface(x,y,z)%让曲面光滑并填满 shading interp ;

Gauss列主元消去法

贵州师范大学数学与计算机科学学院学生实验报告 课程名称:数值分析班级:数本(一)班实验日期:年月日 学号: 0098(81)姓名:吴胜指导教师:杨一都 实验成绩:一、实验名称 实验五:线性方程组的数值解法 二、实验目的及要求 1. 让学生掌握用列主元gauss消去法、超松弛迭代法求解线性方程组. 2. 培养Matlab编程与上机调试能力. 三、实验环境 每人一台计算机,要求安装Windows XP操作系统,Microsoft office2003、(或. 四、实验内容 1. 编制逐次超松弛迭代(SOR迭代)函数(子程序),并用于求解方程组

???????=-++=+-+=++-=+++-1 4141414432143214 3214321x x x x x x x x x x x x x x x x 取初始向量T x )1,1,1,1()0(=,迭代控制条件为 5)1()(102 1 ||||--?≤-k k x x 请绘制出迭代次数与松弛因子关系的函数曲线,给出最佳松弛因子.SOR 迭代的收敛速度是否一定比Gauss-Seidel 迭代快 2. 编制列主元 Gauss 消去法函数(子程序),并用于解 ??? ??=++-=-+-=+-6 15318153312321 321321x x x x x x x x x 要求输出方程组的解和消元后的增广矩阵. 注:题2必须写实验报告 五、算法描述及实验步骤 Gauss 消去法: 功能 解方程组b Ax = . 输入 n ,n n ij a A ?=)(,T n b b b b ),,,(21 =. 输出 方程组的解T n x x x x ),,,(21 =或失败信息. 步1 对1,,2,1-=n k 执行步2→步4 . 步2 调选列主元模块 .

数学模型实验报告

数学模型实验报告 实验内容1. 实验目的:学习使用lingo和MATLAB解决数学模型问题 实验原理: 实验环境:MATLAB7.0 实验结论: 源程序 第4章:实验目的,学会使用lingo解决数学模型中线性规划问题1.习题第一题 实验原理: 源程序: 运行结果: 、 管 路 敷 设 技 术 通 过 管 线 不 仅 可 以 解 决 吊 顶 层 配 置 不 规 范 高 中 资 料 试 卷 问 题 , 而 且 可 保 障 各 类 管 路 习 题 到 位 。 在 管 路 敷 设 过 程 中 , 要 加 强 看 护 关 于 管 路 高 中 资 料 试 卷 连 接 管 口 处 理 高 中 资 料 试 卷 弯 扁 度 固 定 盒 位 置 保 护 层 防 腐 跨 接 地 线 弯 曲 半 径 标 等 , 要 求 技 术 交 底 。 管 线 敷 设 技 术 中 包 含 线 槽 、 管 架 等 多 项 方 式 , 为 解 决 高 中 语 文 电 气 课 件 中 管 壁 薄 、 接 口 不 严 等 问 题 , 合 理 利 用 管 线 敷 设 技 术 。 线 缆 敷 设 原 则 : 在 分 线 盒 处 , 当 不 同 电 压 回 路 交 叉 时 , 应 采 用 金 属 隔 板 进 行 隔 开 处 理 ; 同 一 线 槽 内 强 电 回 路 须 同 时 切 断 习 题 电 源 , 线 缆 敷 设 完 毕 , 要 进 行 检 查 和 检 测 处 理 。 、 电 气 课 件 中 调 试 对 全 部 高 中 资 料 试 卷 电 气 设 备 , 在 安 装 过 程 中 以 及 安 装 结 束 后 进 行 高 中 资 料 试 卷 调 整 试 验 ; 通 电 检 查 所 有 设 备 高 中 资 料 试 卷 相 互 作 用 与 相 互 关 系 , 根 据 生 产 工 艺 高 中 资 料 试 卷 要 求 , 对 电 气 设 备 进 行 空 载 与 带 负 荷 下 高 中 资 料 试 卷 调 控 试 验 ; 对 设 备 进 行 调 整 使 其 在 正 常 工 况 下 与 过 度 工 作 下 都 可 以 正 常 工 作 ; 对 于 继 电 保 护 进 行 整 核 对 定 值 , 审 核 与 校 对 图 纸 , 编 写 复 杂 设 备 与 装 置 高 中 资 料 试 卷 调 试 方 案 , 编 写 重 要 设 备 高 中 资 料 试 卷 试 验 方 案 以 及 系 统 启 动 方 案 ; 对 整 套 启 动 过 程 中 高 中 资 料 试 卷 电 气 设 备 进 行 调 试 工 作 并 且 进 行 过 关 运 行 高 中 资 料 试 卷 技 术 指 导 。 对 于 调 试 过 程 中 高 中 资 料 试 卷 技 术 问 题 , 作 为 调 试 人 员 , 需 要 在 事 前 掌 握 图 纸 资 料 、 设 备 制 造 厂 家 出 具 高 中 资 料 试 卷 试 验 报 告 与 相 关 技 术 资 料 , 并 且 了 解 现 场 设 备 高 中 资 料 试 卷 布 置 情 况 与 有 关 高 中 资 料 试 卷 电 气 系 统 接 线 等 情 况 , 然 后 根 据 规 范 与 规 程 规 定 , 制 定 设 备 调 试 高 中 资 料 试 卷 方 案 。 、 电 气 设 备 调 试 高 中 资 料 试 卷 技 术 电 力 保 护 装 置 调 试 技 术 , 电 力 保 护 高 中 资 料 试 卷 配 置 技 术 是 指 机 组 在 进 行 继 电 保 护 高 中 资 料 试 卷 总 体 配 置 时 , 需 要 在 最 大 限 度 内 来 确 保 机 组 高 中 资 料 试 卷 安 全 , 并 且 尽 可 能 地 缩 小 故 障 高 中 资 料 试 卷 破 坏 范 围 , 或 者 对 某 些 异 常 高 中 资 料 试 卷 工 况 进 行 自 动 处 理 , 尤 其 要 避 免 错 误 高 中 资 料 试 卷 保 护 装 置 动 作 , 并 且 拒 绝 动 作 , 来 避 免 不 必 要 高 中 资 料 试 卷 突 然 停 机 。 因 此 , 电 力 高 中 资 料 试 卷 保 护 装 置 调 试 技 术 , 要 求 电 力 保 护 装 置 做 到 准 确 灵 活 。 对 于 差 动 保 护 装 置 高 中 资 料 试 卷 调 试 技 术 是 指 发 电 机 一 变 压 器 组 在 发 生 内 部 故 障 时 , 需 要 进 行 外 部 电 源 高 中 资 料 试 卷 切 除 从 而 采 用 高 中 资 料 试 卷 主 要 保 护 装 置 。

东南大学高等数学数学实验报告上

Image Image 高等数学数学实验报告 实验人员:院(系) ___________学号_________姓名____________实验地点:计算机中心机房 实验一 1、 实验题目: 根据上面的题目,通过作图,观察重要极限:lim(1+1/n)n =e 2、 实验目的和意义 方法的理论意义和实用价值。 利用数形结合的方法观察数列的极限,可以从点图上看出数列的收敛性,以及近似地观察出数列的收敛值;通过编程可以输出数列的任意多项值,以此来得到数列的收敛性。通过此实验对数列极限概念的理解形象化、具体化。 三、计算公式 (1+1/n)n 四、程序设计 五、程序运行结果 六、结果的讨论和分析 当n足够

Image Image 大时,所画出的点逐渐接近于直线,即点数越大,精确度越高。对于不同解题方法最后均能获得相同结果,因此需要择优,从众多方法中尽可能选择简单的一种。程序编写需要有扎实的理论基础,因此在上机调试前要仔细审查细节,对程序进行尽可能的简化、改进与完善。 实验二一、实验题目 制作函数y=sin cx的图形动画,并观察参数c对函数图形的影响。 二、实验目的和意义 本实验的目的是让同学熟悉数学软件Mathematica所具有的良好的作图功能,并通过函数图形来认识函数,运用函数的图形来观察和分析函数的有关性态,建立数形结合的思想。三、计算公式:y=sin cx 四、程序设计五、程序运行结果 六、结果的讨论和分析 c的不同导致函数的区间大小不同。 实验三 一、实验题目 观察函数f(x)=cos x的各阶泰勒展开式的图形。 二、实验目的和意义 利用Mathematica计算函数的各阶泰勒多项式,并通过绘制曲线图形,来进一步掌握泰勒展开与函数逼近的思想。 三、计算公式

mathematica数学实验报告

高等数学实验报告 实验一 一、实验题目 1:作出各种标准二次曲面的图形 ParametricPlot3D Sin u Sin v,Sin u Cos v,Cos u ,u,0,Pi ,v,0,2Pi,P Graphics3D ParametricPlot3D u Sin v,u Cos v,u^2,u,0,2,v,0,2Pi,PlotPoints30

Graphics3D ParametricPlot3D u,v,u^2v^2,u,2,2,v,2,2,PlotPoints30 Graphics3D ParametricPlot3D Sec u Sin v,Sec u Cos v,Tan u,u,Pi4,Pi4,v,0,2

Graphics3D t1ParametricPlot3D u^21Sin v,u^21Cos v,u,u,1,5,v,0,2Pi t2ParametricPlot3D u^21Sin v,u^21Cos v,u,u,5,1,v,0,2 show t1,t2 Graphics3D

Graphics3D show Graphics3D,Graphics3D ParametricPlot3D u Cos v,u Sin v,u,u,6,6,v,0,2Pi,PlotPoints60 Graphics3D 2:作出曲面所围的图形 t1ParametricPlot3D Sin u Sin v,Sin u Cos v,Cos u, u,Pi2,pi2,v,0,2Pi,PlotPoints60 t2ParametricPlot3D0.5Cos u12,0.5Sin u, u,0,2Pi,v,0,2Pi,PlotPoints60 t3Plot3D0,PlotPoints60 show t1,t2,t3

Matlab数学实验报告一

数学软件课程设计 题目非线性方程求解 班级数学081 姓名曹曼伦

实验目的:用二分法与Newton迭代法求解非线性方程的根; 用Matlab函数solve、fzero、fsolve求解非线性方程(组)的解。 编程实现二分法及Newton迭代法; 学会使用Matlab函数solve、fzero、fsolve求解非线性方程(组)的解。 通过实例分别用二分法及迭代法解非线性方程组并观察收敛速度。 实验内容: 比较求exp(x)+10*x-2的根的计算量。(要求误差不超过十的五次方) (1)在区间(0,1)内用二分法; (2)用迭代法x=(2-exp(x))/10,取初值x=0 。 试验程序 (1)二分法: format long syms x s=exp(x)+10*x-2 a=0; b=1; A=subs(s,a) B=subs(s,b) f=A*B %若f<0,则为由根区间 n=0; stop=1.0e-5; while f<0&abs(a-b)>=stop&n<=100; Xk=(a+b)/2; %二分 M= subs(s, Xk); if M* A<0 symbol=1 %若M= subs(s, Xk)为正,则与a二分 b= Xk else symbol=0 % 若M= subs(s, Xk)为负,则与b二分 a= Xk end n=n+1 end Xk n (2)牛顿迭代法; format long

syms x s= (2-exp(x))/10; %迭代公式 f=diff(s); x=0; %迭代初值 a=subs(f,x); %判断收敛性(a是否小于1) s=(2-exp(x))/10; stop=1.0e-5; %迭代的精度 n=0; while a<1&abs(s-x)>=stop&n<=100; x=s %迭代 s=(2-exp(x))/10; n=n+1 end 实验结果: (1)二分法: symbol =1 b =0.50000000000000 n =1 symbol =1 b =0.25000000000000 n =2 symbol =1 b =0.12500000000000 n =3 symbol =0 a =0.06250000000000 n =4 symbol =1 b =0.09375000000000 n =5 symbol =0 a =0.07812500000000 n =6 symbol =1 b =0.09054565429688 n =15 symbol =1 b =0.09053039550781 n =16 symbol =0 a =0.09052276611328 n =17 Xk =0.09052276611328 n =17 (2)迭代法 由x =0.10000000000000 n =1 x =0.08948290819244 n =2 x =0.09063913585958 n =3 x =0.09051261667437 n =4 x =0.09052646805264 n =5 试验结果可见用二分法需要算17次,而用迭代法求得同样精度的解仅用5次,但由于迭代法一般只具有局部收敛性,因此通常不用二分法来求得非线性方程的精确解,而只用它求得根的一个近似解,再用收敛速度较快的迭代法求得其精确解。

列主元消去法

实验一 列主元消去法 【实验内容】1. 掌握列主元消去法的基本思路和迭代步骤 2. 并能够利用列主元的高斯消去法解任意阶数的线性方程组; 【实验方法与步骤】列主元消去法编写程序 1.列主元消去法基本思路 设有线性方程组Ax b =,设A 是可逆矩阵。列主元消去法的基本思想就是通过列主元的选取将初等行变换作用于方程组的增广矩阵[]|B A b =,将其中的A 变换成一个上三角矩阵,然后求解这个三角形方程组。 2.列主元高斯消去法算法描述 将方程组用增广矩阵[]()(1)|ij n n B A b a ?+==表示。 步骤1:消元过程,对1,2,,1k n =- (1) 选主元,找{},1,,k i k k n ∈+ 使得 ,max k i k ik k i n a a ≤≤= (2) 如果,0k i k a =,则矩阵A 奇异,程序结束;否则执行(3); (3) 如果k i k ≠,则交换第k 行与第k i 行对应元素位置,k kj i j a a ?, ,,1j k n =+ ; (4) 消元,对,,i k n = ,计算/,ik ik kk l a a =对1,,1j k n =++ ,计算 .ij ij ik kj a a l a =- 步骤 2:回代过程: (1) 若0,nn a =则矩阵奇异,程序结束;否则执行(2); (2) ,1/;n n n nn x a a +=对1,,2,1i n =- ,计算 ,11/n i i n ij j ii j i x a a x a +=+??=- ??? ∑ 习题3第一题程序如下

#include #include #define N 3 int I; float max_value(float a[N][N+1],int n,int k) { float max; int i; max=a[k][k]; for(i=k+1;i

小学数学实验报告

竭诚为您提供优质文档/双击可除 小学数学实验报告 篇一:小学数学课题实验总结报告 《实施合作学习,发挥优势互补的研究》 课题实验总结 在上级主管部门和学校领导关心支持下我们开展了《实施合作学习,发挥优势互补》的课题研究。在课题组全体老师两年的不懈努力下,已基本完成本课题研究任务,并取得预期成果。 开展课题实验以来,我们坚持在实践中探索,在探索中实践,取得了初步的成效,主要体现在实验促进了三个方面的转变,一个方面的提高。 一、促进教师教学观念的转变。 参加课题实验后,实验组的老师们通过边实验边学习,不断总结与反思,提升了自己的科研水平,并树立了以“教学是为了促进学生发展”为最终目标的新型教育教学观念。课堂上,老师与学生建立了和谐融洽的师生关系,在精心创设的良好的教学氛围中鼓励学生独立思考、大胆质疑、敢于

探索、勇于创新。让学生在自主、合作、探究的学习过程中,激发学习热情,养成学习习惯,提高学习能力,从而促进了学生的发展。 二、促进学生学习方式的转变。 学生正在由被动学习逐步向主动学习转变,由老师教转变为我能学,由师生间的单向性活动转变为双向性互动、多边性互动,增大了课堂信息量,学生积极主动学习,小组合作、乐于探究,他们发扬团队精神,团队之间互相竞争、优势互补,并培养学生动手、动脑、动口的能力,培养创新意识。课前,学生能积极主动地预习信息窗内容,提出问题并尝试解决。课堂上,学生能够热烈地交流预习所得,积极主动地参与课堂讨论,参与面广,讨论热烈而且有序。课后,能自觉温习知识,深化学习,拓展延伸,并加以运用。绝大部分学生善于表达,敢于提出自己的不同见解,有较强的探究精神,能够提出问题积极思考,并能够多角度思维寻找解决问题的策略,并且培养了学生良好的合作学习的习惯。 学习方式的转变促进了学生全面发展,他们乐学,善学,学有所成。随着学生自主合作探究能力的不断提高,自主性合作性探究性已多个学习层面辐射,辐射到其它学科、班级管理、文体活动等方面。实验班班风好,学风浓,学生对所有科目的学习兴趣盎然、积极主动,全面发展。 三、促进课堂教学格局的转变。

四川师范大学数学与软件科学学院程序设计实验报告实验九(推荐文档)

数学与软件科学学院实验报告 一、实验目的 (1) 掌握C语言环境下结构体和共用体类型变量的定义和使用方法; (2) 掌握结构体类型数组的概念和使用; (3) 掌握指向结构体变量的指针变量、尤其是链表概念; 二、实验内容 1.首先熟悉结构体类型变量的基本声明方法、结构体类型变量的内存分配原则、初始化和引用结构体变量及其成员变量的基本方法;然后掌握结构体变量的输入、输出方法。(参见教材例7.1,请给该例加上输入功能) #include struct person { char name[20]; int count; }leader[3]={"Li",0,"Zhang",0,"Wang",0}; main() { int i,j; char leader_name[20]; for(i=1;i<=10;i++) { scanf("%s",leader_name); for(j=0;j<3;j++) { if(strcmp(leader_name,leader[j].name)==0) leader[j].count++; } }

for(i=0;i<3;i++) printf("%5s:%d\n",leader[i].name,leader[i].count); } 2.基于结构体数组的应用实验。 (1) 有n个学生,每个学生的数据包括学好(num)、姓名(name[20])、性别(sex)、年龄(age),以及三门课程的成绩(score[3])。要求:在main()函数中输入这些学生的这些数据,然后设计一个函数count()来计算每个学生的总分和平均分,最后, 打印出所有数据信息(包含原来输入的学生原始数据信息和求解出来的新信息)。#include #define N 3 #define M 3 typedef struct student { int score[N]; char name[20]; int sex; int age; char num[20]; }STUDENT; main() { STUDENT stu[M]; int i,j,average,total; char name[20]; clrscr(); for(i=0;i

实验三高斯列主元消去法

实验三 高斯列主元消去法 一、实验目的: 1、掌握高斯消去法的基本思路和迭代步骤。 2、 培养编程与上机调试能力。 二、高斯列主元消去法的基本思路与计算步骤: 设有方程组Ax b =,设A 是可逆矩阵。高斯消去法的基本思想就是僵局真的初等行变换作用于方程组的增广矩阵[]B A b = ,将其中的A 变换成一个上三角矩阵,然后求解这个三角形方程组。 列主元高斯消去法计算步骤: 将方程组用增广矩阵[]()(1)ij n n B A b a ?+== 表示。 步骤1:消元过程,对1,2,,1k n =- (1) 选主元,找{},1,,k i k k n ∈+ 使得 ,max k i k ik k i n a a ≤≤= (2) 如果 ,0k i k a =,则矩阵A 奇异,程序结束;否则执行(3)。 (3) 如果k i k ≠,则交换第k 行与第k i 行对应元素位置,k kj i j a a ?,,,1j k n =+ 。 (4) 消元,对,,i k n = ,计算/,ik ik kk l a a =对1,,1j k n =++ ,计算 . ij ij ik kj a a l a =- 步骤 2:回代过程: (1) 若0,nn a =则矩阵奇异,程序结束;否则执行(2)。 (2) ,1/;n n n nn x a a +=对1,,2,1i n =- ,计算,11/n i i n ij j ii j i x a a x a +=+??=- ???∑ 三:程序流程图

四:程序清单: function X=uptrbk(A,b) % A是一个n阶矩阵。 % b是一个n维向量。 % X是线性方程组AX=b的解。 [N N]=size(A); X=zeros(1,N+1); Aug=[A b]; for p=1:N-1 [Y,j]=max(abs(Aug(p:N,p)));%返回向量的最大值存入y,最大值的序号存入j。 C=Aug(p,:); Aug(p,:)=Aug(j+p-1,:); Aug(j+p-1,:)=C; if Aug(p,p)==0 'A是奇异阵,方程无惟一解' break end for k=p+1:N m=Aug(k,p)/Aug(p,p); Aug(k,p:N+1)=Aug(k,p:N+1)-m*Aug(p,p:N+1); end end % 这里用到程序函数backsub来进行回代。 X=backsub(Aug(1:N,1:N),Aug(1:N,N+1)); function X=backsub(A,b) % A是一个n阶上三角非奇异阵。 % b是一个n维向量。 % X是线性方程组AX=b的解。 n=length(b);%取b向量的个数。 X=zeros(n,1); X(n)=b(n)/A(n,n); for k=n-1:-1:1 X(k)=(b(k)-A(k,k+1:n)*X(k+1:n))/A(k,k); End 五、测试数据与结果: 测试数据:(第8章习题三第2题)求解线性方程组: 解:建立一个主程序gs.m clc clear A=[1,2,3;5,4,10;3,-0.1,1]; b=[1;0;2];

数学应用软件实验报告(mathematica实验程序)1

徐州工程学院数理学院数学应用软件实验报告 课程(实验序号)数学应用软件实验 1 实验地点、日期数学建模机房2011 年 2 月23 日主要仪器设备计算机 使用的软件名称Mathematica 实验类型演示性实验 验证性实验 综合性实验√设计性实验 研究性实验 班级:姓名:孙娅学号:20090402223 一、实验题目名称:函数】变量和表达式 二、实验目的: 理解变量和算式、内核与前端处理器构成的人机对话系统,了解计算的精度问题个Mathematica使用中的几个问题。熟练掌握数的表示和计算、常用数学函数,会绘制简单函数的图形。通过上机初步了解数学应用软件,Mathematica的各种界面。 三、实验内容: 练习题1 1.计算下列各式的数值: (1) Log[2,10] Log[10]/Log[2] (2) Sqrt[Pi^2+1] 1 2 (3) Log[10,3264] Log[3264]/Log[10] (4) E^E ??/2 (5) Cos[135^0] Cos[1] (6) Sin[Pi^2/2] Sin[π2/2] (7) ArcSin[1/2] π/6 (8) 200! 7886578673647905035523632139321850622951359776871732632947425332443594499634033429203042 8401198462390417721213891963883025764279024263710506192662495282993111346285727076331723 7396988943922445621451664240254033291864131227428294853277524242407573903240321257405579

东南大学数学实验报告(1)

高等数学数学实验报告实验人员:院(系) 土木工程学院学号05A11210 姓名李贺__ 实验地点:计算机中心机房 实验一空间曲线与曲面的绘制 一、实验题目:(实验习题1-2) 利用参数方程作图,做出由下列曲面所围成的立体图形: 2 2 2 2 ⑴ Z 1 X y,x y X 及xOy平面; ⑵ z xy,x y 1 0 及z 0. 二、实验目的和意义 1、利用数学软件Mathematica绘制三维图形来观察空间曲线和空间曲面图形的特点,以加 强几何的直观性。 2、学会用Mathematica绘制空间立体图形。 三、程序设计 空间曲面的绘制 x x(u, V) y y(u,v),u [u min , max ],V [V min , V max ] 作参数方程z z(u,v)所确定的曲面图形的Mathematica命令

为: ParametricPlot3D[{x[u,v],y[u,v],z[u,v]},{u,umi n,umax}. {v,vmi n,vmax}, 选项] ⑵ t2 = ParametricPlotJD [{u f 1 v}, [u^ ?0?§尸1}^ (v, 0F 1}, HxegLabel {"x" 11 y" J1 z" }. PlotPolnts t 5B, Dlspla^unction -> Identity」: t3 = ParametricPlotSD[{u f 0}* (u, -U.J5』1}^ {v z-0.5, 1} f AxesLabel {"x" 11y" 11 z" PlotPoints 50, Display1 unction — Identity]: Slinw[tl z t2, t3 f DisplayFunction -> SDlsplajfunction] 四、程序运行结果 ⑴ (2) 五、结果的讨论和分析 1、通过参数方程的方法做出的图形,可以比较完整的显示出空间中的曲面和立体图形。 2、可以通过mathematica软件作出多重积分的积分区域,使积分能够较直观的被观察。

数学社会实践报告-范文

数学社会实践报告 数学是研究数量、结构、变化、空间以及信息等概念的一门学科,本文将介绍数学社会实践报告。 数学社会实践报告(1) 又是一个酷热难耐的暑假,济南以它独特的天气特点招待了我们这些因为参赛而留在老校住宿的同学们,几次零星的小雨丝毫撼不动炎热的主题。蓊蓊郁郁的师大老校园里大批学子,他们忙碌着,早出晚归;他们埋头苦干着,废寝忘食;他们做着自己的事情,紧张有序他们默默等待着一场未知的洗礼。他们,就是参加暑假数学建模辅导的同学。 我很荣幸地成为了这支队伍中的一员,而且成为队长,本组成员都是让我佩服的两位很优秀的同学,让我对这次建模的胜利充满信心,宋希良,和王成龙,这两位我的员工,让我感觉很踏实,本来平淡无奇的暑假,因为参加了数学建模而变得丰富多彩。 先说说数学建模吧。数学建模是运用数学思想、方法和知识解决实际问题的过程,已经成为不同层次数学教育重要和基本的内容。数学建模是数学学习的一种新的方式,它为学生提供了自主学习的空间,有助于学生体验数学在解决实际问题中的价值和作用,体验数学与日常生活和其他学科的联系,体验综合运用知识和方法解决实际问题的过程,增强应用意识;有助于激发学生学习数学的兴趣,发展学生的创新意识和实践能力。数学建模与数学实验开创了大学生把数学理论和专业知识有机结合的新途径,

是培养学生分析问题、解决问题和使用计算机进行科学计算的有效方法,是培养学生创新能力和实践能力的有效手段。 中国科学院王梓坤院士在《今日数学及其应用》一文中指出精确定量思维是对21世纪科技人员的素质要求。所谓定量思维就是人们从实际问题中提炼数学问题,抽象化为数学模型,用数学计算此模型的解或近似解,然后回到现实中进行检验,必要时修改模型使之更切合实际,最后编制解决问题的软件包,以便得到更广泛的方便的应用。这一精辟的论述阐明了在解决工程实际问题中数学建模与数学实验是相互依赖、相辅相成、互不可分的。数学建模与数学实验是以数学知识为基础,以各个领域的实际问题为载体,以计算机为手段,以数学软件为工具,培养学生深入理解数学建模的思想与方法,熟悉常用的科学计算软件,如,Mathematica、MATLAB,并在此基础上,根据所要解决的数学问题进行程序设计,培养学生运用所学知识建立数学模型,使用计算机解决实际问题的能力,以及综合应用能力和创新能力。 建模前的准备。首先,要完善自己。只有解决了自身的问题,才能克服其他的问题。如果连自己都没把握好,那么,做任何事都会漏洞百出。要完善自己,首先要明确态度,记得中国前任国足教练米卢说过:态度决定一切。明确自己为什么要参加数学建模竞赛,参加的目的是什么,是抱着学习的态度参加呢还是其他呢?只有态度明确了,才能在这个前提下,进行全身心的投入竞赛。其次,要有热情,要有认真,严谨的科学精神。热情是动力的源

《数学软件》实验报告-符号计算基础与符号微积分

实验报告 课程名称:数学软件姓名: 学院: 专业: 年级: 学号: 指导教师: 职称: 年月日

实验项目列表

附件三: 实验报告(二) 系:专业:年级:姓名学号:实验课程: 实验室号:_ 实验设备号:实验时间: 指导教师签字:成绩: 1. 实验项目名称:符号计算基础与符号微积分 2. 实验目的和要求 1.掌握定义符号对象的方法 2.掌握符号表达式的运算法则以及符号矩阵运算 3.掌握求符号函数极限及其导数的方法 4.掌握求符号函数定积分和不定积分的方法 3. 实验使用的主要仪器设备和软件 方正商祺N260微机;MATLAB7. 0或以上版本 4. 实验的基本理论和方法 (1)符号函数;sym(x);syms a b …… (2)平方根:sqrt(x) (3)分解因式:factor(s) (4)符号表达式化简:simplify(s) (5)逆矩阵:inv(x) (6)下三角矩阵:tril(x) (7)矩阵行列式的值:det(x)

(8)符号函数求极限:limit (f ,x ,a );limit (f ,x ,a ,‘right ’) (9)符号函数求导:diff (f ,v ,n ) (10)符号函数求不定积分:int (f ,v ) (11)符号函数求定积分:int (f ,v ,a ,b ) 5. 实验内容与步骤 (描述实验中应该做什么事情,如何做等,实验过程中记录发生的现象、中间结果、最终得到的结果,并进行分析说明) (包括:题目,写过程、答案) 题目: 1. 已知x=6,y=5,利用符号表达式求 y x x z -++= 31。 提示:定义符号常数)'5(')'6('sym y sym x ==,。 >> x=sym('6'); >> y=sym('5'); >> z=(x+1)/(sqrt(3+x)-sqrt(y)) z = 7/(3-5^(1/2)) 2. 分解因式:44y x - >> syms x y; >> A=x^4-y^4; >> factor(A) ans = (x-y)*(x+y)*(x^2+y^2) 3. 化简表达式 (1)2121sin cos cos sin ββββ- (2) 123842+++x x x (1) >> syms x y; >> f1=sin(x)*cos(y)-cos(x)*sin(y);

相关主题
文本预览
相关文档 最新文档