summaryrefslogtreecommitdiff
path: root/3776/CH11/EX11.8/Ex11_8.sce
blob: 84736d445fabf4629ec75f6b81fb4069c9520719 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
clear
//Given
//
L = 15.0                                        //ft - The length of the each rod
A = 46.7                                        //in2 - The length of the crossection 
r_min = 4                                       //in - The radius of gyration
stress_yp = 36.0                                //ksi - the yielding point stress
E = 29*(10**3)                                  //ksi - The youngs modulus
lamda = L*12*((stress_yp/E)**0.5)/(4*(%pi)) //column slenderness ratio
if lamda<1.5 then
    printf("The following approach is right")
else
    printf("The following approach is wrong")
    end
stress_cr = (0.658**(lamda**2))*stress_yp    //ksi - The critical stress  
P_n = stress_cr*A                            //kips //Nominal compressive strength 
o = 0.85                                     //Resistance factor
p_u = o*P_n                                  //kips ,column design compressive strength 
printf("\n column design compressive strength  %0.3f kips",p_u)