summaryrefslogtreecommitdiff
path: root/2078/CH10/EX10.11/Example10_11.sce
blob: 696bc129677ff83559d5b7840b5346a446530265 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
//Exa 10.11
clc;
clear;
close;
//Given data :
L=200;//m
h=10;//m
D=2;//cm
wc=2.3;//kg/m
Pw=57.5;//kg/m^2(wind pressure)
SF=4;//safety factor
stress=4220;//kg/cm^2
w_w=Pw*D*10^-2;//kg
wr=sqrt(wc^2+w_w^2);//kg
f=stress/SF;//kg/cm^2
T=f*%pi/4*D^2;//kg
x=L/2-T*h/(wr*L);//m
S1=wr*x^2/2/T;//max sag in air
disp(S1,"Slant sag(m)");
Sdash=wc*x^2/2/T;//vertical sag
disp(Sdash,"Vertical Sag(meter)");