O Cálculo de Correia MatLab

%%% Motor e polias

 

omega = 865;     %Rotação do motor

D = 380/1000;    %Polia maior

i = 4.5;         %redução

d= D/i;          %Polia menor

C= 269.4/1000;   %Distância entre centros

 

%% Informações da correia

 

t = 8/1000;  %espessura

b = 10/1000;  %largura

gama = 11000;  %Weight Density

f = 0.8;       %coeficiente de fricção

w = b*t*gama;

 

Fa= 18000 ;    %(N/m) %Manufacturer allowed tension

Cp= 0.7;       %Pulley correction factor

Cv= 1;         %velocity correction factor

 

Ks=1.3;       %fator de serviço

Hn=5.2e3;     %Potência nominal

nd=1.3;        %design factor

 

%%

%%% Características da transmissão e montagem

T = Ks*Hn*nd/(2*pi*omega/60);

a = asin((D-d)/(2*C));

 

teta_D= pi+2*(a);

teta_d = pi-2*a;

L=sqrt(4*C^2-(D-d).^2)+1/2*(D*teta_D+d.*teta_d);

 

%Lp= 2*C+pi*(D+d)/2+(D-d)^2/(4*C);

 

V=omega*pi.*d./60;

 

 

%%

%Forças aplicadas na correia

 

DeltaF= 2*T/d;

 

Fc=w/9.81*V^2; %Força centrífuga

 

%Fi= T/d * ((exp(f*teta_d)+1)/(exp(f*teta_d)-1));

 

%F1= Fc+Fi*((2*exp(f*teta_d)-1)/(exp(f*teta_d)-1));

 

%F2= Fc+Fi*(2/(exp(f*teta_d)-1));

 

F1a= b*Fa*Cp*Cv ;  %Largest allowable tension

 

F2= F1a-2*T/d;

 

Fi= (F1a+F2)/2-Fc; %Tensão incial

 

F1= Fc+Fi*((2*exp(f*teta_d)-1)/(exp(f*teta_d)-1));

 

H=(F1-F2)*V/3300;  %Horsepower transmitido

 

f_linha= 1/teta_d*log((F1a-Fc)/(F2-Fc));

 

 

%%Cálculo de corrente

 

p  = 25.4; %passo (mm)

 

N  = 17;   %número de dentes

 

n  = 182;  %rotação (rev/min)

 

Kr = 17;   %Constante para correntes ANSI 20-240    

 

K1 = 1;    %Fator de correção do dente

 

K2 = 1;    %Fator de strand múltiplas

 

C  = 2701; %Distância entre centros (mm)

 

N1 = N;    %Dentes na roda 1

 

N2 = N;    %Dentes na roda 2