Otto cycle

Objective: clc clear all close all gamma=1.4; t3=2300; t1=500; p1=101325; bore=0.1; stroke=0.1; cr=12; con_rod=0.15; v_swept=(pi/4)*bore^2*stroke; v_clearance=v_swept/(cr-1); v1=v_swept+v_clearance; v2=v_clearance; p2=p1*cr^gamma; t2=p2*v2*t1/(p1*v1); constant=p1*v1^gamma; V_12=engine_kinematics(bore,stroke,con_rod,cr,0,180); P_12=constant./V_12.^gamma;…