From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001 From: priyanka Date: Wed, 24 Jun 2015 15:03:17 +0530 Subject: initial commit / add all books --- 2087/CH2/EX2.4/example2_4.sce | 51 +++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 51 insertions(+) create mode 100755 2087/CH2/EX2.4/example2_4.sce (limited to '2087/CH2/EX2.4') diff --git a/2087/CH2/EX2.4/example2_4.sce b/2087/CH2/EX2.4/example2_4.sce new file mode 100755 index 000000000..ab903ce5c --- /dev/null +++ b/2087/CH2/EX2.4/example2_4.sce @@ -0,0 +1,51 @@ + + +//example 2.4 +//calculate +//deep percolation loss +//water application efficiency and time of irrigation. + +clc; +//Given +B=12;//breadth of basin +L=36//length of basin +d=70//depth of irrigation +Ic=70//cumulative infiltration +kdash=9; +ndash=0.42; +//Part (a) +a=5; +b=0.6; +q=1.5;//stream size +Q=(q*B)/1000; +tl=(L/a)^(1/b); +td=(Ic/kdash)^(1/ndash); +T=tl+td; +p=(1-(td/T)^(ndash))*100; +eita=(1-p/100)*100; +Tdash=(d*L*B)/(10*eita*Q*60); +p=round(p*100)/100; +eita=round(eita*100)/100; +Tdash=round(Tdash*10)/10; +mprintf("Part (a):") +mprintf("\nDeep percolation loss= %f percent.",p); +mprintf("\nWater application efficiency= %f percent.",eita); +mprintf("\nTime of irrigation= %f minutes.",Tdash); +//part (b) +a=8; +b=0.6; +q=3; +Q=(q*B)/1000; +tl=(L/a)^(1/b); +td=(Ic/kdash)^(1/ndash); +T=tl+td; +p=(1-(td/T)^(ndash))*100; +eita=(1-p/100)*100; +Tdash=(d*L*B)/(10*eita*Q*60); +p=round(p*100)/100; +eita=round(eita*100)/100; +Tdash=round(Tdash*10)/10; +mprintf("\nPart (b):") +mprintf("\nDeep percolation loss= %f percent.",p); +mprintf("\nWater application efficiency= %f percent.",eita); +mprintf("\nTime of irrigation= %f minutes.",Tdash); -- cgit