Meeting Point Program
5 Print “Meeting Point”
10 Input ” Y1″;A,”X1″,B,”Y2″,C,”X2″,D
20 Input ” Y3″;E,”X3″,F,”Y4″,G,”X4″,H
30 I=(C-A)/(D-B):J=(G-E)/(H-F)
40 P=A-IxB:Q=E-JxF:N=P-Q
50 X=N/(J-I):Y=Q+JxX
55 SET F3
60 Print “ELE=”;Y,”Dist=”;X:SET N
65 GOTO 10
70 END
Super Elevation Program
5 Print “Super-Elevation”
10 INPUT “PC-STN=”;A,”O.TR=”;B
20 INPUT “PT-STN=”;S,”C.SLOPE=”;D
30 INPUT “FULL SE =”;E,”PGL=”;G
40 INPUT “REQ STN=”;F,”PGL=”;G
42 H=A+B/4:I-B:J=E-D:K=J/B:Y=S-B/4
45 IF F>H THEN L=H-I:M=K/100xL+D/100
48 IF F>YTHEN L=B-(F-Y):M=K/100xL+D/100
50 IF FH THEN F=H+D/100
70 SET F3
80 N=G+Mx1.85
90 IF M=H THEN F=H
110 IF M=0.02 THEN R=G-1.85xM ELSE R=G-1.85×0.02
115 IF M<0.04 THEN T=R-2×0.04 ELSE T=R-Mx2 120 PRINT “O.P EDGE LEV=”;N:SET F3 140 PRINT “O.SH. EDGE LEV=”;P 150 PRINT “I.P EDGE LEV=”;R 160 PRINT “I.SH. EDGE LEV=”;T 170 PRINT “SLOPE=”;M GOTO 40 Co-ordinates 1 PRINT “<< Co-ordinates>>”
5 INPUT ” “STRAIGHT 10 & CURVE 110=”,Z:GOTO Z
10 PRINT “<< STRAIGHT LINE CO ORD>>”
20 INPUT ” RF BR =”,A
30 INPUT “RF E=”,B,”RF N=”,C
40 INPUT “RF CHAINAGE =”,D
50 INPUT “STATION CHAINAGE=”,K
60 H=K-D
70 E=SINAxH+B:N=COSAxH+C
80 PRINT “E=”;ROUND(E,-3)”N=”;ROUND(N,-3)
90 GOTO 50
100 END
110 PRINT “<>”
120 INPUT “RF BR B1=”,A,”RF BR B2=”,G
130 INPUT “RF E =”,B,”RF N=”,C
140 INPUT “RF RADIUS=”,R
150 INPUT “RF CHAN BC =”,D
160 INPUT ” STATION CHAN BC=”,K
170 F=(K-D)x90/(RIxR)
180 H=2xRxSINF
190 I-A+F:IF G<A;I-A-F
200 E=SIN IxH+B:N=COSIxH+C
210 PRINT “E=”;ROUND(E,-3)”N=”;ROUND (N,-3)
220 GOTO 160
230 END
DISTANCE BEARING 1 PRINT “<<< DIST BEARING>>>”
3 INPUT “DIST BR LINE NO 5 OR 110=”,Z:GOTO Z
5 PRINT “”
10 K=0″INPUT”EI=”,A,N1=”,B
20 INPUT “E2=”,C,”N2=”,D
30 E=C-A:F=D-B
40 G=SQR(ExI+FxF)
50 H=ACS(F/G):IF E>”
120 INPUT”E1=”,A,”N1=”,B
130 INPUT”E2=”,C”N2=”,D
140 E=C-A”F=D-B
150 G=SQR(ExE+FxF)
160 H=ACS(F/G):IF E<O;H=360-H
170 PRINT “DIST=”;ROUND(G,-3);”BR=”;ROUND(H,-5)
180 A=C:B=D
190 GOTO 130
200 END
SLOPE STAKE PROGRAM 10 PRINT “SLOPE STAKE”
12 INPUT “X1=”,A
14 INPUT “Y1=”,B
16 INPUT “X2=”,C
18 INPUT “Y2=”,D
20 INPUT “X3=”,E
22 INPUT “Y3=”,F
25 “SLOPE=”,S
30 G=(A-C)/(D-B)
40 H=A+(B-F)xG
50 I=E-H
60 J=I/(S-G)
70 K=J+F
80 L=A+(B-K)Xg
90 SET F3
100 PRINT “DIST=”;K
105 PRINT “ELE=”;L
110 GOTO 12
120 END
For fill section find slope without sign
For cut section find slope with -ve sign
25 PRINT “<< SLOPE STAKE>>”
32 INPUT “NGL-1=”A,”DIST=”,B
36 INPUT “NGL-2=”C,”DIST=”,D
40 INPUT “X3=”,E,”Y3=”,F
44 INPUT SIDE SLOPE=”,S
46 G=(A-C)/(D-B):H=A+(B-F)xG
50 I=E-H:J=I/(S-G):K=J+F
80 L=A+(B-K)Xg:SET -F3
100 PRINT “CATCH POINT ELE=”;L
102 PRINT “CATCH POINT DIST=”,K
105 GOTO 32
110 END
