summaryrefslogtreecommitdiff
path: root/3776/CH11/EX11.2/Ex11_2.sce
blob: eb888504a1a27dee20c8158f20849a6b33bb81b8 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
clear
//Given 
//
h =  60             //mm - the length of the crossection 
b = 100             //mm - the width of hte crossection 
E = 200             //GPa - The youngs modulus
stress_cr  = 250    //MPa - The proportionality limit
//calculations 

I = b*(h**3)/12     //mm3 The momentof inertia of the crossection
A = h*b             //sq.mm - The area of teh crossection 
//From Euler formula
r_min  =  ((I/A)**0.5)                            //mm - The radius of the gyration 
//(l/r)**2= (%pi**2)*E/stress_cr                      //From Euler formula
l = (((%pi**2)*E*(10**3)/stress_cr)**0.5)*r_min //mm - the length after which the beam starts buckling
printf("\n The length after which the beam starts buckling is  %0.0f mm",l)