summaryrefslogtreecommitdiff
path: root/3751/CH4/EX4.18/Ex4_18.sce
blob: 420110ebd084d2b2cc9b10203bee1a78d155e3fd (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
//Fluid Systems - By - Shiv Kumar
//Chapter 4 - Pelton Turbine (Impulse Turbine)
//Example 4.18
  
      clc
       clear

//Given Data:-
       Ns=15;         //Specific Speed
      P=1200;        //Shaft Power, kW
      Ht=500;     //Total Head at reservoir, m
      Loss_per=5;       //Percentage of Head loss in Pipe friction
      Cv=0.98;        //Co-efficient of Velocity
      Ku=0.45;        //Speed Ratio
     eta_o=85/100;       //Overall Efficiency
      n=2;       //Number of Jets

//Data Used:-
        rho=1000;          //Density of water, kg/m^3
         g=9.81;            //Acceleration due to gravity, m/s^2

//Computations:-
          H=Ht-Loss_per/100*Ht;          //Effective Head, m
         
      //(a)Speed of Runner, N
              N=Ns*H^(5/4)/sqrt(P/n);        //rpm

     //(b)Diameter od each Jet, d
           Q=P*1000/(rho*g*H*eta_o);          //Net Discharge, m^3/s
            q=Q/n;             //Net Discharge per Jet, m^3/s
            Vi=Cv*sqrt(2*g*H);        //m/s
           d=sqrt(q/((%pi/4)*Vi));         //m
    
      //(c)Mean Diameter of Bucket Circle, D
          D=Ku*60*sqrt(2*g*H)/(%pi*N);         //m

     //(d)Number of Buckets in the Runner, Z
            Z=round(0.5*D/d+15);         

//Results:-
         printf(" (a)Speed of the Runner, N=%.f rpm\n",N)
         printf(" (b)Diameter od each Jet, d =%.3f m\n",d)
         printf(" (c)Mean Diameter of Bucket Circle, D =%.3f m\n",D)
         printf(" (d)Number of Buckets on the Runner, Z =%.f \n",Z)