diff options
Diffstat (limited to '3776/CH9/EX9.6/Ex9_6.sce')
| -rw-r--r-- | 3776/CH9/EX9.6/Ex9_6.sce | 32 |
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) |