matlab数学实验实例

1、PAGE 28实验3函数式直接确定型模型PAGE 18数学实验与MatlabPAGE PAGE 89 数学实验与Matlab程序周晓阳华中科技大学数学系我将程序按书中的顺序排列，这样便于读者利用。 本书程序均通过了调式。可直接拷贝到命令窗口运行或编制M文件运行。如出现问题，可能是中英文标点的缘故（排版有可能使用了中文标点），请将中文标点换为英文标点试试。 实验矩阵运算与Matlab命令1.1 知识要点与背景：知识要点和背景：日常矩阵及其运算【 A=4 2 3;1 3 2;1 3 3;3 2 2, % 表1-1、表1-2的数据分别写成矩阵形式 B=35 20 60 45;10 15 50 40;

2、20 12 45 20 】【 C=A*B %矩阵乘法，求各订单所对应的原材料和劳动力 。 】 【 whos % 查看Matlab工作空间中变量及其规模 】 1.2实验与观察：矩阵和Matlab语言1.2.1 向量的生成和运算 【 x=linspace(0,4*pi,100); %将0,4区间100等分，产生了一个100维向量 y=sin(x); %计算函数值，产生了一个与x同维的100维函数向量y y1=sin(x).2; %计算函数向量，注意元素群运算 y2=exp(-x).*sin(x); %以x为横坐标，y为纵坐标画函数的图用不同的线型将函数曲线绘制在一个图上 plot(x,y,-,x,

3、y1,-,x,y2,.-) 】 1. 向量的创建 直接输入向量。 【x1=1 2 4,x2=1,2,1,x3=x1 】 冒号创建向量 。【 x1=3.4:6.7 x2=3.4:2:6.7 x3=2.6:-0.8:0 】 生成线性等分向量。 【 x=linspace(0,1,5) 】2. 向量的运算 【 y=sin(x) 】 【 y1=sin(x).2; y2=exp(-x).*sin(x); 】 1.2.2.矩阵创建和运算1.创建矩阵（1）数值矩阵的创建 直接输入法创建简单矩阵。【 A=1 2 3 4; 5 6 7 8; 9 10 11 12 】 【 B=-1.3,sqrt(3);(1+2)*

4、4/5,sin(5);exp(2),6 】 （2）符号矩阵的创建 【 syms a11 a12 a13 a14 a21 a22 a23 a24 a31 a32 a33 a34 b11 b12 b13 b14 b21 b22 b23 b24 b31 b32 b33 b34A1=a11 a12 a13 a14 ;a21 a22 a23 a24; a31 a32 a33 a34,B1=b11 b12 b13 b14 ;b21 b22 b23 b24; b31 b32 b33 b34 】 2.矩阵的运算 【 C=A1+B1,D=A1-B1 】 【 syms c cA=c*A1 】 【 C=A1*B1

