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
|
//ch-10 page 379,380 pb-2
//
//
ac=45.5,cb=75.5,
//a
t=cb-ac
l1=1719
l=2760
//b
r=l1/3
printf("\n radius of curve %0.3f ",r)
//c
tl=r*tan((t/2)*(%pi/180))
printf("\n Tangent length = %0.3f ",tl)
//d
loc=(%pi*r*t/180)
printf("\n Length of curve = %0.3f ",loc)
//e
llc=2*r*sin((t/2)*(%pi/180))
printf("\n Length long of cord= %0.3f ",llc)
//f,g
coc=l-tl
ct=coc+loc
printf("\n chainage of commencement = %0.3f ",coc)
printf("\n chainage of tangency = %0.3f ",ct)
//h
half=0.5*llc
printf("\n length of each half = %0.3f ",half)
ini=30
k=sqrt(r*r-(half*half))
o=r-k
k1=r-o
O30=(sqrt(r*r-(ini*ini)))-k1
O60=(sqrt(r*r-(2*ini*2*ini)))-k1
O90=(sqrt(r*r-(3*ini*3*ini)))-k1
O120=(sqrt(r*r-(4*ini*4*ini)))-k1
Oh=(sqrt(r*r-(half*half)))-k1
printf("\n O30= %0.3f O60= %0.3f O90= %0.3f O120= %0.3f O148.3= %0.3f ",O30,O60,O90,O120,Oh)
|
