Otto_Cycle

Objective: FUNCTION function [v]=engine_kinematics(bore,stroke,con_rod,Cr,start_angle,end_angle) a= stroke/2; R=con_rod/a; V_s=(pi/4)*bore^2*stroke; V_c= V_s/(Cr-1); theta = linspace(start_angle,end_angle,180) term1=0.5*(Cr-1); term2 = R+1-cosd(theta); term3 = (R^2-sind(theta).^2).^0.5; v= (1+term1*(term2-term3))*V_c; end PROGRAMM…