PV DIAGRAM VISUALIZER

Objective: function [v]= engine_kinematics(bore,stroke,conrod,cr,startcrank,endcrank) a=stroke/2;R=conrod/a; vs=(pi/4)*bore^2*stroke;vc=vs/(cr-1); theta=linspace(startcrank,endcrank,100)term1= 0.5*(cr-1);term2=R+1-cosd(theta);term3=(R^2-(sind(theta).^2)).^0.5; v=(1+term1*(term2-term3)).*vcend clear allclose allclc % calculation…