计算方法实验七.docVIP

浙江大学城市学院实验报告 课程名称 计算方法 实验项目名称 常微分方程初值问题的数值解法 实验成绩 指导老师（签名 ） 日期 2011-12-9 一. 实验目的和要求 用Matlab软件掌握求微分方程数值解的欧拉方法； 通过实例学习用微分方程模型解决简化的实际问题。 二. 实验内容和原理 编程题2-1要求写出Matlab源程序(m文件)，并有适当的注释语句；分析应用题2-2，2-3，2-4，2-5要求将问题的分析过程、Matlab源程序和运行结果和结果的解释、算法的分析写在实验报告上。 编程 编写用向前欧拉公式和改进欧拉公式求微分方程数值解的Matlab程序，问题如下： 在区间内个等距点处，逼近下列初值问题的解，并对程序的每一句添上注释语句。 Euler法 y=euler(a,b,n,y0,f,f1,b1) y=zeros(1,n+1); y(1)=y0; h=(b-a)/n; x=a:h:b; for i=1:n; y(i+1)=y(i)+h*f(x(i),y(i)); end plot(x,y) hold on % 求微分方程的精确解 x1=linspace(a,b,100); 精确解为 s=dsolve(f1,b1,x) syms x y1=zeros(1,100); for i=1:100 y1(i)=subs(s,x,x1(i)); end plot(x1,y1,r) title(红色代表精确解) 改进Euler法 y=eulerpro(a,b,n,y0,f,f1,b1) % 求微分方程的数值解 y=zeros(1,n+1); y(1)=y0; h=(b-a)/n; x=a:h:b; for i=1:n; T1=f(x(i),y(i)); T2=f(x(i+1),y(i)+h*T1); y(i+1)=y(i)+(h/2)*(T1+T2); end plot(x,y) hold on % 求微分方程的精确解 x1=linspace(a,b,100); 精确解为 s=dsolve(f1,b1,x) syms x y1=zeros(1,100); for i=1:100 y1(i)=subs(s,x,x1(i)); end plot(x1,y1,r) title(红色代表精确解) 分析应用题 假设等分区间数，用欧拉法和改进欧拉法在区间内求解初值问题 并作出解的曲线图形，同时将方程的解析解也画在同一张图上，并作比较，分析这两种方法的精度。 (1)向前欧拉法 euler(0,10,100,10,inline(y-20,x,y),Dy=y-20,y(0)=10) ans = 精确解为 s = 20 - 10*exp(x) ans = 1.0e+005 * Columns 1 through 8 0.0001 0.0001 0.0001 0.0001 0.0001 0.0000 0.0000 0.0000 Columns 9 through 16 -0.0000 -0.0000 -0.0001 -0.0001 -0.0001 -0.0001 -0.0002 -0.0002 Columns 17 through 24 -0.0003 -0.0003 -0.0004 -0.0004 -0.0005 -0.0005 -0.0006 -0.0007 Columns 25 through 32 -0.0008 -0.0009 -0.0010 -0.0011 -0.0012 -0.0014 -0.0015 -0.0017 Columns 33 through 40 -0.0019 -0.0021 -0.0024 -0.0026 -0.0029 -0.0032 -0.0035 -0.0039 Columns 41 through 48 -0.0043 -0.0048 -0.0053 -0.0058 -0.0064 -0.0071 -0.0078 -0.0086 Columns 49 through 56 -0.0095 -0