summaryrefslogtreecommitdiff
path: root/2063/CH7/EX7.24/7_24.sce
diff options
context:
space:
mode:
Diffstat (limited to '2063/CH7/EX7.24/7_24.sce')
-rwxr-xr-x2063/CH7/EX7.24/7_24.sce44
1 files changed, 44 insertions, 0 deletions
diff --git a/2063/CH7/EX7.24/7_24.sce b/2063/CH7/EX7.24/7_24.sce
new file mode 100755
index 000000000..1afb42c7c
--- /dev/null
+++ b/2063/CH7/EX7.24/7_24.sce
@@ -0,0 +1,44 @@
+clc
+clear
+//Input data
+d=0.3;//Diameter of the bore in m
+L=0.45;//Stroke length in m
+N=220;//Operating speed of the engine in rpm
+T=3600;//Duration of trial in sec
+F=7;//Fuel consumption in kg per minute
+CV=45000;//Calorific value of fuel in kJ/kg
+A=320;//Area of indicator diagram in mm^2
+l=60;//Length of indicator diagram in mm
+S=1.1;//Spring index in bar/mm
+W=130;//Net load on brakes in kg
+D=1.65;//Diameter of brake drum in m
+W1=500;//Total weight of jacket cooling water in kg
+t=40;//Temperature rise of jacket cooling water in degrees celsius
+t1=300;//Temperature of exhaust gases in degrees celsius
+ma=300;//Air consumption in kg
+sg=1.004;//Specific heat of exhaust gas in kJ/kgK
+sw=4.185;//Specific heat of water in kJ/kgK
+t2=25;//Room temperature in degrees celsius
+g=9.81;//gravity
+
+//Calculations
+P=(W*g*3.14*D*N)/(1000*60);//Power available at brakes in kW
+pm=(A*S)/l;//Mean effective pressure in bar
+I=(pm*10^5*L*((3.14*d^2)/4)*N)/(1000*2*60);//Indicated power developed in kW
+nm=(P/I)*100;//Mechanical efficiency in percent
+nt=(P/((F/T)*CV))*100;//Brake thermal efficiency in percent
+ni=(I/((F/T)*CV))*100;//Indicated thermal efficiency in percent
+Hs=F*CV;//Heat supplied on one hour basis
+Hp=P*T;//Heat equivalent of brake power in kJ
+Hf=I-P;//Heat lost in friction in kJ
+Hc=W1*t*sw;//Heat carried away by cooling water in kJ
+He=(ma+F)*(t1-t2)*sg;//Heat carried away by exhaust gas in kJ
+Hu=Hs-(He+Hf+Hc+He);//Heat unaccounted in kJ
+nb=(He/Hs)*100;//Heat equivalent of power at brakes in percent
+nf=(Hf/Hs)*100;//Heat lost in friction in percent
+nw=(Hc/Hs)*100;//Heat removed by jacket water in percent
+ne=(He/Hs)*100;//Heat carried away by exhaust gases in percent
+nu=(Hu/Hs)*100;//Heat unaccounted in percent
+
+//Output
+printf('(a)Power available at brakes is %3.2f kW\n (b)Indicated power developed is %3.2f kW\n (c)Mechanical efficiency is %3.2f percent\n (d)Brake Thermal efficiency is %3.2f percent\n (e)Indicated thermal efficiency is %3.2f percent',P,I,nm,nt,ni)