diff options
Diffstat (limited to '2087/CH3/EX3.6')
| -rwxr-xr-x | 2087/CH3/EX3.6/example3_6.sce | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/2087/CH3/EX3.6/example3_6.sce b/2087/CH3/EX3.6/example3_6.sce new file mode 100755 index 000000000..ca20deccb --- /dev/null +++ b/2087/CH3/EX3.6/example3_6.sce @@ -0,0 +1,24 @@ +
+
+//example 3.6
+//calculate
+//storage capcity of soil
+//Water depth required to be applied
+clc;
+//Given
+Fc=0.22; //Field Capacity
+wc=0.1; //wilting coefficient
+gammad=15; //dry unit weigth of soil
+gammaw=9.81; //unit wiegth of water
+d=0.7; //root zone depth
+w=0.14; //falled moisture content
+E=0.75; //water application efficiency
+SC=gammad*d*(Fc-wc)*100/gammaw;
+D=gammad*d*(Fc-w)*1000/gammaw;
+FIR=D/E; //Field irrigation requirement
+SC=round(SC*10)/10;
+D=round(D);
+FIR=round(FIR)+1;
+mprintf("Maximum storage capacity of soil=%f cm.",SC);
+mprintf("\nWater depth required to be applied=%f mm",D);
+mprintf("\nField Irrigation Requirement=%f mm",FIR);
|