summaryrefslogtreecommitdiff
path: root/3863/CH24/EX24.12/Ex24_12.sce
blob: 933c2f32fba14d40c93e8dfe97fb7a0732a9a7dd (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
27
clear
//
//
//Given
//Variable declaration
d=1.2               //Diameter in m
p=1.5               //Internal pressure in MN/sq.m
sigmat_star=200     //Yield stress in MN/sq.m
Sf=3                //Factor of safety

//Calculation
sigmat=sigmat_star/Sf    //Permissible stress in simple tension in MN/sq.m

//case(i):Thickness on the basis of Maximum principal stress theory
t1=((p*d)/2)/sigmat*1e3

//case(ii):Thickness on the basis of Maximum shear stress theory
t2=((p*d)/2)/sigmat*1e3

//case(iii):Thickness on the basis of Maximum shear strain energy theory
t3=(sqrt((((p*d/2)**2)+((p*d/4)**2)-((p*d/2)*(p*d/4)))/(sigmat**2)))


//Result
printf("\n Thickness of plate on the basis of maximum principal stress theory = %0.3f mm  ",t1)
printf("\n Thickness of plate on the basis of maximum shear stress theory = %0.3f mm ",t2)
printf("\n Thickness of plate on the basis of maximum shear strain energy theory = %0.3f mm  ",t3)