efficiency of otto cycle

Objective: function [efficiency] = ottocycle(gamma,t3,bore,stroke,con_rod,cr,p1,t1)% otto cycle %swept volume and clearance volume sweptvol=(pi*bore^2)/4; clearencevol=sweptvol/(cr-1); %values at point 1 v1= sweptvol + clearencevol; constant=p1*v1^gamma; vcompression= enginekinematics(bore,stroke,con_rod,cr,180,0); pcompression=constant…