exm1073_1.m

学matlab还有比这个更好的吗?我千兴万苦才找到的,这是一个学习matlab的视频,功能强大

%exm1073_1.m
tp=(0:100)/100*5;yp=8+4*(1-exp(-0.8*tp).*cos(3*tp));		%压力数据
tt=(0:500)/500*40;yt=120+40*(1-exp(-0.05*tt).*cos(tt));	%温度数据
%产生双坐标系图形
clf reset,shg,h_ap=axes('Position',[0.13,0.13,0.7,0.75]);			%<4>
set(h_ap,'Xcolor','b','Ycolor','b','Xlim',[0,5],'Ylim',[0,15]);
nx=10;ny=6;																%<6>
pxtick=0:((5-0)/nx):5;pytick=0:((15-0)/ny):15;						%<7>
set(h_ap,'Xtick',pxtick,'Ytick',pytick,'Xgrid','on','Ygrid','on')
h_linet=line(tp,yp,'Color','b');										%<9>
set(get(h_ap,'Xlabel'),'String','时间 \rightarrow  （分）')
set(get(h_ap,'Ylabel'),'String','压力 \rightarrow(\times10 ^{5} Pa )')
h_at=axes('Position',get(h_ap,'Position'));							%<12>
set(h_at,'Color','none','Xcolor','r','Ycolor','r');					%<13>
set(h_at,'Xaxislocation','top')										%<14>
set(h_at,'Yaxislocation','right','Ydir','rev')						%<15>
set(get(h_at,'Xlabel'),'String','\fontsize{15}\fontname{隶书}时间 \rightarrow  （分）')
set(get(h_at,'Ylabel'),'String','  ( {\circ}C )\fontsize{15}  \leftarrow \fontname{隶书}零下温度')
set(h_at,'Ylim',[0,210])												%<18>
line(tt,yt,'Color','r','Parent',h_at)									%<19>
xpm=get(h_at,'Xlim');													%<20>
txtick=xpm(1):((xpm(2)-xpm(1))/nx):xpm(2);							%<21>
tytick=0:((210-0)/ny):210;												%<22>
set(h_at,'Xtick',txtick,'Ytick',tytick)								%<23>