Air standard cycle

Objective: clear allclose allclc % Inputsp1 = 101325;t1 = 500;t3 = 2300;gamma = 1.4; % engine geometry bore = 0.1;stroke = 0.1;conrod = 0.15;cr = 12; V_swept = (pi/4)*bore^2*stroke;V_clearance = V_swept/(cr-1); v1 = V_swept + V_clearance;v2 = V_clearance; %Point 2 p2 = p1*cr^gamma;t2 = p2*v2*t1/(p1*v1); constant_c = p1*v1^gamma;…