2 files changed, 86 insertions, 0 deletions
diff --git a/764/CH4/EX4.6.b/result4_6.txt b/764/CH4/EX4.6.b/result4_6.txt
new file mode 100755
index 000000000..53ed0da1c
--- /dev/null
+++ b/764/CH4/EX4.6.b/result4_6.txt
@@ -0,0 +1,42 @@
+-->//(Design against Static Load) Example 4.6
+ 
+-->//Refer Fig.4.25
+ 
+-->//Data according to standard table h (mm)
+ 
+-->h = {150,175,200,225,250}
+ h  =
+ 
+    150.    175.    200.    225.    250.  
+ 
+-->//Ixx (mm4)
+ 
+-->Ixx = {(688.2 * (10^4)), (1096.2 * (10^4)), (1696.6 * (10^4)), (2501.9 * (10^4)), (3717.8 * (10^4))}
+ Ixx  =
+ 
+    6882000.    10962000.    16966000.    25019000.    37178000.  
+ 
+-->//Total weight of the bars W (kN)
+ 
+-->W = 75
+ W  =
+ 
+    75.  
+ 
+-->//Permissible bending stress sigmab (N/mm2)
+ 
+-->sigmab = 165
+ sigmab  =
+ 
+    165.  
+ 
+-->//Length of cantilever beam l (mm)
+ 
+-->l = 2000
+ l  =
+ 
+    2000.  
+ 
+
+ISLB200 is suitable for this application
+ 
+\ No newline at end of file
diff --git a/764/CH4/EX4.6.b/solution4_6.sce b/764/CH4/EX4.6.b/solution4_6.sce
new file mode 100755
index 000000000..e25066af7
--- /dev/null
+++ b/764/CH4/EX4.6.b/solution4_6.sce
@@ -0,0 +1,44 @@
+
+//Function to print the designation
+function[] = desig(z)
+    printf('\nISLB%d is suitable for this application\n',z)
+endfunction
+ 
+
+//Obtain path of solution file
+path = get_absolute_file_path('solution4_6.sce')
+//Obtain path of data file
+datapath = path + filesep() + 'data4_6.sci'
+//Clear all
+clc
+//Execute the data file
+exec(datapath)
+//Load supported by each beam P (kN)
+P = (W/2)
+//Distance of centre of gravity of the load from the rigid support d (mm)
+d  = (l/3)
+//Calculate the bending moment Mb (N-mm)
+Mb = (P * 1000)*d
+//Calculation of ratio Ixx/y (mm3)
+ratio = Mb/sigmab
+//Selection of beam
+//There are 5 standard beams provided 
+for i = 1:1:5 
+    x = Ixx(i)/(h(i)/2)
+//Break the loop if value of x exceeds value of ratio
+    if (x > ratio)
+        break
+    end
+end
+//Print the suitable beam designation obtained
+if (i == 1)
+    desig(150)
+elseif (i == 2)
+    desig(175)
+elseif (i == 3)
+    desig(200)
+elseif (i == 4)
+    desig(250)
+else
+    desig(250)
+end