initial commit / add all books

1 files changed, 25 insertions, 0 deletions

diff --git a/2087/CH3/EX3.8/example3_8.sce b/2087/CH3/EX3.8/example3_8.sce
new file mode 100755
index 000000000..a912a400d
--- /dev/null
+++ b/2087/CH3/EX3.8/example3_8.sce
@@ -0,0 +1,25 @@
+

+

+//example 3.8

+//calculate

+//net depth of irrigation water reqiured

+//time required to irrigate field

+clc;

+//given

+Fc=0.22;     //Field capacity

+Sg=1.56;     //Apparent specific gravity

+d=0.6;       //root zone depth

+//irrigation is started when 70 percent of moisture is used

+l=250;        //length of field

+b=40;         //width of field

+q=20;         //Discharge

+

+

+m=(1-0.7)*Fc;

+D=Sg*d*(Fc-m)*1000;

+A=l*b;

+t=A*D/(q*3600);

+D=round(D);

+t=round(t);

+mprintf("Net depth of irrigation water required=%f mm.",D);

+mprintf("\nTime required to irrigate field=%f hours.",t);