summaryrefslogtreecommitdiff
path: root/3886/CH19/EX19.6/19_6.sce
blob: 69353bff5fe5251dcb19ac0822b16dc8381d1a25 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
//Super elevation
G=1.68  //m
r=800  //m
//(1)
v=16.667  //m/sec
alpha=atand((v^2)/(9.81*800))  //degree
//Super elevation
e=1000*G*tand(alpha)  //mm
//(2) 
v2=22.222  //m/sec
F2=1000*(((0.99937*22.222^2)/(9.81*800))-0.03537)  //kN
printf("\ne=%.3f mm\nF=%.3f kN",e,F2)