summaryrefslogtreecommitdiff
path: root/3772/CH15/EX15.6/Ex15_6.sce
blob: 964813121c5cae6fedbffd44f30e1df5da7b2aec (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
28
// Problem no 15.6,Page no.354

clc;clear;
close;

L=3 //m //Length
D=1 //m //Internal Diameter
t=0.015 //m //thickness
p=1.5*10**6 //Pa //Internal pressure
E=200*10**9 //Pa 
m=1*0.3**-1 //Poissoin's ratio

//Calculations

sigma_t=p*D*(2*t)**-1*10**-6 //MPa //Hoop stress
sigma_l=p*D*(4*t)**-1*10**-6 //MPa //Longitudinal stress

dD=(p*D**2*(2*t*E)**-1*(1-1*(2*m)**-1))*10**2 //cm //Change in Diameter
dL=p*D*L*(2*t*E)**-1*(1*2**-1-1*m**-1)*10**2 //cm //Change in Length

V=%pi*4**-1*D**2*L //Volume 
dV=p*D*(2*t*E)**-1*(5*2**-1-2*(m)**-1)*V*10**6 //cm //Change in Volume

//Result
printf("The circumferential stresses induced is %.2f",sigma_t);printf(" MPa")
printf("\n The Longitudinal stresses induced is %.2f",sigma_l);printf(" MPa")
printf("\n The change in dimension are:D is %.3f cm",dD)
printf("\n                            :L is %.4f cm",dL)