air standard cycle

Objective: close allclear allclc %inputsgamma=1.4;p1=101325;t1=500;bore=0.1;stroke=0.1;con_rod=0.2;cr=12;p3=400000 %state variable1v_s=pi/4*bore^2*stroke;v_c=v_s/(cr-1);v1=v_s+v_c; %state variable2v2=v_c;p2=p1*(v1/v2)^gamma;t2=(p2/p1)*(v2/v1)*t1; v_compression=engine(bore,stroke,con_rod,180,360,180)constant1=p1*v1^gamma;p_compression=constant1./(v_compression.^gamma);…