clc;
clear all;
close all;
%CREAMOS LA FLECHA
vx=[0 5 3 5 3];
vy=[0 0 1 0 -1];
% vx=[5 3 5 3];
% vy=[0 1 0 -1];
%CREAMOS UN CIRCULO
s=[0:1:40]*2*pi/40;
x1=5*cos(s);
y1=5*sin(s);
plot(vx,vy,x1,y1,'K',);
axis ([-10 10 -10 10]);
vec=[vx;vy];
pause(2);
% LA HACEMOS ROTAR
s=[0:1:12]*2*pi/12;
x=5*cos(s);
y=5*sin(s);
axis square
% CONTRARIO A LAS MANECILLAS DEL RELOG
for teta=90:1:450
B=[cosd(teta) -sind(teta);sind(teta) cosd(teta)];
vecR=B*vec;
xVec=vecR(1,:);
yVec=vecR(2,:);
plot(xVec,yVec,x,y,'.k',x1,y1,'k');
title('MOV. CONTRARIO A LAS MANECILLAS DEL RELOG')
axis ([-10 10 -10 10]);
pause(eps)
end
% EN SENTIDO DE LAS MANECILLAS DEL RELOG
for teta=-90:1:270
B=[cosd(teta) sind(teta);-sind(teta) cosd(teta)];
vecR=B*vec;
xVec=vecR(1,:);
yVec=vecR(2,:);
plot(xVec,yVec,x,y,'.k');
title('MOV. EN SENTIDO DE LAS MANECILLAS DEL RELOG');
axis ([-10+teta/90 10+teta/90 -10+teta/90 10+teta/90]);
pause(eps)
end
Espero les sea de ayuda. Aclaro no soy tan bueno escribiendo, creo ustedes lo pueden ver jaja :D. Una disculpa por eso
No hay comentarios:
Publicar un comentario