子程序 數(shù)據(jù)庫 SJK1IF K<本段曲線終點(diǎn)里程 AND K≥上段曲線終點(diǎn)里程 ：THEN 本段終點(diǎn)里程→Z[1] : 上段曲線終點(diǎn)里程→Z[2] ：1→O （注：左偏曲線輸入-1→O,右偏曲線輸入1→O）: 半徑→R : 曲線偏角→A:第一緩和曲線→Z[6] : 第二緩和曲線→Z[7] : 交點(diǎn) X→B :交點(diǎn) Y→C : 小里程向交點(diǎn)方位角→E : 交點(diǎn)向大里程方位角→F : Prog”XLZBJSCX”:Return: IFEND↙IF…………Prog”XLZBJSCX”:Return:IFEND（曲線段分段輸入）↙補(bǔ)充直線段輸入如下(單獨(dú)直線段）IF K<本段直線終點(diǎn)里程 AND K≥本段直線起點(diǎn)里程:THEN 本段直線終點(diǎn)里程→Z[3]:終點(diǎn)X→Z[16]:終點(diǎn)Y→Z[17]:方位角→E: Z[16]+ (K- Z[3])*COS E→Z[18]:Z[17]+ (K- Z[3])*SIN E→Z[19] : Return:IFEND
RAR
