informa

clear all clc close(gcf) aviobj=avifile('obrprost.avi','fps',10); a=[-10 -9 -9 -10; ;-10 -10 -9.5 -9.5]; axis([-10 10 -11 10]); axis square hold on bpo=a; fi=0; grid; lp=23; fi=pi/16; xpp=bpo(1,; ypp=bpo(2,; for i=1:lp xp=bpo(1,; yp=bpo(2,; h=line([xpp xpp(1)],[ypp ypp(1)]); h=line([xp xp(1)],[yp yp(1)]); xpp=xp; ypp=yp; frame=getframe(gca); aviobj=addframe(aviobj,frame); set(h,'EraseMode','xor'); srx=mean(xp); sry=mean(yp); xpo=xp-srx; ypo=yp-sry; bpo=[xpo; ypo]; mobr=[cos(fi) sin(fi); -sin(fi) cos(fi)]; bpo=mobr*bpo; srx=srx+20/lp; sry=sry-0.4*srx; bpo(1,=bpo(1,+srx; bpo(2,=bpo(2,+sry; end aviobj=close(aviobj);

  PRZEJDŹ NA FORUM