summaryrefslogtreecommitdiff
path: root/3750/CH1/EX1.8/Ex1_8.sce
blob: a16e227b9fdd1bad85f40c2ec1f0c96ea88721e3 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
//Strength Of Material By G.H.Ryder
//Chapter 1
//Example 8
// To Find the Maximum Stress
l=1;  //lenght of steel rod, Unit in m
N=1000;   //rpm of rod, Unit in rmp
rho=7.8;   //density of the material, Unit in g/cm^3
Omega=%pi*2*N/60;   //Angular Velocity, Unit in rad/sec
//sigma a=-rhox^2*Omega*2/2+c, formula obtain from integration
//At x=l, sigma=0, c=rho*l^2*Omega*2/2
x=0; //x is distance from axis of rod
//Maximum Stress occur at axis, so
sigma=((rho*(Omega^2))/2)*((l^2)-(x^2));   //Stress in bar, Unit in N/mm^2
printf("The maximum Stress %f N/mm^2",sigma)