From 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Tue, 10 Oct 2017 12:27:19 +0530
Subject: initial commit / add all books

---
 3751/CH4/EX4.7/Ex4_7.sce | 39 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)
 create mode 100644 3751/CH4/EX4.7/Ex4_7.sce

(limited to '3751/CH4/EX4.7/Ex4_7.sce')

diff --git a/3751/CH4/EX4.7/Ex4_7.sce b/3751/CH4/EX4.7/Ex4_7.sce
new file mode 100644
index 000000000..e9d73eb21
--- /dev/null
+++ b/3751/CH4/EX4.7/Ex4_7.sce
@@ -0,0 +1,39 @@
+//Fluid system - By - Shiv Kumar
+//Chapter 4 - Pelton Turbine (Impulse Turbine)
+//Example 4.7
+      clc
+     clear
+     
+//Given Data:-
+        H_G=500;          //Gross Head, m
+        h_f=(1/3)*H_G;         //Head lost in friction in penstock, m
+        Q=2;          //Discharge, m^3/s
+        AoD=165;           //Angle of Deflection of Jet, degrees
+        Ku=0.45;          //Speed ratio
+        Cv=1;
+
+//Data Used:-
+     rho=1000;     //Density of water, kg/m^3
+     g=9.81;        //Acceleration due to gravity, m/s^2
+
+//Computations:-
+        H=H_G-h_f;         //Working Head, m
+        Vi=Cv*sqrt(2*g*H);       //m/s
+        Vwi=Vi;
+        u=Ku*sqrt(2*g*H);          //m/s
+        ui=u;
+        uo=u;
+        Vri=Vi-u;    //m/s
+        Vro=Vri;
+        beta_o=180-AoD;            //degrees
+        Vrwo=Vro*cosd(beta_o);      //m/s
+        Vwo=Vrwo-uo;            //m/s
+        P=rho*Q*(Vwi+Vwo)*u/1000;        //power given by water to runner, kW
+        eta_H=2*(Vwi+Vwo)*u/Vi^2*100;           //Hydraulic efficiency, In percentage
+
+//Results:-
+     printf("Power given by water to the runner=%.2f  kW  \n", P)        //The answer vary due to round off error
+     printf("Hydraulic efficiency, eta_H=%.2f percent", eta_H)     //The answer vary due to round off error
+
+
+
-- 
cgit