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