Otto Cycle

Objective: clear all close allclc p1=101325gamma=1.4t1=500t3=2300 bore=0.1stroke=0.1con_rod=0.15cr=12 v_swept=(pi/4)*(bore^2)*strokev_clearance=v_swept/(cr-1)v1=v_swept+v_clearancev2=v_clearance p2=p1*cr^gammat2=p2*v2*t1/(p1*v1) constant=p1*v1^gammar=stroke/2R=con_rod/r theta=linspace(180,0,100); term1=0.5*(cr-1);term2=R+1-cosd(theta);term3=(R^2-sind(theta).^2).^0.5;…