summaryrefslogtreecommitdiff
path: root/2858/CH11/EX11.7/Ex11_7.sce
blob: 55051b035c5457ecc0936ce3c5e267fb4f333b90 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
//example 11.7
clc; funcprot(0);
Ep=207e6;
Ip=123e-6;
nh=12000;
//from table
xz=0.008;
Ax=2.435;
T=(Ep*Ip/nh)^0.2;
Qg1=xz*Ep*Ip/Ax/T^3;
//part2
Fy=248000;
d1=0.254;
Am=0.772;
Mzmax=Fy*Ip*2/d1;
Qg2=Mzmax/Am/T;
if Qg2>Qg1 then
    Qg=Qg1;
    disp(Qg,"lateral load in kN");
end