diff options
| author | prashantsinalkar | 2017-10-10 12:27:19 +0530 |
|---|---|---|
| committer | prashantsinalkar | 2017-10-10 12:27:19 +0530 |
| commit | 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch) | |
| tree | dbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /3814/CH5/EX5.6/Ex5_6.sce | |
| parent | b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (diff) | |
| download | Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.gz Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.bz2 Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.zip | |
initial commit / add all books
Diffstat (limited to '3814/CH5/EX5.6/Ex5_6.sce')
| -rw-r--r-- | 3814/CH5/EX5.6/Ex5_6.sce | 39 |
1 files changed, 39 insertions, 0 deletions
diff --git a/3814/CH5/EX5.6/Ex5_6.sce b/3814/CH5/EX5.6/Ex5_6.sce new file mode 100644 index 000000000..c3d291b2f --- /dev/null +++ b/3814/CH5/EX5.6/Ex5_6.sce @@ -0,0 +1,39 @@ +// to find pelton turbine completely
+// ex 5.6 pgno.120
+clc
+P=100/4 //power each unit
+mprintf('\n power output of each unit P = %d MW',P)
+gammma=9800 //constant gammma
+Q=6.85 //flow rate
+H=580 //head
+g1=9.8
+N=428 // speed
+t1=60 // temperature
+n=2 // types of turbine
+k=0.95 //ratio of head
+Hp=(gammma*Q*H)/(1000*1000) // hydraulic efficiency
+mprintf('\n hydraclic power = %f MW',Hp)
+on=P/Hp // overall efficiency
+mprintf('\n Overall efficiency = %f',on)
+sp=0.46 // assuming speed ratio
+V1=sqrt(2*g1*H) // velocity of jet
+mprintf('\n velocity of the jet V1 =%f m/s',V1)
+u=V1*sp // peripherial velocity
+mprintf('\n u =%f m/s',u)
+D=(t1*u)/(%pi*N)// peripherial velocity
+mprintf('\n peripherial velocity %f m',D)
+d=sqrt(((Q)/((%pi/4)*V1*n)))
+mprintf('\n %f m',d)
+Z=((D)/(2*d))+15 //number of buckets
+mprintf('\n number of bukets Z =%f m',Z)
+m=D/d // jet ratio
+mprintf('\n jet ratio = m= %f',m)
+L=2.5*d // length
+mprintf('\n Radial length of bucket L = %f m',L)
+B=4*d // width
+mprintf('\n width of bucket B =%f m',B)
+mprintf('\n Depth of bucket hyrauclic efficiency %f m',d)
+nb=2*(u/V1)*(1-(u/V1))*(1-cosd(160))
+mprintf('\n %f',nb)
+nm=on/nb
+mprintf('\n nm =%f',nm)
|