initial commit / add all books

16 files changed, 210 insertions, 0 deletions

diff --git a/416/CH8/EX8.1/exp8_1c.sce b/416/CH8/EX8.1/exp8_1c.sce
new file mode 100755
index 000000000..e0e584f90
--- /dev/null
+++ b/416/CH8/EX8.1/exp8_1c.sce
@@ -0,0 +1,8 @@
+clear

+clc

+disp("example 8.1")

+h=100 //given height

+q=200 //discharge

+e=0.9 //efficiency

+p=(735.5/75)*q*h*e

+printf("\npower developed by hydro plant is %ekW",p)
\ No newline at end of file
diff --git a/416/CH8/EX8.1/exp8_1c.txt b/416/CH8/EX8.1/exp8_1c.txt
new file mode 100755
index 000000000..29b0941a2
--- /dev/null
+++ b/416/CH8/EX8.1/exp8_1c.txt
@@ -0,0 +1,4 @@
+  

+ example 8.1   

+

+power developed by hydro plant is 1.765200e+005kW 
\ No newline at end of file
diff --git a/416/CH8/EX8.2/exp8_2.png b/416/CH8/EX8.2/exp8_2.png
new file mode 100755
index 000000000..a322d0658
--- /dev/null
+++ b/416/CH8/EX8.2/exp8_2.png
diff --git a/416/CH8/EX8.2/exp8_2.sce b/416/CH8/EX8.2/exp8_2.sce
new file mode 100755
index 000000000..c0c10f53c
--- /dev/null
+++ b/416/CH8/EX8.2/exp8_2.sce
@@ -0,0 +1,27 @@
+clear

+clc

+disp("example 8.2")

+flow=[0 1000 800 600 400 400 1200 2400 2400 1000 400 400 1000] //flow in matrix from in the order of months

+y=0:12

+h=150

+e=0.85

+avg=sum(flow)/12

+printf("\naverage rate of inflow is %dcu-m/sec",avg)

+p=(735.5/75)*avg*h*e

+printf("\npower developed is %fkW",p)

+plot2d2(y,flow)

+

+xtitle('hydrograph','months','run in cu-m/sec')

+disp("hydrograph is ploted in figure")

+for x=1:12

+       t=flow(1,x)

+    a=avg

+        if t<a|t==avg then

+        t=0

+    else

+        t=t-1000

+       end

+     flow1(1,x)=t;

+    end

+sto=sum(flow1)

+printf("\nstorage capacity of given plant is %dsec-m-month",sto)
\ No newline at end of file
diff --git a/416/CH8/EX8.2/exp8_2.txt b/416/CH8/EX8.2/exp8_2.txt
new file mode 100755
index 000000000..18338e0c2
--- /dev/null
+++ b/416/CH8/EX8.2/exp8_2.txt
@@ -0,0 +1,8 @@
+  

+ example 8.2   

+

+average rate of inflow is 1000cu-m/sec

+power developed is 1250350.000000kW 

+ hydrograph is ploted in figure   

+

+storage capacity of given plant is 3000sec-m-month 
\ No newline at end of file
diff --git a/416/CH8/EX8.3/exp8_3.png b/416/CH8/EX8.3/exp8_3.png
new file mode 100755
index 000000000..333035caf
--- /dev/null
+++ b/416/CH8/EX8.3/exp8_3.png
diff --git a/416/CH8/EX8.3/exp8_3.sce b/416/CH8/EX8.3/exp8_3.sce
new file mode 100755
index 000000000..edb133dbe
--- /dev/null
+++ b/416/CH8/EX8.3/exp8_3.sce
@@ -0,0 +1,36 @@
+clear

+clc

+disp("example 8.3")

+flow=[1500 1000 500 500 500 1200 2900 2900 1000 400 600 1600]

+cod=1000//constant demand

+plot2d2(flow)

+xtitle('hydrograph for exp 8.3','months','run off in m^3/sec')

+avg=sum(flow)/12

+if cod<avg then

+    for x=1:6

+       t=flow(1,x)

+        if t>cod|t==avg then

+        

+        t=0

+    else

+        t=cod-t

+       end

+     flow1(1,x)=t;

+ end

+ 

+ else

+     for x=1:12

+       t=flow(1,x)

+    a=cod

+        if t>a|t==avg then

+        t=0

+    else

+        t=t-cod

+       end

+     flow1(1,x)=t;

+    end

+end

+

+sto=sum(flow1)

+printf("storage capacity of plant is %dsec-m-month",sto)

+

diff --git a/416/CH8/EX8.3/exp8_3.txt b/416/CH8/EX8.3/exp8_3.txt
new file mode 100755
index 000000000..1ac449a5e
--- /dev/null
+++ b/416/CH8/EX8.3/exp8_3.txt
@@ -0,0 +1,3 @@
+ 

+ example 8.3   

+storage capacity of plant is 1500sec-m-month 

diff --git a/416/CH8/EX8.4/exp8_4ff.jpg b/416/CH8/EX8.4/exp8_4ff.jpg
new file mode 100755
index 000000000..25b4c698a
--- /dev/null
+++ b/416/CH8/EX8.4/exp8_4ff.jpg
diff --git a/416/CH8/EX8.4/exp8_4ff.sce b/416/CH8/EX8.4/exp8_4ff.sce
new file mode 100755
index 000000000..ce00a5d6b
--- /dev/null
+++ b/416/CH8/EX8.4/exp8_4ff.sce
@@ -0,0 +1,41 @@
+clear

+clc

+disp("example 8.4")

+flow=[1500 1000 500 500 500 1200 2900 2900 1000 400 600 1600]

