聊城大学通信工程专业matlab编程题答案.docVIP

阶乘的函数 (函数文件) function result=jiecheng(n) result=1; for i=1:n result=result*i; end (脚本文件) n=input(输入n:); result=jiecheng(n); disp(阶乘结果是:); result 2. 编写一个计算双曲正弦的函数。以及调用这个函数的脚本m文件。 (函数文件) function sinhx x=-7:0.1:7; y=(exp(x)-exp(-x))/2; plot(x,y); title(plot of (exp(x)-exp(-x))/2); xlabel(x); ylabel(y); legend(双曲正弦); grid on; （脚本文件） disp(双曲正弦函数); sinhx 3. 成绩 (函数文件)。 function result=paixu(a) result=a; for i=1:length(result); for j=2:length(result); if result(j-1)result(j); q=result(j-1); result(j-1)=result(j); result(j)=q; end end end (脚本文件) for i=1:10; a(i)=input(输入a:); end a zuigao=max(a) zuidi=min(a) pingjun=mean(a) result=paixu(a) 4.分段函数的表示。 (脚本文件) disp(输入x,y:); x=input(输入x:); y=input(输入y:); if x = 0 y = 0; fun = x + y; elseif x = 0 y 0; fun = x + y^2; elseif x 0 y = 0; fun = x^2 + y; else fun = x^2 + y^2; end fun 5.求一元二次方程的根（讨论系数）。 （脚本文件） disp(输入a,b,c); a=input(输入a：); b=input(输入b：); c=input(输入c：); if(b^2-4*a*c)0; a1=(-b)/(2*a); b1=-sqrt(4*a*c-b^2)/(2*a); b2=sqrt(4*a*c-b^2)/(2*a); x1=complex(a1,b1); x2=complex(a1,b2); end if(b^2-4*a*c)==0; x1=(-b)/(2*a); x2=(-b)/(2*a); end if(b^2-4*a*c)0; x1=(-b)/(2*a)-sqrt(b^2-4*a*c)/(2*a); x2=(-b)/(2*a)+sqrt(b^2-4*a*c)/(2*a); end x1 x2 6. 如何修改程序能使小红球上下不停运动 x=0:0.01:20*pi; p=plot3(sin(x),cos(x),x); h=line(0,1,0,color,red,marker,.,markersize,20,erasemode,xor); for k=0:0.01:20*pi; set(h,xdata,sin(k),ydata,cos(k),zdata,k); drawnow; end for k=20*pi:-0.01:0; set(h,xdata,sin(k),ydata,cos(k),zdata,k); drawnow; end clear close all y = dsolve ( D2y+3*Dy+2*y=2*t+2*t^2,y(0)=1,Dy(0)=1); yht = dsolve ( D2y+3*Dy+2*y=0); yt = dsolve ( D2y+3*Dy+2*y=2*t+2*t^2); yp = yt-yht; yh = y-yp; yzi= dsolve ( D2y+3*Dy+2*y=0,y(0)=1,Dy(0)=1); yzs= dsolve ( D2y+3*Dy+2*y=2*t+2*t^2,y(0)=1,Dy(0)=1); t=0:0.01:3;figure(1) ezplot(yzi,[0,3]);hold on ;ezplot(yzs,[0,3]);ezplot(y,[0,3]); axis([0 3 -1 5]);hold off; title(全响应，零输入响应，零状态响应