《计算方法书中的MATLAB实例.pptx》由会员分享，可在线阅读，更多相关《计算方法书中的MATLAB实例.pptx（32页珍藏版）》请在三一文库上搜索。
1、用Matlab实现求积分,在Matlab程序编辑器中输入：,y0=log(6.0/5.0); fprintf(y%d=%fn,0,y0) n=1; while(1) yl=1.0/n-5*y0; fprintf(y%d=%fn,n,yl) if(n=20) break; end y0=yl; n=n+1; end,程序运行结果:,function x=nabisect(fname,a,b,e) %fname为内嵌函数 表达式；a,b为区间端点；e为输入定义的精度 if nargin0,error(函数在两端点值必须异号);end x=(a+b)/2 while (b-a)(2*e) fx=fe
2、val(fname,x); if fa*fx0,b=x;fb=fx; else a=x;fa=fx;end x=(a+b)/2 end,程序如下：,Matlab 应用举例(二分法),程序运行结果：,用Matlab实现Newton迭代法求解,function x=nanewton(fname,dfname,x0,e,N) if nargineend,程序如下：,程序运行结果：,% 回代 x=zeros(n,1); x(n)=a(n,n+1)/a(n,n); for k=n-1:-1:1 x(k,:)=(a(k,n+1)-a(k,(k+1):n)*x(k+1):n)/a(k,k); end,程序运
3、行 结果：,if flag=0,a,end end %回代 x=zeros(n,1); x(n)=a(n,n+1)/a(n,n); for k=n-1:-1:1 x(k,:)=(a(k,n+1)-a(k,(k+1):n)*x(k+1):n)/a(k,k); end,程序运行 结果:,用Matlab实现LU分解,在Matlab程序编辑器中输入：,function L,U=nalu(a) % a为可逆方阵；L返回单位下三角矩阵；U返回上三角矩阵 n=length(a); U=zeros(n,n);L=eye(n,n); U(1,:)=a(1,:);L(2:n,1)=a(2:n,1)/U(1,1); for k=2:n U(k,k:n)=a(k,k:n)-L(k,1:k-1)*U(1:k-1,k:n); L(k+1:n,k)=(a(k+1:n,k)-L(k+1:n,1:k-1)*U(1:k-1,k)/U(k,k); end,程序运行 结果:,求解例题得 一次插值和 二次插值 如右图所示：,最小二乘 拟合多项式 结果如右图:,Euler格式 求解得：,用改进Euler 格式求得：,