blob: e94453b4376c81271ca29fc3eb55f40b66fae08c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
//example 3.5
//calculate Field Capacity
clc;
//Given
d=2; //root zone depth
Wc=0.05; //existing water content
gammad=15; //dry density of soil
gammaw=9.81; //unit weigth of water
Vw=500 //water applied to the soil
Wl=0.1; //water loss
A=1000; //area of plot
Vu=Vw*0.9; //volume of water used in soil
Wu=Vu*gammaw; //weigth of water used in soil
Ws=A*d*gammad; //total dry weigth of soil
Wa=Wu*100/Ws; //percent water added
Fc=Wc*100+Wa;
Fc=round(Fc*100)/100;
mprintf("The Field Capacity of soil is=%f percent.",Fc);
|
