Piston Kinematics

Objective: %Otto Cycle clear all close all clc %input bore=0.1;stroke=.15;cr=8;p1=1;t1=200;t3=2000; %calc swept_vol=(pi/4)*bore^2*stroke;cl_vol=swept_vol/(cr-1);v1=swept_vol+cl_vol; %Point 2 v2=cl_vol;gamma=1.4;p2=p1*cr^gamma;t2=p2*v2*t1/(p1*v1);const1=p1*v1^gamma;V_comp=Piston_Kinematics(.1,.15,.15,8,180,360);P_comp=const1./V_comp.^gamma;…