summaryrefslogtreecommitdiff
path: root/2858/CH9/EX9.4/Ex9_4.sce
blob: 7ed1658ac1d06d2a8feb57bd9835e510c7a1a6b1 (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
//example 9.4
clc; funcprot(0);
Gamma=15.9;
Gamma1=19.33-9.81;
GD=0.23;
CDL1=1.172;
L1=2;
L2=3;
Dth=(L1+L2)*GD*CDL1;
disp(Dth,"theoritical depth in m");
Dac=1.4*Dth;
disp(Dac,"actual depth in m");
printf("approximate it as 2 m");
//partb
CFL1=1.073;
GF=0.07;
Gammaa=(Gamma*L1^2+Gamma1*L2^2+2*Gamma*L1*L2)/(L1+L2)^2;
F=Gammaa*(L1+L2)^2*GF*CFL1;
disp(F,"force in kN/m");
//partc
GM=0.021;
CML1=1.036;
Mmax=Gammaa*(L1+L2)^3*GM*CML1;
disp(Mmax,"maximum moment in kN-m/m");