exm0852_1.m

来自「这是本人收集的一些程序源代码」· M 代码 · 共 26 行

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