summaryrefslogtreecommitdiff
path: root/3776/CH9/EX9.6/Ex9_6.sce
diff options
context:
space:
mode:
Diffstat (limited to '3776/CH9/EX9.6/Ex9_6.sce')
-rw-r--r--3776/CH9/EX9.6/Ex9_6.sce32
1 files changed, 32 insertions, 0 deletions
diff --git a/3776/CH9/EX9.6/Ex9_6.sce b/3776/CH9/EX9.6/Ex9_6.sce
new file mode 100644
index 000000000..a8a78e3ed
--- /dev/null
+++ b/3776/CH9/EX9.6/Ex9_6.sce
@@ -0,0 +1,32 @@
+clear
+//Given
+stress_allow = 24 //ksi - The maximum allowable stress
+stress_allow_shear = 14.5 //ksi- The maximum allowable shear stress
+M_max = 36 //k-ft The maximum moment
+l = 16 //in-The length of the rod
+w = 2 //k/ft - The force distribution on the rod
+A = l*w
+R_A = 6.4 //k - The reaction at A
+R_B = 25.6 //k - the reaction at B
+v_max = R_B-l*w //kips the maximum stress, from diagram
+//W8x24 is used from the appendix table 3 and 4
+l =0.245 //in - W8x24 crossesction length
+//Caliculations
+
+stress_xy = v_max/A //ksi the approximate shear stress
+if stress_xy < stress_allow_shear then
+ printf("W8x24 gives the allowable ranges of shear stress")
+else:
+ printf("W8x24 doesnot gives the allowable ranges of shear stress")
+end
+k = 7.0/8 //in the distance from the outer face of the flange to the webfillet
+//at+kt should not exceed 0.75 of yeild stress
+//a1t+2kt should not exceed 0.75 of yeild stress
+Stress_yp = 36 //ksi - The yeild stress
+t = 0.245 //in thickness of the web
+//support a
+a = R_A/(0.75*Stress_yp*t)-k //in lengths of the bearings
+//support b
+a_1 = R_B/(0.75*Stress_yp*t)-2*k //in lengths of the bearings
+printf("\n lengths of the bearing at A %0.3f in",a)
+printf("\n lengths of the bearing at B %0.3f in",a_1)