diff options
Diffstat (limited to '1898/CH13/EX13.11/Ex13_11.sce')
-rwxr-xr-x | 1898/CH13/EX13.11/Ex13_11.sce | 25 |
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-----------------------------------------------------------------------------
+
|