summaryrefslogtreecommitdiff
path: root/3776/CH4/EX4.15/Ex4_15.sce
blob: 0d15b319fa0f9dae3e220fe63fc6ef41d321897b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
clear
//Given 
//AISC MANUALS
//approximated by three narrow tubes 
//J = Bbt^3
B = 0.33 // constant mentiones in AISC
//three rods 

//rod_1
t_1 = 0.605 //inch - Thickness 
b =  12.0 //inches - width 
J_1 = B*b*(t_1**3) //in^4 - Torsion constant 

//rod_2
t_2 = 0.605 //inch - Thickness 
b =  12 //inches - width 
J_2 = B*b*(t_2**3) //in^4 - Torsion constant 

//rod_3
t_3 = 0.390 //inch - Thickness 
b =  10.91 //inches - width 
J_3 = B*b*(t_3**3) //in^4 - Torsion constant 

//Equivalent
J_eq = J_1+J_2+J_3  //in^4 - Torsion constant 
printf("\n the Equivalent Torsion constant is  %0.2f in^4 ",J_eq)