1 files changed, 13 insertions, 0 deletions
diff --git a/3369/CH4/EX4.3/Ex4_3.sce b/3369/CH4/EX4.3/Ex4_3.sce
new file mode 100755
index 000000000..5858a2127
--- /dev/null
+++ b/3369/CH4/EX4.3/Ex4_3.sce
@@ -0,0 +1,13 @@
+//Chapter 4, Exmaple 3, page 140
+//Claculate size of developed avalanche
+clc
+clear
+a = 4*10**4
+b = 15*10**5
+//Rewriting equation 4.2
+x0=0;x1=0.0005;
+X=integrate('a-b*sqrt(x)','x',x0,x1);
+As = exp(X) // Avelanche size
+printf("\n Avalanche size = %f m",As)
+ 
+//Answers may vary due to round of error