ayuda matlab robotica
Publicado por felipe largacha (2 intervenciones) el 28/05/2004 00:33:00
alguien me podria ayudar es que tengo un codigo de matlab en *.m y quiero convertilo en GUIDE el codigo es el siguiente
close all;
clc
A= [1;1;0;1]
B= [1;-1;0;1]
C= [-1;1;0;1]
E= [1;1;2;1]
plot3([A(1) B(1)],[A(2) B(2)], [A(3) B(3)],'b')
hold on
plot3([A(1) C(1)],[A(2) C(2)], [A(3) C(3)],'b')
plot3([A(1) E(1)],[A(2) E(2)], [A(3) E(3)],'b')
grid
mx=input('Punto en X:');
my=input('Punto en Y:');
mz=input('Punto en Z:');
angulo=input(' Digite Angulo de Giro:');
beta = (angulo*3.1416)/180;
mrz=[cos(beta) -sin(beta) 0 0 ; sin(beta) cos(beta) 0 0 ; 0 0 1 0; 0 0 0 1]
mry=[cos(beta) 0 sin(beta) 0 ; 0 1 0 0; -sin(beta) 0 cos(beta) 0 ; 0 0 0 1]
mrx=[1 0 0 0; 0 cos(beta) -sin(beta) 0; 0 sin(beta) cos(beta) 0 ; 0 0 0 1]
mtr=[1 0 0 mx; 0 1 0 my; 0 0 1 mz ; 0 0 0 1]
A= mtr*A
B= mtr*B
C= mtr*C
E= mtr*E
n=0
clc
disp(' 1. GIRAR RESPECTO A X ')
disp(' 2. GIRAR RESPECTO A Y ')
disp(' 3. GIRAR RESPECTO A Z ')
disp(' 0. SALIR ')
n=input(' OPCION:');
if n==1
A= mrx*A
B= mrx*B
C= mrx*C
E= mrx*E
end
if n==2
A= mry*A
B= mry*B
C= mry*C
E= mry*E
end
if n==3
A= mrz*A
B= mrz*B
C= mrz*C
E= mrz*E
end
plot3([A(1) B(1)],[A(2) B(2)], [A(3) B(3)],'k')
plot3([A(1) C(1)],[A(2) C(2)], [A(3) C(3)],'k')
plot3([A(1) E(1)],[A(2) E(2)], [A(3) E(3)],'k')
close all;
clc
A= [1;1;0;1]
B= [1;-1;0;1]
C= [-1;1;0;1]
E= [1;1;2;1]
plot3([A(1) B(1)],[A(2) B(2)], [A(3) B(3)],'b')
hold on
plot3([A(1) C(1)],[A(2) C(2)], [A(3) C(3)],'b')
plot3([A(1) E(1)],[A(2) E(2)], [A(3) E(3)],'b')
grid
mx=input('Punto en X:');
my=input('Punto en Y:');
mz=input('Punto en Z:');
angulo=input(' Digite Angulo de Giro:');
beta = (angulo*3.1416)/180;
mrz=[cos(beta) -sin(beta) 0 0 ; sin(beta) cos(beta) 0 0 ; 0 0 1 0; 0 0 0 1]
mry=[cos(beta) 0 sin(beta) 0 ; 0 1 0 0; -sin(beta) 0 cos(beta) 0 ; 0 0 0 1]
mrx=[1 0 0 0; 0 cos(beta) -sin(beta) 0; 0 sin(beta) cos(beta) 0 ; 0 0 0 1]
mtr=[1 0 0 mx; 0 1 0 my; 0 0 1 mz ; 0 0 0 1]
A= mtr*A
B= mtr*B
C= mtr*C
E= mtr*E
n=0
clc
disp(' 1. GIRAR RESPECTO A X ')
disp(' 2. GIRAR RESPECTO A Y ')
disp(' 3. GIRAR RESPECTO A Z ')
disp(' 0. SALIR ')
n=input(' OPCION:');
if n==1
A= mrx*A
B= mrx*B
C= mrx*C
E= mrx*E
end
if n==2
A= mry*A
B= mry*B
C= mry*C
E= mry*E
end
if n==3
A= mrz*A
B= mrz*B
C= mrz*C
E= mrz*E
end
plot3([A(1) B(1)],[A(2) B(2)], [A(3) B(3)],'k')
plot3([A(1) C(1)],[A(2) C(2)], [A(3) C(3)],'k')
plot3([A(1) E(1)],[A(2) E(2)], [A(3) E(3)],'k')
Valora esta pregunta


0