initial commit / add all books

1 files changed, 28 insertions, 0 deletions

diff --git a/2087/CH3/EX3.28/example3_28.sce b/2087/CH3/EX3.28/example3_28.sce
new file mode 100755
index 000000000..3cbd0ff23
--- /dev/null
+++ b/2087/CH3/EX3.28/example3_28.sce
@@ -0,0 +1,28 @@
+

+

+//example 3.28

+//calculate reservior capacity

+clc;

+//given

+Ar=4000;                 //culturable commanded area

+CL=0.25;                //canal loss

+RL=0.15;                 //reservior loss

+B=[120 360 180 120 120];  //base period

+D=[1800 1700 1400 800 700];//duty of water

+I=[20 20 10 15 15];       //intensity of irrigation

+for i=1:5

+    A(i)=Ar*I(i)/10;     //area under crop

+end

+for i=1:5

+    Q(i)=A(i)/D(i);        //discharge required

+end

+for i=1:5

+    V(i)=8.64D4*Q(i)*B(i);     //quantity of water

+end

+s=0;

+for i=1:5

+    s=s+V(i);

+end

+SC=round(s/((1-CL)*(1-RL)*1000000));

+mprintf("Storage capacity=%iD+06 cubic metre.",SC);

+