+cod=1000//constant demand

+[m n]=size(flow)

+mf(1)=1500

+for i=2:n

+    mf(i)=mf(i-1)+flow(i)

+end

+plot(mf)

+dd=1:cod:mf(n)

+avg=sum(flow)/12

+if cod<avg then

+    for x=1:6

+       t=flow(1,x)

+        if t>cod|t==avg then

+        

+        t=0

+    else

+        t=cod-t

+       end

+     flow1(1,x)=t;

+ end

+ 

+ else

+     for x=1:12

+       t=flow(1,x)

+    a=cod

+        if t>a|t==avg then

+        t=0

+    else

+        t=t-cod

+       end

+     flow1(1,x)=t;

+    end

+end

+

+sto=sum(flow1)

+printf("storage capacity of plant is %dsec-m-month",sto)

+

diff --git a/416/CH8/EX8.4/exp8_4ff.txt b/416/CH8/EX8.4/exp8_4ff.txt
new file mode 100755
index 000000000..5ba271806
--- /dev/null
+++ b/416/CH8/EX8.4/exp8_4ff.txt
@@ -0,0 +1,3 @@
+ 

+ example 8.4   

+storage capacity of plant is 1500sec-m-month 
\ No newline at end of file
diff --git a/416/CH8/EX8.5/exp8_5.png b/416/CH8/EX8.5/exp8_5.png
new file mode 100755
index 000000000..7af136164
--- /dev/null
+++ b/416/CH8/EX8.5/exp8_5.png
diff --git a/416/CH8/EX8.5/exp8_5.sce b/416/CH8/EX8.5/exp8_5.sce
new file mode 100755
index 000000000..cef53b622
--- /dev/null
+++ b/416/CH8/EX8.5/exp8_5.sce
@@ -0,0 +1,34 @@
+clear
+clc
+disp("solution of 8.5")
+flow=[80 50 40 20 0 100 150 200 250 120 100 80]
+h=100;e=80
+subplot(211)
+plot2d2(flow)
+xtitle('hydrograph','months','run off,millon m^3/month' )
+fd=gsort(flow)
+subplot(212)
+plot2d2(fd)
+xtitle('flow duretion','months','run off')
+
+t=1:12
+for x=2:10
+    d=fd(1,x)
+    ad=fd(1,(x-1))
+    if d==ad then
+        t(1,x)=[]
+        t(1,x-1)=t(1,x-1)+1
+        fd(1,x)=[]
+    end
+end
+ffw=[fd;t]
+disp("load duration data is as under")
+disp(ffw)
+mf=sum(flow)*10^6/(30*24*3600)
+disp("(a)")
+printf("meanflow is %fm^3-sec",mf)
+disp("(b)")
+p=(735.5/75)*mf*h*e
+printf("power delevered in %dkW=%.3fMW",p,p/1000)
+
+
diff --git a/416/CH8/EX8.5/exp8_5.txt b/416/CH8/EX8.5/exp8_5.txt
new file mode 100755
index 000000000..6b2562e0e
--- /dev/null
+++ b/416/CH8/EX8.5/exp8_5.txt
@@ -0,0 +1,11 @@
+solution of 8.5   

+ 

+ load duration data is as under   

+ 

+    250.    200.    150.    120.    100.    80.    50.    40.    20.    0.   

+    1.      2.      3.      4.      6.      8.     9.     10.    11.    12.  

+ 

+ (a)   

+meanflow is 459.104938m^3-sec 

+ (b)   

+power delevered in 36018312kW=36018.313MW 
\ No newline at end of file
diff --git a/416/CH8/EX8.6/exp8_6c.sce b/416/CH8/EX8.6/exp8_6c.sce
new file mode 100755
index 000000000..b2c405027
--- /dev/null
+++ b/416/CH8/EX8.6/exp8_6c.sce
@@ -0,0 +1,24 @@
+clear

+clc

+disp("example 8.6")

+mh=205//mean height

+a=1000*10^6//in miters

+r=1.25//annual rain fall

+er=0.8//efficiency

+lf=0.75//load factor

+hl=5//head loss

+et=0.9//efficiency of turbine

+eg=0.95//efficiency of generator

+wu=a*r*er/(365*24*3600)

+printf("\nwater used is \t\t%fm^3/sec",wu)

+eh=mh-hl

+printf("\neffective head is \t%dm",eh)

+p=(735.5/75)*(wu*eh*et*eg)

+printf("\npower generated is \t%fkW =\t%fMW",p,p/1000)

+pl=p/lf

+printf("\npeak load is \t\t%fMw \ntherefore the MW rating of station is \t%fMW",pl/1000,pl/1000)

+if eh<=200 then

+printf("\nfor a head above 200m pelton turbine is suitable,\nfrancis turbine is suitable in the range of 30m-200m.,\nhowever pelton is most suitable")

+else

+    printf("only pelton turbine is most suitable")

+end

diff --git a/416/CH8/EX8.6/exp8_6c.txt b/416/CH8/EX8.6/exp8_6c.txt
new file mode 100755
index 000000000..ead379fc3
--- /dev/null
+++ b/416/CH8/EX8.6/exp8_6c.txt
@@ -0,0 +1,11 @@
+

+ example 8.6   

+

+water used is 		31.709792m^3/sec

+effective head is 	200m

+power generated is 	53175.418569kW =	53.175419MW

+peak load is 		70.900558Mw 

+therefore the MW rating of station is 	70.900558MW

+for a head above 200m pelton turbine is suitable,

+francis turbine is suitable in the range of 30m-200m.,

+however pelton is most suitable 
\ No newline at end of file