summaryrefslogtreecommitdiff
path: root/3782/CH10/EX10.13/Ex10_13.sce
blob: 2a7839513ecabd6632d0e306de1e49616dba3875 (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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67

//

//

cb=400
rlb=250.5
pi=30
g1=-1.0
g2=0.5
g=0.1
ga=20
//a
vc=(g1-g2)/g
vc=-vc*ga
printf("\n length of vertical curve %0.3f ",vc)

//b,c
ca=cb-(0.5*vc)
cc=ca+vc

//d,e,f,g

rla=rlb+((0.5*vc)/100)

rlc=rlb+((0.5*0.5*vc)/100)

rle=0.5*(rla+rlc)

rlf=0.5*(rle+rlb)

printf("\n RL of A= %0.3f ",rla)
printf("\n RL of C= %0.3f ",rlc)
printf("\n RL of E= %0.3f ",rle)
printf("\n RL of F= %0.3f ",rlf)

//h
fp=%pi/100

rl1=rla-fp
rl2=rl1-fp
rl3=rl2-fp
rl4=rl3-fp
printf("\n RL on the grade on the side AB ')
printf("\n rl1,rl2,rl3,rl4")

//i

rp=(0.5*%pi)/100

rls4=rlb+rp
rls3=rls4+rp
rls2=rls3+rp
rls1=rls2+rp

printf("\n RL on grade on side BC')
printf("\n rls4,rls3,rls2,rls1")

//j

y1=((g1-g2)*(%pi*%pi))/(cb*0.5*vc)
y2=((g1-g2)*(2*%pi*2*%pi))/(cb*0.5*vc)
y3=((g1-g2)*(3*%pi*3*%pi))/(cb*0.5*vc)
y4=((g1-g2)*(4*%pi*4*%pi))/(cb*0.5*vc)

printf("\n tangent correction from expression ')
printf("\n y1,y2,y3,y4")