Air Standard Cycle - Otto Cycle

Objective: %Octave code for Engine Kinematics function [V] = engine_kinematics(bore,stroke,con_rod,cr,Start_crank,End_crank) a=stroke/2; R=con_rod/a; V_swept= pi/4*bore^2*stroke; V_clearance= V_swept/(cr-1); theta= linspace(Start_crank,End_crank,180); term1 = 0.5*(cr-1); term2 = R+1-cosd(theta); term3 = (R^2 - sind(theta).^2).^0.5;…