第章例题源程序.docVIP

例5.1 ≤X≤2(区间内，绘制曲线y=2e-0.5xsin(2πx)。 x=0:pi/100:2*pi; y=2*exp(-0.5*x).*sin(2*pi*x); plot(x,y) 例5.2 绘制曲线 t=-pi:pi/100:pi; x=t.*cos(3*t); y=t.*sin(t).*sin(t); plot(x,y); 例5.3 y=2e-0.5xsin(2πx)及其包络线。 x=(0:pi/100:2*pi); y1=2*exp(-0.5*x)*[1,-1]; y2=2*exp(-0.5*x).*sin(2*pi*x); x1=(0:12)/2; y3=2*exp(-0.5*x1).*sin(2*pi*x1); plot(x,y1,k:,x,y2,b--,x1,y3,rp); 例5.4 用不同标度在同一坐标内绘制曲线y1=e-0.5xsin(2πx)及曲线y2=1.5e-0.1xsin(x)。 x1=0:pi/100:2*pi; x2=0:pi/100:3*pi; y1=exp(-0.5*x1).*sin(2*pi*x1); y2=1.5*exp(-0.1*x2).*sin(x2); plotyy(x1,y1,x2,y2); 例5. x=linspace(0,10,100); y=[]; for x0=x if x0=8 y=[y,1]; elseif x0=6 y=[y,5-x0/2]; elseif x0=4 y=[y,2]; elseif x0=0 y=[y,sqrt(x0)]; end end plot(x,y) axis([0 10 0 2.5]) %设置坐标轴 title(分段函数曲线); %加图形标题 xlabel(Variable X); %加X轴说明 ylabel(Variable Y); %加Y轴说明 text(2,1.3,y=x^{1/2}); %在指定位置添加图形说明 text(4.5,1.9,y=2); text(7.3,1.5,y=5-x/2); text(8.5,0.9,y=1); 例5.6 用图形保持功能在同一坐标内绘制曲线y=2e-0.5xsin(2πx)及其包络线。 x=(0:pi/100:2*pi); y1=2*exp(-0.5*x)*[1,-1]; y2=2*exp(-0.5*x).*sin(2*pi*x); plot(x,y1,b:); axis([0,2*pi,-2,2]); %设置坐标 hold on; %设置图形保持状态 plot(x,y2,k); legend(包络线,包络线,曲线y); %加图例 hold off; %关闭图形保持 grid %网格线控制 例5.7 在一个图形窗口中以子图形式同时绘制正弦、余弦、正切、余切曲线。 x=linspace(0,2*pi,60); y=sin(x); z=cos(x); t=sin(x)./(cos(x)+eps); ct=cos(x)./(sin(x)+eps); subplot(2,2,1); plot(x,y); title(sin(x));axis([0,2*pi,-1,1]); subplot(2,2,2); plot(x,z); title(cos(x));axis([0,2*pi,-1,1]); subplot(2,2,3); plot(x,t); title(tangent(x));axis([0,2*pi,-40,40]); subplot(2,2,4); plot(x,ct); title(cotangent(x));axis([0,2*pi,-40,40]); 请看下面的程序。 x=linspace(0,2*pi,60); y=sin(x); z=cos(x); t=sin(x)./(cos(x)+eps); ct=cos(x)./(sin(x)+eps); subplot(2,2,1); %选择2×2个区中的1号区 stairs(x,y);title(sin(x)-1);axis ([0,2*pi,-1,1]); subplot(2,1,2); %选择2×1个区中的2号区 stem(x,y);title(sin(x)-2);axis ([0,2*pi,-1,1]); subplot(4,4,3); %选择4×4个区中的3号区 plot(x,y);title(sin(x));axis ([0,2*pi,-1,1]); s