Mecanismos (Matlab)

%analisis de un sistema de tres lazos
%Datos:
a2=5.08;ac=10.2;ab=4.45;bc=6.35;bd=11.06;od=10.2;oe=15.2;ef=10.2;oo=17.3;ang3=20;ex=2.54;

%analisis de un sistema de tres lazos
%Datos:
a2=5.08;ac=10.2;ab=4.45;bc=6.35;bd=11.06;od=10.2;oe=15.2;ef=10.2;oo=17.3;ang3=20;ex=2.54;
%se crean dos cuadros de valores: C en radianes y D en grados
%se construye el primer renglón de los cuadros

%Faseinicial a 0°,contador: i=1
i=1;
%valor en grados, R valor en radianes
r=180/pi;
G=0; R=G/r;
C(i,1)=G;
D(i,1)=G;
%Se calcula el desplazamiento del primer lazo
L1=mandesex(R,0,0,a2,ac,0,0,12,6,1);
L1=mandesex(R,0,0,a2,ac,0,0,12,6,1);
%Análisis de un sistema de tres lazos
%Datos:
a2=5.08;ac=10.2;ab=4.45;bc=6.35;bd=11.06;od=10.2;oe=15.2;ef=10.2;oo=17.3;ang3=20;ex=2.54;
%se crean doscuadros de valores: C en radianes y D en grados
%se construye el primer renglón de los cuadros
%Fase inicial a 0°, contador: i=1
i=1;
%valor en grados, R valor en radianes
r=180/pi;
G=0; R=G/r;
C(i,1)=G;
D(i,1)=G;
%Se calcula el desplazamiento del primer lazo
L1=mandesex(R,0,0,a2,ac,0,0,12,6,1);
Coord del deslizador ‡ngulo del acoplador
X Y rad grados
15.28000 6.2831 359.9961

%La coordenada Y es constante para todo el ciclo: Y=0
C(i,2)=L1(1);
C(i,3)=L1(3);
D(i,2)=L1(1);
D(i,3)=L1(4);
%calculo para el lazo 2
%Ángulo del eslabón 3 en el punto A:
ag=ang3/r;
L2=lazo5r(R,L1(3)+ag,oo,a2,ab,bd,od,120/r);
L2

L2 =

1.6795 96.2268

C(i,4)=L2(1);
D(i,4)=L2(2);
%Cálculo del lazo 3L3=mandesex(L2(1),oo,0,oe,ef,ex,90/r,23,100/r,1);
Coord del deslizador ‡ngulo del acoplador
X Y rad grados
14.7600 25.2713 1.6583 95.0133

%La coordenada X es constante: X=14.76
C(i,5)=L3(2);
C(i,6)=L3(3);
D(i,5)=L3(2);
D(i,6)=L3(4);
disp(C)
0 15.2800 6.2831 1.6795 25.2713 1.6583

%Los datos anteriores muetran los ángulos en radianes
%Los datos siguientes tienen losángulos en grados:
disp(D)
0 15.2800 359.9961 96.2268 25.2713 95.0133

%Ahora se hace el cálculo para el ciclo completo
for i=2:25,
G=(i-1)*15;
R=(i-1)*15/r;
D(i,1)=G;
C(i,1)=R;

L1=mandesex(R,0,0,a2,ac,0,0,C(i-1,2),C(i-1,3),0);

C(i,2)=L1(1);
C(i,3)=L1(3);
D(i,2)=L1(1);
D(i,3)=L1(4);
L2=lazo5r(R,L1(3)+ag,oo,a2,ab,bd,od,C(i-1,4));
C(i,4)=L2(1);
D(i,4)=L2(2);L3=mandesex(L2(1),oo,0,oe,ef,ex,90/r,C(i-1,5),C(i-1,6),0);

C(i,5)=L3(2);
C(i,6)=L3(3);
D(i,5)=L3(2);
D(i,6)=L3(4);
end
disp(C) (radianes)
0 15.2800 6.2831 1.6795 25.2713 1.6583
0.2618 15.0218 6.1539 1.6022 25.1817 1.7745
0.5236 14.2781 6.0315 1.5805 25.1148 1.8075
0.7854 13.1387 5.9233 1.6119 25.2056 1.75981.0472 11.7425 5.8372 1.6837 25.2696 1.6520
1.3090 10.2570 5.7813 1.7817 25.0428 1.7203
1.5708 8.8450 5.7618 1.8939 24.3539 1.3447
1.8326 7.6274 5.7813 2.0113 23.1562 1.1740
2.0944 6.6625 5.8372 2.1280 21.4926 1.0016
2.3562 5.9545 5.9233 2.2393 19.4582 0.8304
2.6180 5.4793 6.03152.3409 17.1844 0.6624
2.8798 5.2080 6.1539 2.4282 14.8339 0.4996
3.1416 5.1200 6.2831 2.4960 12.5893 0.3444
3.4034 5.2080 0.1293 2.5402 10.6449 0.2018
3.6652 5.4793 0.2517 2.5586 9.3890 0.1002
3.9270 5.9545 0.3599 2.5514 9.9649 0.1481
4.1888 6.6625 0.4459 2.5203 11.6067 0.27394.4506 7.6274 0.5019 2.4675 13.5976 0.4147
4.7124 8.8450 0.5213 2.3948 15.7866 0.5650
4.9742 10.2570 0.5019 2.3038 18.0641 0.7256
5.2360 11.7425 0.4459 2.1960 20.3029 0.8981
5.4978 13.1387 0.3599 2.0725 22.3431 1.0842
5.7596 14.2781 0.2517 1.9367 23.9729 1.2826
6.0214 15.0218...