1 files changed, 17 insertions, 0 deletions
diff --git a/2087/CH4/EX4.48/example4_48.sce b/2087/CH4/EX4.48/example4_48.sce
new file mode 100755
index 000000000..fdf76d578
--- /dev/null
+++ b/2087/CH4/EX4.48/example4_48.sce
@@ -0,0 +1,17 @@
+
+
+//example 4.48
+//calculate evaporation from reservior surface during the week
+clc;funcprot(0);
+//given
+h1=7.75;        //initial depth of water
+r=3.80;         //rainfall during the week
+hr=2.50;       //depth of water removed
+C=0.7;        //pan coefficient
+ha=r-hr;
+hl=ha+h1;
+h2=8.32;
+ev=hl-h2;
+evs=ev*C;
+evs=round(evs*100)/100;
+mprintf("evaporation from reservior surface during the week=%f cm.",evs);