%exm09732_0.m		例 9.7.3.2_2 的主運行程序

clear all
tic;[t1,x1,y1]=sim('exm09731_1',5);T1=toc;
tic;[t2,x2,y2]=sim('exm09732_1',5);T2=toc;
tic;[t3,x3,y3]=sim('exm09732_2',5);T3=toc;
disp([blanks(3),'有代數環',blanks(3),'無代數環',blanks(3),'帶記憶塊'])
disp([T1,T2,T3])
clf,shg
plot(t1,y1,'g','LineWidth',6),hold on
plot(t2,y2,'r','LineWidth',2)
plot(t3,y3,'b'),hold off
legend('with loop','without loop','memory',4)