1. 主程序(NTSSD--CQW)Lbl 1：5→DimZ：（增加Z型5個(gè)變量）600→S：（輸入近似里程）Prog“SUB0”↙(定義所在線元數(shù)據(jù)庫)1÷P→C: (P-R)÷(2HPR) →D:180÷∏→E:“X=”？X：“Y=”？Y：X→I：Y→J：(輸入實(shí)測(cè)XY標(biāo),) “H=”？ →Z[1]: (輸入實(shí)測(cè)高程)“R=”？ →Z[2]: (輸入斷面理論半徑)Prog“SUB2”：(調(diào)用反算子程序,由反算兩次調(diào)用正算子程序)O+W→S：“K=”：S◢“BIANJULI=”：Z◢(得到樁號(hào)及離中心樁距離)Abs(Z)→B： (將變量值另存,利于后面計(jì)算)617.42→C： (定義此段豎曲線變坡點(diǎn)樁號(hào)，也可？C：輸入)71.1→D： (定義此段豎曲線此段豎曲線變坡點(diǎn)高程)1→I： (定義此段豎曲線后坡點(diǎn)坡度)-0.6→J： (定義此段豎曲線前坡點(diǎn)坡度)
RAR
