1 files changed, 18 insertions, 0 deletions
diff --git a/443/CH17/EX17.13/17_13.sce b/443/CH17/EX17.13/17_13.sce
new file mode 100755
index 000000000..ab34733e7
--- /dev/null
+++ b/443/CH17/EX17.13/17_13.sce
@@ -0,0 +1,18 @@
+pathname=get_absolute_file_path('17_13.sce')
+filename=pathname+filesep()+'17_13_data.sci'
+exec(filename)
+//Brake power(in kW)
+bp=(W*g*N*C)/60000
+//Brake thermal efficiency
+nbth=(bp*60)/(mf*CV)
+//Indicated thermal effciency
+nith=(nbth/nm)*100
+//Indicated mean effective pressure(in bar)
+imep=(bp*60000)/(nm*L*0.25*%pi*D^2*0.5*N*K)*10^-5
+//Brake specific fuel consumption(in kg/kWh)
+bsfc=(mf*60)/bp
+printf("\n\nRESULTS\n\n")
+printf("\nBrake thermal effciency:%f\n",nbth*100)
+printf("\nIndicated thermal effciency:%f\n",nith)
+printf("\nIndicated mean effective pressure:%f\n",imep)
+printf("\nBrake specific fuel consumption:%f\n",bsfc)