summaryrefslogtreecommitdiff
path: root/3782/CH10/EX10.6/Ex10_6.sce
blob: 2674fec83b5cb3ea9e8698615fa906b081502319 (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

//

//

r1=400
t1=30,d=200,

ct1=1500
k=1-(cos(t1*(%pi/180)))
T1G=r1*(k)

r2=(d-T1G)/k
printf("\n R2= %0.3f ",r2)

t1t2=(%pi*r1*t1)/180
t2t3=(%pi*r2*t1)/180
printf("\n length of arc T1T2= %0.3f ",t1t2)
printf("\n length of arc T2T3= %0.3f ",t2t3)

ct2=ct1+t1t2
ct3=ct2+t2t3

printf("\n chainage of point of reverse curvature = %0.3f ",ct2)
printf("\n chainage of finishing point T3= %0.3f ",ct3)