summaryrefslogtreecommitdiff
path: root/1793/CH14/EX14.1/14Q1.sce
blob: 6cb3528d67ea5446c9be699d63a7a503ce2e56c0 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
clc
G=15.7
a=0
b=15
c=30
H=3
Kp=4.977 // from table 13.9
Pp=Kp*G*H^2/2
printf('a)the passive force = %f kN/m\n',Pp)
// for part b
Kp=4.53
Pp=Kp*G*H^2/2
printf(' b)the passive force = %f kN/m\n',Pp)
// for part c
Kp=4.13
Pp=Kp*G*H^2/2
printf(' c)the passive force = %f kN/m\n',Pp)
//for part d
Kp=4.56
Pp=Kp*G*H^2/2
printf(' d)the passive force = %f kN/m\n',Pp)