exm0852_1.m

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

function exm0852_1()
echo on
%以下是函数文件 ringzy.m 无输出时的几种情况。
clf,shg
r1=1;r2=0.6;
subplot(1,3,1),ringzy(r1,r2),
subplot(1,3,2),ringzy(r1,r2,'Marker','o')   
subplot(1,3,3),ringzy(r1,r2,'LineWidth',5,'Color',[1 0.4 0])  

disp('按任意键，继续！')
pause
%以下是函数文件 ringzy.m 有输出时的一种情况。
r1=1;r2=3;
[x1,y1,x2,y2,s1,s2]=ringzy(r1,r2);
clf;shg
fill([x1,x2],[y1,y2],[x1,x2])
axis square off
hold on
plot(x1,y1,'y','LineWidth',1.5)
text(0.6*r1,r1,'\leftarrow\fontname{隶书}\fontsize{18}基园')
plot(x2,y2,'r','LineWidth',1.5)
title('利用函数文件ringzy.m 输出所画的图形')
colormap(hot)
hold off
echo off