From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001 From: priyanka Date: Wed, 24 Jun 2015 15:03:17 +0530 Subject: initial commit / add all books --- 2087/CH10/EX10.3/example10_3.sce | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) create mode 100755 2087/CH10/EX10.3/example10_3.sce (limited to '2087/CH10/EX10.3') diff --git a/2087/CH10/EX10.3/example10_3.sce b/2087/CH10/EX10.3/example10_3.sce new file mode 100755 index 000000000..e0a24bb35 --- /dev/null +++ b/2087/CH10/EX10.3/example10_3.sce @@ -0,0 +1,25 @@ + + +//example10.3 +//calculate factor of safety for slope +clc;funcprot(0); +//given +x=4; //given scale +An=14.4; //area of N rectangle +At=6.4; //area of T rectangle +Au=4.9; //area of U rectangle +L=12.6; //length of arc; +gamma_m=19; //unit weigth of soil +gamma_w=9.81; //unit weigth of water +fi=26; //effective angle(degree) +co=19.5; //cohesion value + +//consider 1m length of dam +SumN=An*x^2*gamma_m; +SumT=At*x^2*gamma_m; +SumU=Au*x^2*gamma_w; +Le=x*L; +F=((Le*co)+(SumN-SumU)*tand(fi))/SumT; +F=round(F*100)/100; +mprintf("Factor of safety for slope=%f.",F); + -- cgit