summaryrefslogtreecommitdiff
path: root/2087/CH16/EX16.7/example16_7.sce
blob: b346665b99f90e9a2948ccd0a5c7900165c7d906 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15


//example 16.7
//calculate annual average rainfall
clc;funcprot(0);
//given
L=50;         //spacing between drains
k=1D-5;       //permeability coefficient
a=10;
b=10.3;

Q=4*k*(b^2-a^2)/L;
Pav=Q*24*3600*100*100/L;
mprintf("annual average rainfall=%i cm",Pav);