2 files changed, 28 insertions, 0 deletions
diff --git a/2087/CH4/EX4.62/example4_62.jpg b/2087/CH4/EX4.62/example4_62.jpg
new file mode 100755
index 000000000..160f81357
--- /dev/null
+++ b/2087/CH4/EX4.62/example4_62.jpg
diff --git a/2087/CH4/EX4.62/example4_62.sce b/2087/CH4/EX4.62/example4_62.sce
new file mode 100755
index 000000000..6e8b94e17
--- /dev/null
+++ b/2087/CH4/EX4.62/example4_62.sce
@@ -0,0 +1,28 @@
+//example 4.62
+//ordinates of 1 hr unit hydrograph
+clc;funcprot(0);
+//given
+t=[0:1:12];     //time
+O=[0 0 54 0 175 0 127 0 58 0 25 0 0 0];           //ordinate of 2 hr unit hydrograph
+of(1)=0;
+of(2)=0;
+for i=3:13
+    if modulo(i,2)==0;
+        of(i)=0;
+    
+else 
+    of(i)=O(i-2)+of(i-2);
+end
+end
+s=[0 25 54 120 229 300 356 390 414 430 439 439 439];     //Ordinates of S-curve
+for i=2:13
+    of1(i)=s(i-1);
+end
+mprintf("ordinates of 1 hr unit hydrograph:");
+for i=1:13
+    y(i)=s(i)-of1(i);
+u(i)=y(i)*2;
+mprintf("\n%i",u(i));
+end
+//graph is plotted between u and t
+