Meeting Point Program

Meeting Point Program5 Print “Meeting Point”10 Input ” Y1″;A,”X1″,B,”Y2″,C,”X2″,D20 Input ” Y3″;E,”X3″,F,”Y4″,G,”X4″,H30 I=(C-A)/(D-B):J=(G-E)/(H-F)40 P=A-IxB:Q=E-JxF:N=P-Q50 X=N/(J-I):Y=Q+JxX55 SET F360 Print “ELE=”;Y,”Dist=”;X:SET N65 GOTO 1070 END Super Elevation Program 5 Print “Super-Elevation”10 INPUT “PC-STN=”;A,”O.TR=”;B20 INPUT “PT-STN=”;S,”C.SLOPE=”;D30 INPUT “FULL SE =”;E,”PGL=”;G40 INPUT “REQ STN=”;F,”PGL=”;G42 H=A+B/4:I-B:J=E-D:K=J/B:Y=S-B/445 IF F>H THEN L=H-I:M=K/100xL+D/10048 IF F>YTHEN L=B-(F-Y):M=K/100xL+D/10050 IF FH THEN F=H+D/10070 SET F380 N=G+Mx1.8590 […]