summaryrefslogtreecommitdiff
path: root/32/CH11/EX11.07/11_07.sce
diff options
context:
space:
mode:
Diffstat (limited to '32/CH11/EX11.07/11_07.sce')
-rwxr-xr-x32/CH11/EX11.07/11_07.sce28
1 files changed, 28 insertions, 0 deletions
diff --git a/32/CH11/EX11.07/11_07.sce b/32/CH11/EX11.07/11_07.sce
new file mode 100755
index 000000000..573549324
--- /dev/null
+++ b/32/CH11/EX11.07/11_07.sce
@@ -0,0 +1,28 @@
+//pathname=get_absolute_file_path('11.07.sce')
+//filename=pathname+filesep()+'11.07-data.sci'
+//exec(filename)
+//Draught in water column(in mm):
+hw=50
+//Temperature of burnt gases(in K):
+T=300+273
+//Rate at which coal is burnt(in kg/s):
+M=2000/3600
+//Mass per kg of fuel required for complete combustion(in kg):
+m=19
+//Ambient air temperature(in K):
+T1=27+273
+//Zero temperature(in K):
+T0=273
+//Mechanical efficiency:
+n=0.90
+//Pressure applied by the draught water(in N/m^2):
+P=hw*9.81
+//Density of hot gases(in kg/m^3):
+d=1.293
+//Power required in FD fan(kW):
+PFD=P*m*M*T1/(d*T0*n*1000)
+//Power required in 1D fan(kW):
+P1D=P*m*M*T/(d*T0*n*1000)
+printf("\n RESULT \n")
+printf("\nPower for FD fan = %f kW",PFD)
+printf("\nPower for 1D fan = %f kW",P1D) \ No newline at end of file