1 files changed, 37 insertions, 0 deletions
diff --git a/1898/CH13/EX13.14/Ex13_14.sce b/1898/CH13/EX13.14/Ex13_14.sce
new file mode 100755
index 000000000..4467cfb1e
--- /dev/null
+++ b/1898/CH13/EX13.14/Ex13_14.sce
@@ -0,0 +1,37 @@
+
+clear all; clc;
+
+disp("Scilab Code Ex 13.14 : ")
+
+//Given:
+K = 2;
+d= 60; //mm
+L = 1200; //mm
+e = 80; //mm
+c = d;
+A = 60*120; //mm^2
+l = 60; //mm
+b = 120;//mm
+
+
+//Calculations:
+sl_ratio = (K*L)/(d);
+
+if(sl_ratio>26 & sl_ratio<50)
+    sigma_allow = (3718)/(sl_ratio^2);
+    sigma_max = sigma_allow;
+    
+    I = (1/12)*(l*b^3);
+    coeffP = (1/A) + (e*c)/(I);
+    P = sigma_max/coeffP;
+    P = P/1000; //kN
+    
+     printf('\n\nThe eccentric load that can be supported = %1.2f kN',P);
+end
+
+//Answer given in the textbook varies.
+
+//-------------------------------------------------------------------------END-------------------------------------------------------------------------------------
+    
+    
+