summaryrefslogtreecommitdiff
path: root/3751/CH4/EX4.15/Ex4_15.sce
diff options
context:
space:
mode:
Diffstat (limited to '3751/CH4/EX4.15/Ex4_15.sce')
-rw-r--r--3751/CH4/EX4.15/Ex4_15.sce35
1 files changed, 35 insertions, 0 deletions
diff --git a/3751/CH4/EX4.15/Ex4_15.sce b/3751/CH4/EX4.15/Ex4_15.sce
new file mode 100644
index 000000000..2ce45324a
--- /dev/null
+++ b/3751/CH4/EX4.15/Ex4_15.sce
@@ -0,0 +1,35 @@
+//Fluid Systems - By - Shiv Kumar
+//Chapter 4 - Pelton Turbine (Impulse Turbine)
+//Example 4.15
+
+ clc
+ clear
+
+//Given Data:-
+ H=120; //Head, m
+ d=74; //Diameter of Jet, mm
+ Q=200; //Discharge, litres/s
+ P=202.766; //Shaft Power, kW
+ P_mr=3.2; //Power lost in mechanical resistance, kW
+
+
+//Data Used:-
+ rho=1000; //Density of water, kg/m^3
+ g=9.81; //Acceleration due to gravity, m/s^2
+
+//Computations:-
+ Q=Q/1000; //m^3/s
+ d=d/1000; //m
+ P=P*1000; //W
+ P_mr=P_mr*1000; //W
+
+ Vi=Q/((%pi/4)*d^2); //m/s
+ P_n=(rho*Q*g*H-rho*Q*Vi^2/2)/1000; //Power lost in Nozzle, kW
+ P_hr=(rho*Q*g*H-(P+P_n*1000+P_mr))/1000; //Power lost due to hydraulic resistance in Runner, kW
+
+
+//Results:-
+ printf("(a) Power lost in Nozzle=%.3f kW\n",P_n) //The answer vary due to round off error
+ printf(" (b)Power lost due to Hydraulic Resistance in Runner =%.2f kW\n",P_hr) //The answer vary due to round off error
+
+