%fort=0:0.2:30%holdon%plot(t,1,'^g')%endfort=0.8:0.1:12.2holdonplot(t,0.5,'^g')ift==1plot(1,2:0.1:4,'g*')endift1&&t2plot(t,3,'g*')endpause(.1)axis([t-18t+505])ift==2plot(2,2:0.1:4,'g*')endift2.95&&t4.1plot(t,2*t-4,'g*')endift4&&t5.1plot(t,-2*t+12,'g*')endift3.5&&t4.5plot(t,3,'g*')endift==6plot(6,2:0.1:4,'g*')endift6&&t7||t==7plot(t,cos(pi/2*(t-6))/2+3.5,'g*')plot(t,-cos(pi/2*(t-6))/2+3.5,'g*')endift==8plot(8,2:0.1:4,'g*')endift8&&t9.1plot(t,cos(pi/2*(t-8))/2+3.5,'g*')plot(t,-cos(pi/2*(t-8))/2+3.5,'g*')endift10&&t11plot(t,-t+14,'g*')end%ift==11%plot(11,2:0.1:4,'g*')%endift11&&t12.1plot(t,t-8,'g*')plot(11,2:0.1:3,'g*')endend%HAPPY%NEWfort=13:0.1:17.2holdonpause(.1)plot(t,0.5,'^g')axis([t-18t+505])ift==14plot(14,2:0.1:4,'g*')endift14&&t15plot(t,-2*t+32,'g*')endift==15plot(15,2:0.1:4,'g*')endift==16plot(16,2:0.1:4,'g*')endift16&&t17.1plot(t,2,'g*')plot(t,3,'g*')plot(t,4,'g*')endendfort=17.8:0.05:20.2holdonpause(.1)plot(t,0.5,'^g')axis([t-18t+505])ift17.95&&t18.5plot(t,-4*t+76,'g*')endift18.45&&t19.05plot(t,4*t-72,'g*')endift19&&t19.5plot(t,-4*t+80,'g*')endift19.45&&t20.05plot(t,4*t-76,'g*')endend%YEARfort=21:0.1:28holdonpause(.1)plot(t,0.5,'^g')axis([t-12t+505])ift20.9&&t22plot(t,-t+25,'g*')endift22&&t23.1plot(t,t-19,'g*')endift==22plot(t,2:0.1:3,'g*')endift==24plot(t,2:0.1:4,'g*')endift24&&t25.1plot(t,2,'g*')plot(t,3,'g*')plot(t,4,'g*')endift25.9&&t27plot(t,2*t-50,'g*')endift26.9&&t28.1plot(t,-2*t+58,'g*')endift26.5&&t27.5plot(t,3,'g*')endendfort=29:0.1:30.1plot(t,0.5,'^g')ift==29plot(t,2:0.1:4,'g*')endift29&&t30.1plot(t,-t+32,'g*')endift29&&t30.1plot(t,1/2*cos(pi/2*(t-29))+3.5,'g*')plot(t,-1/2*cos(pi/2*(t-29))+3.5,'g*')endend