1 files changed, 30 insertions, 0 deletions
diff --git a/2090/CH16/EX16.5/Chapter16_example5.sce b/2090/CH16/EX16.5/Chapter16_example5.sce
new file mode 100755
index 000000000..c8cda2adb
--- /dev/null
+++ b/2090/CH16/EX16.5/Chapter16_example5.sce
@@ -0,0 +1,30 @@
+clc
+clear
+//Input data
+d=0.15;//The diameter of the bore in m
+L=0.16;//The length of the stroke in m
+N=500;//The speed of the engine in rpm
+mf=0.0475;//Fuel consumption in kg/min
+CV=42000;//The calorific value in kJ/kg
+w=400;//The tension on either side of the pulley in N
+c=2.2;//Brake circumference in m
+l=50;//Length of the indicator diagram in mm
+ap=475;//Area of the positive loop of indicator diagram in mm^2
+an=25;//Area of the negative loop of indicator diagram in mm^2
+s=0.8333;//Spring constant in bar/mm
+pi=3.141;//Mathematical constant of pi
+
+//Calculations
+r=c/(2*pi);//Arm length in m
+T=w*r;//Torque in Nm
+bp=(2*pi*N*T)/(60*1000);//Brake power in kW
+M=(ap-an)/l;//Mean height of indicator diagram in mm
+imep=M*s;//Indicated mean effective pressure in bar
+ip=(imep*10^5*L*(pi/4)*d^2*(N/(2*60))*(1/1000));//Indicated power in kW
+nm=(bp/ip)*100;//The mechanical efficiency in percent
+nb=[(bp*60)/(mf*CV)]*100;//The brake thermal efficiency in percent
+ni=[(nb/100)/(nm/100)]*100;//The indicated thermal efficiency in percent
+bsfc=(mf*60)/bp;//Brake specific fuel consumption in kg/kWh
+
+//Output
+printf('(a) The brake power = %3.2f kW \n (b) The indicated power = %3.3f kW \n (c) The mechanical efficiency = %3.0f percent \n (d) The brake thermal efficiency = %3.2f percent \n (e) The indicated thermal efficiency = %3.1f percent \n (f) The brake specific fuel consumption = %3.3f kg/kWh ',bp,ip,nm,nb,ni,bsfc)