blob: ac6693a716cdccf844b03c06c3f19bed6d79d1c4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
//example 5.1
//design an open wellin fine sand
clc;
//given
Q=0.003; //required discharge
H=2.5; //depression head
A=Q*3600/(0.5*H);
d=(4*A/%pi)^0.5;
d=round(d*100)/100
mprintf("Well diameter=%f m.",d);
//Alternative solution
C=7.5D-5; //permeability constant from table 5.2
A=Q/(C*H);
d=(16*3/%pi)^0.5;
d=round(d*10)/10;
mprintf("\nBy alternative solution:")
mprintf("\nWell diameter=%f m",d);
|
