% MATLAB program for calculation of Inertia force %
% and inertia toque in reciprocating engine %
% Inputs
r = 3.13;
l = 12.5;
n = l/r;
m = 0.09;
omega = (2*pi*1500/60);
%thetad = 0:1:360;
%theta = thetad*pi/180;
F = zeros(361,1);
T = zeros(361,1);
theta = zeros(361,1);
angle = zeros(361,1);
for i = 0:1:360
angle(i+1) = i;
theta(i+1) = i*pi/180;
% Calculation of inertia force
F(i+1) =
m*(omega^2)*r*(cos(theta(i+1))+((cos(2*theta(i+1)))/n));
% Calculation of inertia force
T(i+1) =
F(i+1)*r*(sin(theta(i+1))+((sin(2*theta(i+1)))/(2*sqrt(n^2-(sin(theta(i+1)))^2))));
end
figure
plot(angle,F);
title('Inertia Force')
xlabel('Crank angle')
ylabel('Inertia Force')
figure
plot(angle,T);
title('Inertia Torque')
xlabel('Crank angle')
ylabel('Inertia Torque')
Problem 2 The data of a slider-crank mechanism are given below. Crank: r 3.13 in rz (ra) = 0.38r, (02-1500 rpm 1 = 12.5 in. To3 (la)-0.4I m2-0.060 blob Crank pin wrist pin Connecting rod Gas pres...