summaryrefslogtreecommitdiff
path: root/1898/CH13/EX13.11/Ex13_11.sce
diff options
context:
space:
mode:
Diffstat (limited to '1898/CH13/EX13.11/Ex13_11.sce')
-rwxr-xr-x1898/CH13/EX13.11/Ex13_11.sce25
1 files changed, 25 insertions, 0 deletions
diff --git a/1898/CH13/EX13.11/Ex13_11.sce b/1898/CH13/EX13.11/Ex13_11.sce
new file mode 100755
index 000000000..1139abcf7
--- /dev/null
+++ b/1898/CH13/EX13.11/Ex13_11.sce
@@ -0,0 +1,25 @@
+clear all; clc;
+
+disp("Scilab Code Ex 13.11 : ")
+
+//Given:
+P = 20*10^3; //N
+y1 = 150; //mm
+x1 = 40; //mm
+A = (x1*y1);
+d = 40;
+K = 1;
+
+//Eqn 13.29
+
+L2 = (3718*A*d^2)/(P);
+L = sqrt(L2);
+KL_d = (K*L)/(d);
+
+if(KL_d>26 & KL_d<=50)
+ printf('\n\nThe greatest allowable length L as specified by the NFPA = %1.0f mm',L);
+
+end
+
+//------------------------------------------------------------------------END-----------------------------------------------------------------------------
+