5、】 ? Error using = sym/mtimes, Inner matrix dimensions must agree. 【 A2=A1(:,1:3), B1 】【 G=A2*B1 】【 g11=A2(1,:)*B1(:,1) 】 【 A, A_trans=A 】 【 H=1 2 3 ; 2 1 0 ; 1 2 3 , K=1 2 3 ; 2 1 0 ; 2 3 1h_det=det(H), k_det=det(K),H_inv=inv(H),K_inv=K-1 】 【 A=3 0 1; 1 1 0;0 1 4; B=inv(A-2*eye(3)*A, B=(A-2*eye(3)A

6、】3.分块矩阵：矩阵的裁剪、分割、修改与抽取（1）【 A=1 0 1 1 2;0 1 -1 2 3;3 0 5 1 0;2 3 1 2 1, vr=1,3;vc=1,3;A1=A(vr,vc) %取出A的1、3行和1、3列的交叉处元素构成新矩阵A1 】 将上面的矩阵A分为四块，并把它们赋值到矩阵B中，观察运行后的结果。【 A11=A(1:2,1:2),A12=A(1:2,3:5),A21=A(3:4,1:2),A22=A(3:4,3:5)B=A11 A12;A21 A22 】A = 2 0 5 4 2 1 0 -1 2B = 1 2 4 -1 5 3 1 0 -1 0 2 3C = -3 4

7、18 13 13 14 20 -1 -7 -3 3 6 （2）矩阵的修改和提取 【 A=1 0 1 1 2;0 1 -1 2 3;3 0 5 1 0;2 3 1 2 1 A(1,:)=0 0 0 0 0; A 】 观察：【 B(:,2,4)= %删除矩阵B的第2、4列 】（3）矩阵元素的抽取4.生成特殊矩阵 。 【 y1=rand(1,5), y2=rand(1,5),rand(seed,3), x1=rand(1,5), rand(seed,3), x2=rand(1,5) 】5. 常用矩阵函数6. 数据的简单分析 【 rand(seed,1);A=rand(3,6), Asort=sort

8、(A), Amax=max(A), Asum=sum(A) 】1.2.3 Matlab工作环境和编程2.Matlab的基本设计1.3应用、思考与练习 关系矩阵1.3.2 投入产出 1.3.3 循环比赛的名次 【 A=0 1 1 0; 0 0 1 1; 0 0 0 1; 1 0 0 0, e=ones(4,1); c=A*e; s=c 】 画矩阵结构图的gplot指令。 （3） 【 clf, A=0 1 1 0;0 0 1 1;0 0 0 1;1 0 0 0; xy=0 1;0 0;-1 0.5;1 0.5; graphy_plot(A,xy,1,0.5), % gplot(A,xy) 】1.3

9、.4 参考程序graphy_plot.m 【 function y=graphy_plot(A,xy,l,p) %画矩阵的有向结构图。 A为邻接矩阵，xy为顶点坐标，l控制参数，l=0，画无向图； %l=0,画有向图。p为控制箭头大小的参数。a=-max(abs(xy(:,1)*1.1;b=max(abs(xy(:,1)*1.1;c=-max(abs(xy(:,2)*1.1;d=max(abs(xy(:,2)*1.1;if l=0 gplot(A,xy),axis(a b c d),hold on,elseif l=0 U=;V=;X=;Y=; n=length(A(:,1) ; for i=

10、1:n k=find(A(i,:)=0); m=length(k); if(m=0) for j=1:m u(1)=(xy(k(j),1)-xy(i,1); v(1)=(xy(k(j),2)-xy(i,2); u(2)=eps; v(2)=eps; U=u;U;V=v;V; X=xy(i,1) xy(k(j),1);X; Y=xy(i,2) xy(k(j),2);Y; end text(xy(i,1),xy(i,2),bulletleftarrowfontsize16itV, um2str(i); hold on, end end gplot(A,xy),axis(a b c d),hold

11、on, h=quiver(X,Y,U,V,p);set(h,color,red);hold on, plot(xy(:,1),xy(:,2),k.,markersize,12),hold on,end , hold off 】实验函数的可视化与Matlab作2.1 实验与观察：函数的可视化2.1.1 Matlab二维绘图命令1.周期函数与线性p周期函数 观察 ： 【 clf, x=linspace(0,8*pi,100);F=inline(sin(x+cos(x+sin(x);y1=sin(x+cos(x+sin(x); y2=0.2*x+sin(x+cos(x+sin(x);plot(x,y

12、1,k:,x,y2,k-) legend(sin(x+cos(x+sin(x),0.2x+sin(x+cos(x+sin(x),2) 】 2. plot指令：绘制直角坐标的二维曲线3. 图形的属性设置和屏幕控制 【 h=plot(0:0.1:2*pi,sin(0:0.1:2*pi); grid on set(h,LineWidth,5,color,red); set(gca,GridLineStyle,-,fontsize,16) 】 设置y坐标的刻度并加以说明，并改变字体的大小。【 h=plot(0:0.1:2*pi,sin(0:0.1:2*pi);grid on， set(gca,ytic

13、k,-1 -0.5 0 0.5 1), set(gca,yticklabel,a|b|c|d|e), set(gca,fontsize,20) 】4. 文字标注指令 【 plot(x,y1,b,x,y2,k-) , set(gca,fontsize,15,fontname,times New Roman), %设置轴对象的字体为times % New Roman，字体的大小为15 title( itPeroid and linear peroid function); %加标题，注意文字用单引号 加上 %斜杠后可输入不同的设置，例如it表示花括号里的文字为斜体；如果有多项设置， %则可用连续输

14、入。 xlabel(x from 0 to 8*pi itt); ylabel(ity); %说明坐标轴 text(x(49),y1(50)-0.4,fontsize15bulletleftarrowThe period function itf(x); %在坐标(x(49),y1(50)-0.4）处作文字说明， 各项设置用隔开。 %fontsize15bulletleftarrow的意义依次是：字体大小=15 画圆点 左箭头 text(x(14),y2(50)+1,fontsize15The linear period function itg(x)rightarrowbullet) %与上

15、一语句类似，用右箭头 】图2.5 文字标注 观察指令legend和num2str的用法：在同一张图上画出， 这里, 并进行适当的标注。 zxy2_2.m 【 clf, t=0:0.1:3*pi;alpha=0:0.1:3*pi; plot(t,sin(t),r-);hold on; plot(alpha,3*exp(-0.5*alpha),k:); set(gca,fontsize,15,fontname,times New Roman), xlabel(itt(deg);ylabel(itmagnitude);title( itsine wave and itAe-alphaittwave)

16、; %注意alpha的意义text(6,sin(6),fontsize15The Value itsin(t) at itt=6rightarrowbullet, HorizontalAlignment,right), %上面的语句是一整行，如果要写成两行，必须使用续行号 ，例如要在“ bullet,” %后换行，需写“bullet, ”后才能换行。 % HorizontalAlignment,right 表示箭头所指的曲线对象在 文字的右边。text(2,3*exp(-0.5*2),fontsize15bulletleftarrow The Value of it3e-0.5 itt=,nu

17、m2str(3*exp(-0.5*2), at itt =2 ); %num2str的用法：string1 ,num2str,string2，注意方括号的使用。%legend(itsin(t),itAe-alphat) % 请结合图形观察此命令的使用 】 运行结果如图2.6所示。 5. 图形窗口的创建和分割 观察：【 clf，b=2*pi;x=linspace(0,b,50);for k =1:9 y=sin(k*x); subplot(3,3,k),plot(x,y),axis(0,2*pi,-1,1)end 】x=linspace(0,4*pi,150);y1=cos(x);y=cos(c

18、os(cos(cos(cos(cos(cos(x)+sin(x)+sin(x)+sin(x);plot(x,y,x,y1,r-),grid 2.1.2多元函数的可视化与空间解析几何（三维图形） 本节通过高等数学的几个例子观察Matlab的三维绘图功能和技巧。1. 绘制二元函数 观察：绘制 的图象，作定义域的裁剪。 （1）观察meshgrid指令的效果。【 a=-0.98;b=0.98;c=-1;d=1;n=10;x=linspace(a,b,n); y=linspace(c,d,n);X,Y=meshgrid(x,y);plot(X,Y,+) 】 三维绘图指令mesh、meshc、surf。

19、（2）做函数的定义域裁剪，观察上述三维绘图指令的效果。程序zxy2_4.m【 clear,clf,a=-1;b=1;c=-15;d=15;n=20;eps1=0.01;x=linspace(a,b,n);y=linspace(c,d,n);X,Y=meshgrid(x,y);for i=1:n %计算函数值z ，并作定义域裁剪 for j=1:n if (1-X(i,j)eps1|X(i,j)-Y(i,j)eps1 %if语句这样用 z(i,j)=NaN; %作定义域裁剪，定义域以外的函数值为NaN else z(i,j)=1000*sqrt(1-X(i,j)-1.*log(X(i,j)-Y(

20、i,j); end endend zz=-20*ones(1,n);plot3(x,x,zz),grid off,hold on %画定义域的边界线mesh(X,Y,z) %绘图，读者可用meshz, surf, meshc在此替换之 xlabel(x),ylabel(y),zlabel(z), box on %把三维图形封闭在箱体里 】 运行了zxy2_4.m 以后，有关向量存储在工作空间中，在此基础上，观察上述等值线绘制指令的运行效果。 【 cs,h=contour(X,Y,z,15); clabel(cs,h,labelspacing,244) 】2. 三元函数可视化: slice指令

21、观察： 绘制三元函数的可视化图形。【 clf,x=linspace(-2,2,40); y=x; z=x; X,Y,Z=meshgrid(x,y,z); w=X.2+Y.2+Z.2;slice(X,Y,Z,w,-1,0,1,-1,0,1,-1,0,1),colorbar 】3. 空间曲线及其运动方向的表现：plot3和quiver指令【 clf, t=0:0.1:1.5;Vx=2*t;Vy=2*t.2;Vz=6*t.3-t.2;x=t.2;y=(2/3)*t.3;z=(6/4)*t.4-(1/3)*t.3; %由速度得到曲线plot3(x,y,z,r.-),hold on %画飞行轨迹 %算数

22、值梯度，也就是重新计算数值速度矢量，这只是为了编程的方便，不是必须的图2.12 飞机的飞行轨迹与方向Vx=gradient(x);Vy=gradient(y);Vz=gradient(z);quiver3(x,y,z,Vx,Vy,Vz),grid on %画速度矢量图xlabel(x),ylabel(y),zlabel(z) 】2.2应用、思考和练习2.2.1 线性p周期函数zxy2_3_f.m【 function f=zxy2_3_f(x) f=sin(x+cos(x); 】zxy2_3.m【 clear，clfa=-8;b=12;n=300;xx=linspace(a,b,n);h=zxy

23、2_3_f(xx);S(1)=0;for i=2:n S(i)=S(i-1)+quad(zxy2_3_f,xx(i-1),xx(i);endsubplot(1,2,1),plot(xx,S,k-),axis(a,b,-1.5,9)subplot(1,2,2),plot(xx,h;zeros(1,length(xx),k-),axis(a,b,-1.5,1.5) 】2.2.2 平面截割法和曲面交线的绘制用平行截面法讨论由曲面 构成的马鞍面形状。 zxy2_6.m （ 平行截割法示例 ， 本程序的绘制两曲面交线方法可以套用） 【 clf, a=-20;eps0=1;x,y=meshgrid(-10

24、:0.2:10); %生成平面网格v=-10 10 -10 10 -100 100; %设定空间坐标系的范围colormap(gray) %将当前的颜色设置为灰色z1=(x.2-2*y.2)+eps; %计算马鞍面函数z1=z1(x,y)z2=a*ones(size(x); %计算平面 z2=z2(x,y)r0=abs(z1-z2)=eps0; %计算一个和z1同维的函数r0,当abs(z1-z2)eps0时，r0 =0。 %可用mesh(x,y,r0)语句观察它的图形，体会它的作用，该方法可以套用。zz=r0.*z2;xx=r0.*x;yy=r0.*y; %计算截割的双曲线及其对应的坐标su

25、bplot(2,2,2), %在第2图形窗口绘制双曲线 h1=plot3(xx(r0=0),yy(r0=0),zz(r0=0),+); set(h1,markersize,2),hold on,axis(v),grid onsubplot(2,2,1), %在第一图形窗口绘制马鞍面和平面 mesh(x,y,z1);grid,hold on;mesh(x,y,z2); h2=plot3(xx(r0=0),yy(r0=0),zz(r0=0),.); %画出二者的交线 set(h2,markersize,6),hold on,axis(v),for i=1:5 %以下程序和上面是类似的，通过循环绘制

26、一系列的平面去截割马鞍面 a=70-i*30; %在这里改变截割平面 z2=a*ones(size(x); r0=abs(z1-z2)=1; zz=r0.*z2;yy=r0.*y;xx=r0.*x; subplot(2,2,3), mesh(x,y,z1);grid,hold on;mesh(x,y,z2);hidden off h2=plot3(xx(r0=0),yy(r0=0),zz(r0=0),.); axis(v),grid subplot(2,2,4), h4=plot3(xx(r0=0),yy(r0=0),zz(r0=0),o); set(h4,markersize,2),hold

27、 on,axis(v),grid onend 】 2.2.3 微分方程的斜率场 绘制微分方程 的斜率场，并将解曲线画在图中，观察斜率场和解曲线的关系。 zxy2_5.m ( 绘制一阶微分方程的斜率场和解曲线)【 clf,clear %清除当前所有图形窗口的图像，清除当前工作空间的内存变量。a=0;b=4;c=0;d=4;n=15;X,Y=meshgrid(linspace(a,b,n),linspace(c,d,n); %生成区域中的网格。z=X.*Y; %计算斜率函数。 Fx=cos(atan(X.*Y);Fy=sqrt(1-Fx.2); %计算切线斜率矢量。quiver(X,Y,Fx,Fy

28、,0.5),hold on,axis(a,b,c,d) %在每一网格点画出相应的斜率矢量，0.5是控制矢量大小的控制参数，可以调整。x,y=ode45(zxy2_5f,0,4,0.4); %求解微分方程。 %zxy2_5f.m是方程相应函数f(x,y)的程序，单独编制；x0,xs=0,4为求解区间； %y0=0.4为初始值；输出变量x,y分别为解轨线自变量和因变量数组。plot(x,y,r.-) %画解轨线 】 zxy2_5f.m （微分方程的函数子程序）【 function dy=zxy2_5f(x,y)dy=x.*y; 】 2.2.4颜色控制和渲染及特殊绘图指令1.地球表面的气温分布（sp

29、here指令） 【 a,b,c=sphere(40);t=max(max(abs(c)-abs(c);surf(a,b,c,t);axis(equal),colormap(hot), shading flat,colorbar 】2.旋转曲面的生成：柱面指令cylinder和光照控制指令surfl 【 x=0:0.1:10;z=x;y=1./(x.3-2.*x+4); u,v,w=cylinder(y);surfl(u,v,w,45,45); shading interp 】3.若干特殊图形 运行下面程序，了解各指令的用法和效果。【 x=1:10; y=5 6 3 4 8 1 10 3 5 6

30、;subplot(2,3,1),bar(x,y),axis(1 10 1 11)subplot(2,3,2),hist(y,x),axis(1 10 1 4)subplot(2,3,3),stem(x,y,k),axis(1 10 1 11)subplot(2,3,4),stairs(x,y,k), axis(1 10 1 11)subplot(2,3,5), x = 1 3 0.5 5;explode = 0 0 0 1;pie(x,explode)subplot(2,3,6),z=0:0.1:100; x=sin(z);y=cos(z).*10; comet3(x,y,z) 】实验函数式直

31、接确定型模型3.1知识要点和背景：函数 直接确定性模型 3.2实验与观察：插值与拟合3.2.1 插值方法与多项式拟合的概念3.2.2 用Matlab作插值和拟合3.2.3 用鼠标选节点 观察插值、拟合的效果 3.2.4 观察程序说明zxy3_1.m【 clf,a=-1;b=1;n=100; %用内联函数inline命令定义函数， %在后面可直接用于函数g的计算,要改变函数做实验，可按此格式重新定义gg=inline(x2-x4); xx=linspace(a,b,n);for i=1:n gx(i)=gxx(i); % 前面已经用inline命令定义了g，可以这样用g计算函数值endymin=

32、min(gx)*0.8;ymax=max(gx)*1.2;%分四个界面画图g的图形，以便于结果比较subplot(2,2,1),plot(xx,gx,-),grid,hold on,axis(a b ymin ymax),title(近邻插值)subplot(2,2,2),plot(xx,gx,-),grid,hold on,axis(a b ymin ymax),title(线性插值)subplot(2,2,3),plot(xx,gx,-),grid,hold on,axis(a b ymin ymax),title(样条插值)subplot(2,2,4),plot(xx,gx,-),gri

33、d,hold on,axis(a b ymin ymax),title(多项式拟合) %用鼠标在屏幕上选点x,y,button = ginput(n)，可套用下面程序的格式button=1;x1=a;y1=gx(1);while button=1 xi,yi,button=ginput(1); subplot(2,2,1),h=plot(xi,yi,ro) %在4个图形窗口画点 subplot(2,2,2),h=plot(xi,yi,ro) subplot(2,2,3),h=plot(xi,yi,ro) subplot(2,2,4),h=plot(xi,yi,ro) x1=xi,x1;y1=y

34、i,y1; %将选的点存于向量x1,y1end x1=b,x1;y1=gx(n),y1; xx=linspace(a,b,n); %定义自变量xx %计算不同的插值函数：x1,y1为节点，xx为输入自变量 ynearest=interp1(x1,y1,xx,nearest); ylinear=interp1(x1,y1,xx,linear); yspline=interp1(x1,y1,xx,spline); %多项式拟合指令p,s = polyfit(x,y,n)，n为拟合多项式次数，x,y为被拟合数据， %p为拟合多项式的系数，s是用来做误差 估计和预测的数据结构。 p,c=polyfit

35、(x1,y1,4); ypolyfit=polyval(p,xx); %用polyval(p,x)计算系数为p的多项式在标量或向量x处的值 subplot(2,2,1),h=plot(xx,ynearest,r-);set(h,linewidth,2) %画图subplot(2,2,2),h=plot(xx,ylinear,r-);set(h,linewidth,2);subplot(2,2,3),h=plot(xx,yspline,r-);set(h,linewidth,2) subplot(2,2,4),h=plot(xx,ypolyfit,r-);set(h,linewidth,2) 】

36、3.3应用、思考和练习3.3.1若干函数的插值和拟合练习3.3.2几个应用问题1. 机床加工和水深流速问题 2. 内燃机转角与升程的关系 3. 随高度变化的大气压强4. 交通事故的调查3.3.4多元函数的插值 plot(fi,x,o) fi=91 105 110 115 120 124 128; x=0 1.0869 1.9710 2.7555 3.3986 4.9073 8.3409; plot(fi,x,o) x = 0 1.0869 1.9710 2.7555 3.3986 4.9073 8.3409 1. 矩形温箱的温度2. 航行区域的警示线3.3.5 Fourier级数和周期函数的经

37、验公式 zxy3_2.m【 clf,clear,n=10;m=3;x=1:1:12;y=3.1 3.8 6.9 12.7 16.8 20.5 24.5 25.9 22.0 16.1 10.7 5.4;z=(pi/6)*x;plot(z(1:12),y(1:12),o);hold onk=1:m; %计算数据矩阵。for i=1:n X(i,:)=1 cos(k*z(i) sin(k*z(i);endc=inv(X*X)*X*y(1:n), %求解。z1=linspace(0,2*pi,30);s=; %开始计算F级数的部分和。for i=1:30; sd=1 cos(k*z1(i) sin(k

38、*z1(i); %注意k是向量。 sd=c.*sd; s=s,sum(sd);endplot(z1,s,r-),hold on, xlabel(月份),ylabel(平均气温) 】3.3.6由实验到理论:从开普勒定律和牛顿万有引力定律x=0 3 5 7 9 11 12 13 14 15;y=0 1.2 1.7 2.0 2.1 2.0 1.8 1.2 1.0 1.6;x1=0, 0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9;y1=3.1950, 3.2299, 3.2532, 3.2611, 3.2516, 3.2282, 3.1870, 3.1266,

39、 3.0594, 2.9757;clf,subplot(1,2,1),plot(x,y,k.),axis(-0.5 16 -0.5 4),subplot(1,2,2),plot(x1,y1,k.) T=0.241 0.615 1.000 1.881 11.862 29.457; R=0.387 0.723 1.000 1.524 5.203 9.539; T=T.2, R=R.3 plot(T,R,o) 运行结果（图形略，显示为直线）T = 0.0581 0.3782 1.0000 3.5382 140.7070 867.7148R = 0.0580 0.3779 1.0000 3.5396

40、140.8515 867.9777 实验8.线性代数实验 PAGE 42 实验. 微分、积分和微分方程4.1. 知识要点和背景：微积分学基本定理 对于定义在a,b区间上的函数y=f(x),将a,b区间n等分，步长h=(b-a)/n.设分点为a=x0 x1x2x=1 1 1 ;1 1 1;1 1 1,I1=cumsum(x,1),I2=cumsum(x,2)x = 1 1 1 1 1 1 1 1 1I1 = 1 1 1 2 2 2 3 3 3I2 = 1 2 3 1 2 3 1 2 3 观察：用累积和命令cumsum计算积分。【 x=linspace(0,pi,50); y=sin(x);T=c

41、umsum(y)*pi/(50-1);I=T(50) 】 观察梯形公式计算的效果。【 x=linspace(0,pi,50); y=sin(x);T=trapz(x,y) 】 观察辛普森积分公式的计算效果。【 I1=quad(sin,0,pi), I2=quad8(sin,0,pi), 】 观察：用解常微分方程的方法计算积分。【 y0=0;x,y=ode23(myfun2_2,0,pi,y0);s=length(y);y(s) 】【 y0=0;x,y=ode45(myfun2_2,0,pi,y0);s=length(y);y(s) 】4.2.3 观察程序及其说明 zxy4_1.m （观察方程的

42、解曲线族，图4.1）【 clf,clear,a=0;b=pi;c=0;d=2.2;n=20;X,Y=meshgrid(linspace(a,b,n),linspace(c,d,n);z=X.*Y; Fx=cos(atan(sin(X);Fy=sin(atan(sin(X); quiver(X,Y,Fx,Fy,0.5),hold on,axis(a,b,c,d)x,y=ode45(zxy4_1f,0,pi,0); x1,y1=ode45(zxy4_1f,0,pi,0.2);x2,y2=ode45(zxy4_1f,0,pi,0.4);x3,y3=ode45(zxy4_1f,0,pi,0.6); p

43、lot(x,y,r.-,x1,y1,r.-,x2,y2,r.-,x3,y3,r.-), xlabel(x) ,ylabel(y) 】zxy4_1f.m 【 function dy=zxy4_1f(x,y) dy=sin(x); 】. 观察 程序zxy4_2.m （图4.14.3）【 clf, a=0;b=4*pi;n=31; x=linspace(a,b,n); y=zeros(1,n); y(1)=0; s(1)=0; for i=1:n-1 dy=myfun2_2(x(i); y(i+1)=y(i)+dy*(x(i+1)-x(i); hh(i)=myfun2_2(x(i); s(i+1)=

44、s(i)+hh(i)*(x(i+1)-x(i); enda1=0.9*a;b1=1.1*b; % 设置坐标范围。ymin=min(y);ymax=max(y);ymin1=ymin*0.9;ymax1=ymax*1.1; subplot(2,1,1), %在第一幅图中画垂线,和原函数。 fplot(1-cos(x),0,pi,r:);axis(a1 b1 ymin1 ymax1),hold on, plot(x(1) x(1),ymin ymax); subplot(2,1,2), %在第二幅图中画被积函数图象。 fplot(myfun2_2,a b,-k);hold on,axis(a1 b

45、1 ymin1 ymax1) for i=1:n-1 %在第I个子区间上计算。 subplot(2,1,1), plot(x(i+1) x(i+1),ymin ymax); %在各分点画竖线。 plot(x(i) x(i+1),y(i),y(i); %画水平线。 h=plot(x(i+1) x(i+1),y(i),y(i+1); %画表示增量的垂线。 set(h,linewidth,3,color,b); %设置线宽和颜色。 h1=plot(x(i) x(i+1),y(i) y(i+1),.-); %画折线，设置图形属性 。 set(h1,linewidth,2,markersize,18);

46、 subplot(2,1,2), xx=x(i) x(i) x(i+1) x(i+1); yy=0 hh(i) hh(i) 0; %计算矩形顶点坐标。 patch(xx,yy,0.7 0.7 0.7); %在第二幅图中画矩形块并填充颜色。 plot(x(i+1) x(i+1),ymin ymax); plot(x(1) x(1),s(i),s(i+1),r,linewidth,5); %在y轴上画面积增量线段。 plot(x(1),y(i+1),r.,Markersize,18); subplot(2,1,1),plot(x(i+1) x(i+1),ymin ymax); h=plot(x(1

47、) x(1),s(i),s(i+1); %画相应的辅助线段。 set(h,linestyle,-,linewidth,5,color,red); plot(x(1),y(i+1),r.,Markersize,18); plot(x(1) x(i+1),s(i+1) y(i+1),r-) pause %暂停，n大时应该去掉。 end 】 myfun2_2.m (选择其它的函数进行实验，可修改此程序)【 function y=myfun2_2(x) sin(x); %y=sin(x)./(x); 】4.3 实验与观察()： Matlab符号微积分简介4.3.1 创建符号变量4.3.2 求符号极限l

48、imit指令 观察 ：求下列问题的极限： 【 syms x a I1=limit(sin(x)-sin(3*x)/sin(x),x,0)I2=limit(tan(x)-tan(a)/(x-a),x,a)I3=limit(3*x-5)/(x3*sin(1/x2),x,inf) 】4.3.3 求导指令diff 1.符号求导指令diff 【 syms x y f=sym(exp(-2*x)*cos(3*x(1/2)diff(f,x)g=sym(g(x,y) %建立抽象函数。f=sym(f(x,y,g(x,y) %建立复合抽象函数。diff(f,x)diff(f,x,2) 】2.数值求导指令diff

49、【 x=linspace(0,2*pi,50);y=sin(x);dydx=diff(y)./diff(x); plot(x(1:49),dydx),grid 】4.3.4 求符号积分int 【 syms x y z I1=int(sin(x*y+z),z) I2=int(1/(3+2*x+x2),x,0,1) I3=int(1/(3+2*x+x2),x,-inf,inf) 】4.3.5 化简、提取和代入 【 syms x at=(a+x)6-(a-x)6t_expand=expand(t)t_factor=factor(t_expand)t_simplify=simplify(t) 】 观察

50、： 将代入表达式中求值。 【 syms a b c x y a0 y0 f=a*b+c/x*y; a=a0;b=1;c=4;x=x0;y=5; t= subs(f) 】 【 syms a b c x y a0 y0 f=a*b+c/x*y; subs(f,a,b,c,x,y,a0,1,4,x0,5) 】4.4应用、思考和练习4.4.1 追击问题1.追击问题的数值模拟 2. 追踪雷达失效的情形 3. 追线问题的解析解 【 syms y a v s0 x=sym(x(y); t=sym(t(y); %定义函数关系。 f_left=-y*diff(x,y); f_right=s0+a*t-x; %方

51、程左、右边表达式。 r_left=diff(f_left,y), r_right=diff(f_right,y) %求导 】【 syms y d r xs=simplify(dsolve(D2x=-r*sqrt(1+Dx2)/y,x(20)=0,Dx(20)=0,y) 】【 r=0.4; y=20:-0.01:0;x=1/2*(y.(1+r)*r*20(-r)+y.(1-r)*r*20r-40*r-y.(1+r)*20(-r)+y.(1-r)*20r)/(-1+r2);shg,comet(x,y) 】 4.4.2 应用问题1.枪支的设计【clear,clfx=0.0127,0.0254,0.0

52、381,0.0508,0.0635,0.0762,0.0889,0.1016,0.1143,0.1270,0.1397,0.1524,0.3175,0.3302,0.3429,0.3556,0.3683,0.3810,0.3937,0.4064,0.4191,0.4318,0.4445,0.4572,0.1651,0.1778,0.1905,0.2032,0.2159,0.2286,0.2413,0.2540,0.2667,0.2794,0.2921,0.3048,0.4699,0.4826,0.4953,0.5080,0.5207,0.5334,0.5461,0.5588,0.5715,0.

53、5842,0.5969,0.6096;p=0.10135,0.20064,0.27303,0.31095,0.33094,0.33991,0.34474,0.33577,0.31508,0.29578,0.27717,0.26131,0.11859,0.11238,0.10687,0.10204,0.09215,0.09308,0.08894,0.08480,0.08067,0.07722,0.07377,0.07032,0.24545,0.23097,0.21718,0.20339,0.19167,0.17995,0.16823,0.15789,0.14824,0.13927,0.13238

54、,0.12548,0.06757,0.06481,0.06205,0.05929,0.05654,0.05378,0.05102,0.04826,0.04550,0.04274,0.04067,0.03861;xx,k=sort(x);pp=p(k);plot(0,xx,0,pp,-),grid on,xlabel(枪 管 长 度 x),ylabel(压 强 p) 】 2.天然气井的开采量 实验.用导数作定性分析5.1知识要点：函数作图 用导数定性描述函数【 clf,x=linspace(-8,8,30);f=(x-3).2./(4*(x-1); plot(x,f) 】【 fplot(x-3)

55、2/(4*(x-1),-8,8) 】【 clf,x=sym(x); f=(x-3)2/(4*(x-1); ezplot(f,-8,8) , title(x-3)2/(4*(x-1),fontsize,11) , xlabel(x,fontsize,11) 】 按函数绘图步骤绘制完整的函数图，直接用Matlab符号演算完成必须的计算。 【 df_dx=diff(x-3)2/(4*(x-1) 】 【 sym(x);factor(df_dx) 】 【 f=inline(x-3)2/(4*(x-1);X1=-1,f(-1),X2=3,f(3) 】 求符号二阶导数d2y/dx2： 【 df2_dx2=d

56、iff(x-3)2/(4*(x-1),2) 】 二阶导数的因式分解：【 sym(x); factor(df2_dx2) 】【 syms x f_left=limit(x-3)2/(4*(x-1),x,1,left) f_right=limit(x-3)2/(4*(x-1),x,1,right) 】【 syms x f_minus_inf=limit(x-3)2/(4*(x-1),x,-inf,right) f_plus_inf=limit(x-3)2/(4*(x-1),x,inf,left) 】 有无斜渐近线？【 syms x, a=limit(x-3)2/(4*(x-1)/x,x,inf)

57、】【 b=limit(x-3)2/(4*(x-1)-(1/4)*x,x,inf,left) 】5.2实验与观察：微分方程的定性解图示5.2.1人口增长的预测1.Malthus模型2.Logistic模型【 N=dsolve(DN=r*(1-N/Nm)*N,N(t0)=N0) 】3.微分方程解的定性分析观察1： （1）求N = N (t)的驻点和拐点。 【 syms t dN2_dt2=diff(r*(1-N(t)/Nm)*N(t),t) , dN2_dt2=factor(dN2_dt2) 】 4.用导数作稳定性分析 下面是绘制图5.8的参考程序。 【 clf, N=linspace(0,300

58、,50);dN=0.3134*(1-N/250).*N;plot(N,dN),hold on,plot(0 300,0,0),plot(0,250/2,250,0,0,0,o),xlabel(N,fontsize,11),ylabel(dN,fontsize,11),text(N(32),dN(32),leftarrowitd N / d t0,相点递增右移,fontsize,11),text(125,dN(45),itdN/dt0,相点递减左移 rightarrow,fontsize,11);h=text(251/2,1.5,itN_m/2);set(h,fontsize,11) 】5.观察

59、程序及其说明zxy5_1.m (绘制函数图象，图5.3)【 clf, x=sym(x); f=(x-3)2/(4*(x-1); g=x/4-5/4;hold on,h=line(-8 8,0,0); set(h,color,red);h=line(0 0,-8,8); set(h,color,red);line(1 1,-8 8);plot(-1 1 3,-2,0,0,o),ezplot(g,-8 8); ezplot(f,-8,8), %符号函数绘图text(-1-0.5,-2-0.5,(-1,-2);text(1,0-0.5,(1,0); text(3,0.5,(3,0);x=1.4;te

60、xt(x,subs(f),leftarrow(x-3)2/4(x-1);x=0.6;text(x,subs(f),leftarrow(x-3)2/4(x-1);x=2.5;text(x,subs(g),leftarrow斜渐近线y=x/4-5);text(1,-2,leftarrow垂直渐近线x=1);title(x-3)2/4(x-1) 】zxy5_2.m （人口预测，图5.5）【 global p1;clf,t1=1790 1800 1810 1820 1830 1840 1850 1860 1870 1880 1890 1900 1910 1920 1930 1940 1950 1960