summaryrefslogtreecommitdiff
path: root/3764/CH4/EX4.02/Ex4_02.sce
blob: 1255e07d3c2b6b3f9f84af04b9bf81eecc386ec3 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
clc
//

//Variable declaration
r=12                                                                     // Radius(mm)
p=2.5                                                                    // Mean radius(m)  
E=70                                                                     // Modulus of rigidity(GPa)
n=-1

//Calculation         
Y=(4*r)/(3*(%pi))                                                    // Ordinate(mm)
c=r-Y                                                                    // Distance from the neutral axis to the point of crossection(mm) 
Em=(c*(10**-3))/p                                                        // Maximum absolute value of the strain
Sm=((E*((10**9)))*Em)/((10**6)*(1.0))                                      // Maximum tensile stress(MPa)
Scomp=(n)*(Y/c)*(Sm)                                                     // Maximum compressive stress(MPa) 

// Result
printf("\n Maximum tensile stress = %0.3f MPa' ,Sm)
printf("\n Maximum compressive stress = %0.3f MPa' ,Scomp)