Mecanismos

ANÁLISIS DE UN SISTEMA CUATRO BARRAS USANDO MATLAB

>> %Aplicación de la ley de grashof
>> %dimenciones de los eslabones
>> a1=50; a2=20; a3=35; a4=40;
>> help grashofd
GRASHOF_D: Partiendo de las dimensiones de la cadena cinemática 4R,
se determina si el mecanismo resultante es manivela balancín.
GRASHOFD(BASTIDOR,ENTRADA,ACOPLADOR,SALIDA)
>> %seopera la función para el análisis del sistema
>> grashofd(a1,a2,a3,a4);
El mecanismo es del tipo GRASHOF
La barra de entrada es una MANIVELA
>> %comom el sistema es del tipo grashof, se opera con el mediante las funciones siguientes
>> help angbal
ANG_BAL: A partir de las dimensiones de un sistema 4R, se proporcionan
los ángulos de la barra de salida para lasposiciones de pun-
to muerto, así como el intervalo cubierto por el balancín. También
se establece la relación de tiempo.
El resultado se proporciona en forma de cuadro.
C = ANGBAL(bastidor,entrada,acoplador,salida)
>>CB=angbal(a1,a2,a3,a4);
PRIMER PUNTO MUERTO (grados):
manivela:
44.4684

balancín:
105.5899

SEGUNDO PUNTO MUERTO (grados):
manivela:221.4096

balancín:
165.6385

Ángulo de oscilación del balancín:
60.0486

Relación de tiempo:
1.0346
>> %Los datos estan en la variable CB
>> disp(CB)
0.7761 1.8429 0
3.8643 2.8909 1.0480
>> %Que corresponden a los valores en radianes
>> CB2=CB*180/pi;
>> disp(CB2)
44.4684 105.5899 0
221.4096165.6385 60.0486
>> %Analisis de posición del sistema 4R
>> %Como primer paso se establecen los parametros K de las ecuaciones de Freudenstein
>> help coefk
COEF_K: Conocidas las dimensiones de los eslabones de un sistema 4R,
se determinan los coeficientes de la ecuación de Freudenstein,
tanto para la ecuación de la barra de salida, como de la ba-rra acopladora.
Se da como resultado un vector de coeficientes en el orden:
K=[k1,k2,k3,k4,k5]

La función se solicita de la siguiente forma:
K=COEFK(bastidor,entrada,acoplador,salida)
>> %Se calculan los parametros
>> k=coefk(a1,a2,a3,a4);
>> disp(k)
2.5000 1.2500 2.0469 1.4286 1.8036
>> % se calculan los valoresiniciales de los ángulos del acoplador y del balancín
>> help teta3ini
TETA_3_INICIAL: Se calcula el valor inicial del ‡ngulo de la
barra acopladora para comenzar el c‡lculo de
la funci—n del eslab—n acoplador.

RESP=TETA3INI(BASTIDOR,MANIVELA,ACOPLADOR,BALANCIN)
>> help teta4ini
TETA_4_INICIAL: Se calcula el valor inicial del balanc’n parainiciar
el c‡lculo de la funci—n de salida.
RESP=TETA4INI(BASTIDOR,MANIVELA,ACOPLADOR,BALANCIN)
>> Te3=teta3ini(a1,a2,a3,a4);
>> Te4=teta4ini(a1,a2,a3,a4);
>> %se realiza el analisis del balancín
>> help balancin
BALANCIN: A partir de los parámetros de la ecuación de Freudenstein,
se determinan los valores de la función entregada por elmecanismo en su barra de salida.
Se considera que el mecanismo es manivela-balancín, y por
ello se analiza el ciclo de trabajo en una rotación com-
pleta de la manivela. Se requiere indicar el número de
puntos a calcular.
RESP=BALANCIN(K,T4,N)
Donde: K = Vector de parámetros de la ecuación de Freudenstein
T4 = Valor inicial delbalancín
N = Número de fases para el análisis
>> %se eligen 16 fases para el analisis
>> N=16


>> Sal=balancin(k,Te4,N);
>> disp(Sal)
0 122.0900
22.5000 108.4493
45.0000 105.5336
67.5000 109.1904
90.0000 117.6796
112.5000 128.7627
135.0000 140.7426
157.5000 151.9531
180.0000 160.3841
202.5000 164.7079...