summaryrefslogtreecommitdiff
path: root/3863/CH10/EX10.19/Ex10_19.sce
blob: 2c4b532e3a4300b7a43d49ac84d1b5c6bd1e0520 (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
29
30
31
clear
//
//
//Given
//Variable declaration
h=20              //height in m
D=4               //External diameter in m
d=2               //Internal diameter in m
p=1               //Horizontal wind pressure in kN/sq.m
w=22              //specific weight in kN/m^3
K=2/3             //Co-efficient of wind resistance

//Calculation
A1=(%pi/4)*(D**2-d**2)           //Area of cross-section
W=w*A1*h                             //Weigth of the chimney in kN
sigma0=W/A1                          //Direct stress in kN/sq.mm
A2=D*h                               //Projected area of the surface exposed to wind in sq.m
F=K*p*A2                             //Wind Force in kN
M=F*h/2                              //Bending moment in kNm
I=(%pi/64)*(D**4-d**4)           //Moment of inertia
y=D/2                                //Distance between C.G. of the base section and extreme edge of the base
Z=I/y                                //Section modulus
sigmab=M/Z                           //Bending stress
sigma_max=(sigma0+sigmab)     //Maximum stress in kN/sq.m

sigma_min=(sigma0-sigmab)     //Minimum stress in kN/sq.m


//Result
printf("\n Maximum stress = %0.3f  kN/m^2",sigma_max)
printf("\n Minimum stress = %0.3f  kN/m^2",sigma_min)