S1（數(shù)據(jù)庫）子程序
If K≤終點樁號：Then起點樁號→Q:終點樁號→Z：起點X坐標→A:起點Y坐標→B：
起點切線方位角→F：起點曲率1/R1→D:終點曲率1/R2→R: （如是直線均輸0）
Goto 0:If End換行
下一個線元要素輸入同上
說明：
曲率 “1/R1”? D: “1/R2”?R 為起終點半徑的倒數(shù). 左向為負右向為正.
若有多條路線數(shù)據(jù)庫建如S2, S3。。。。。S5在使用時把主程序S1根據(jù)計算需要改為S2。。。。。S5要計算線路即可。
K為待求點里程, W為夾角，L為左邊距，I為右邊距。
