Lista 1

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

ex5.m
% Exercício 5
clc
clear all
P=[1750:50:3000];
Dab = input('Digite o valor da distancia de AB em mm: ');
Dbc = input('Digite o valor da distancia de BC em mm: ');
Fb = P*(Dab + Dbc)/Dab; %Somatório dos momentos em A
L = input('Digite o valor da largura da secção transversal em mm: ');
C = input('Digite o valor do comprimento da secção transversal em mm: ');
A = L*(C-6); %calculo da area da secçao transversal
Tmax = (Fb./2)/A; %calculo da Tensão máxima
plot(P, Tmax, 'g'); %grafico (P x Tmax)
xlabel ('Força P(N)');
ylabel ('Tensão BD(MPa)');
grid on;
ex1.m
% Exercicio 1
clc
clear all
D=[50:-1:30];
F=input('Digite o valor da força em N: '); % entrada da força 1000N
A= (pi*(D.^2))/4; % calculo da area
T= F./A; % calculo da Tensão (usa-se "." para dividir por vetor)
plot(D,T,'g'); %grafico(D x T)
title('Diametro X Tensao');
xlabel('Diametro(mm)');
ylabel('Tensao(MPa)');
grid on;
ex2.m
% Exercicio 2
clc
clear all
T=[50:0.5:60];
Fa = input('Digite o valor da força A (em N): ');
Fs = input('Digite Fs: ');
Tadm= T./Fs; % calculo da tensão admissível 
Fc= (Fa*250)/400; % somatorio dos momentos em B
A=(Fc/2)./Tadm; % area da secçao transversal
 fprintf('A menor area é: %.2f mm²\n', min(A));
 fprintf('A maior area é: %.2f mm²\n', max(A));
ex3.m
% Exercicio 3
clc
clear all
deltaL = [0:0.001:0.014];
E = input('Digite o valor do modulo de elasticidade (em MPa) da haste AB: ');
C = input('Digite o valor do comprimento (em mm) da secção transversal: ');
L = input('Digite o valor da largura (em mm) da secção transversal: ')
A = C*L; % calculo da area da secção transversal
Fb = (E*A*deltaL)/200; %calculo da força em b
P = 250*Fb./380; %calculo do momento em c 
fprintf('deltaL = %.3f\n', deltaL);
fprintf('P = %.2f\n', P);
ex4.m
%Exercicio 4
clc
clear all
 
E=[200000:2000:250000];
Tab=input('Digite o valor da tensão média na haste AB (MPa): ');
Tbd=input('Digite o valor da tensão média na haste BD (MPa): ');
Dab=input('Digite a distancia vertical entre os eixos das hastes A e B (mm): ');
Dbd=input('Digite a distancia vertical entre os eixos das hastes B e D (mm): ');
Dh=input('Digite o valor da distancia horizontal entre os eixos (mm): ')
Epsilon1=(Tab./E) %Deformação da haste AB
Epsilon2=(Tbd./E) %Deformação da haste BD
Lab=sqrt((Dab^2)+(Dh^2)) %Calculo do comprimento da haste AB por Pitágoras
Lbd=sqrt((Dbd^2)+(Dh^2)) %Calculo do comprimento da haste BD por Pitágoras
deltaLab= Lab*Epsilon1
deltaLbd= Lbd*Epsilon2
plot(E, deltaLab, 'g', E, deltaLbd, 'r')
grid on
xlabel ('E (MPa)')
ylabel ('DeltaL (mm)')
legend ('Haste AB', 'Haste BD')
title ('Gráfico E(MPa) x deltaL(mm)')