test3_2.m

两点间的头镇试验源码

%work2b.m
clear
t=linspace(0,10,1000);
y=1-exp(-.4*t).*cos(3*t);
[y_max,i_max]=max(y);
t_text=['t=',num2str(t(i_max))];
y_text=['y=',num2str(y_max)];
max_text=char('最大值点：',t_text,y_text);
plot(t,y)
hold on
plot(t(i_max),y_max,'k.','markersize',20)
axis([0 10 0 2])
xlabel('t'),ylabel('y'),title('y=1-exp(-0.4)cos(3t)波形曲线')
y0=ones(size(t));   
%  保持原有图形不变，在其基础上添加下面图形
plot(t,y0,':k')  
text(t(i_max)+.3,y_max+.1,max_text)
set(gca,'xtick',[0:2:10],'ytick',[0:.5:2])
set(gcf,'color','w')
hold off