summaryrefslogtreecommitdiff
path: root/2078/CH10/EX10.5/Example10_5.sce
blob: b6e78b6032a4712c3cc8b5c3d11b868da1fa85dc (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
//Exa 10.5
clc;
clear;
close;
//Given data :
L=160;//m
d=0.95;//cm
wc=0.65;//kg/m
U_stress=4250;//kg/cm^2
Pw=40;//kg/m^2(Wind pressure)
SF=5;//factor of safety
W_stress=U_stress/SF;//kg/cm^2
T=W_stress*%pi/4*d^2;//kg
w_w=Pw*d*10^-2;//kg
wr=sqrt(wc^2+w_w^2);//kg
S=wr*L^2/8/T;//m
disp(round(S),"Sag(meter)");