2087/CH3/EX3.8/example3_8.sce


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


//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);