Projeto

Geral

Perfil

Baixar (1,2 KB)

Atividade #969 » constantemola.m

Lucas Guimarães Corrêa, 09/05/2019 05:02 h

 
%disp ('Iremos calcular o k de uma mola c?nica')
clc
df= 0.7; %Di?metro do fio em mm
%input('Digite o di?metro do fio em mm:');
d1= 11; %Di?metro menor da mola em mm
%input('Digite o di?metro menor da mola em mm:');
d2= 24;%Di?metro maior da mola em mm
%input('Digite o di?metro maior da mola em mm:');
G= 80;%M?dulo de cisalhamento em GPa
%input('Digite o m?dulo de cisalhamento em GPa:');
E= 205; %M?dulo de Young em GPa
%input('Digite o m?dulo de Young em GPa:');
t= 580; %Tns?o de cisalhamento em MPa
%input('Digite o valor da tens?o de cisalhamento em GPa:');
nb= 5; %N?mero de voltas
%input('Digite o n?mero de voltas:');
x0= 50;%Comprimento inicial da mola em mm
%input('Digite o comprimento inicial da mola em mm:');
nbmax=(d2-d1)/(2*df)
k=((df^4)*G*1000)/(2*(nb+G/E)*(d2+d1)*((d2^2)+(d1^2)));
c=(d1+d2)/(2*df);
disp ('O k da mola ?:')
disp(k)
fmin=(x0-29.8)*k;
fmax=x0*k;
disp('A for?a m?nima ?:')
disp(fmin)
disp('A for?a m?xima ?:')
disp(fmax)
s=((1+1/(2*c))*4*fmax*(d1+d2))/(pi*df^3);
disp('A tens?o de cisalhamento ?:')
disp(s);
if t> s
disp('Essa mola n?o ir? escoar')
end
if t< s
disp('Essa mola ir? escoar')
end

if t==s
disp('Essa mola ir? escoar')
end

(2-2/4)