1 files changed, 26 insertions, 0 deletions
diff --git a/2087/CH3/EX3.13/example3_13.sce b/2087/CH3/EX3.13/example3_13.sce
new file mode 100755
index 000000000..f9c8992c4
--- /dev/null
+++ b/2087/CH3/EX3.13/example3_13.sce
@@ -0,0 +1,26 @@
+
+
+//example 3.13
+//compare the efficiency
+clc;funcprot(0);
+//given
+ql=20;          //discharge in left branch
+Al=20000;       //culturable area in left branch
+Bl=120;         //Base period in left branch
+Il=0.8;         //intensity of rabi in left branch
+qr=8;           //discharge in rigth branch
+Ar=12000;       //culturable area in rigth branch
+Br=120;         //Base period in rigth branch
+Ir=0.5;         //intensity of rabi in rigth branch
+
+//for left canal
+ARl=Al*Il;
+Dl=ARl/ql;
+mprintf("Duty for left canal is=%i hectares/cumecs.",Dl);
+
+//for rigth canal
+ARr=Ar*Ir;
+Dr=ARr/qr;
+mprintf("\nDuty for left canal is=%i hectares/cumecs.",Dr);
+mprintf("\nSince,left canal has higher duty,it is more efficient");
+