Air standard cycle

Objective: clear all close all clc %inputs g=1.4; t3=2300; %state variables p1=101325; t1=500; %egnine geometry bore=0.1; strk=0.1; cnrod=0.15; cr=12; %swept volume and clearance volume vswept=(pi/4)*bore^2*strk; vclear=vswept/(cr-1); v1=vswept+vclear; v2=vclear; %state 2 p2=p1*cr^g; t2=p2*v2*t1/(p1*v1); cons=p1*v1^g; vcomp=engine_kin(bore,strk,cnrod,cr,180,0);…