W0orC0The
GCcosV→RHCsi
V→U0→Z9Goto8IfE
d③W÷AbsW→WIfABThe
0→BIfE
d④IfB0The
A1Cr→CAsi
C→IA1cosC→JA→Z9Goto7IfE
d⑤AB→SBFK÷AbsS→RAR→US÷AbsS→S05R2÷U→DRSC→T⑥
05T2÷U→EU÷T→Z9T101E2E22÷216E6÷9360R101D2D22÷216D6÷9360→I⑦31TE1E2÷14E22÷440E6÷25200RD1D2÷14D22÷440D6÷25200→JPol1
AbsIAbsJRecIAbsJDrAbsEDr→C⑧Lbl7GIcosVWJsi
V→RHIsi
VWJcosV→UVWC→Z⑨Lbl8IfLFThe
RRecLFZ→RUJ→U0→Z9IfE
d十三、Z程序：交点法计算中桩坐标①IfZ20The
Prog“Y”Retur
IfE
d②B2÷A÷24→P01B5P÷A→QQAPta
05AbsW→TKT→CCB→DDπAAbsW÷180→FFB→E③W÷AbsW→S0→Z9IfL≤CThe
LK→OV→ZGoto2IfE
d④IfL≥FThe
LFT→OVW→ZGoto2IfE
d⑤IfL≥EThe
FL→OProg”X”VW→OOSR→ZGTIcosOSJsi
O→RHTIsi
OSjcosO→UGoto3IfE
d⑥IfLDThe
LD05B÷Ar→OQAsi
O→IPA1cosO→JA→Z9VSO→ZGoto4IfE
d⑦LC→OProg“X”VSR→Z⑧Lbl4GITcosVSjsi
V→RHITsi
VSjcosV→UGoto3⑨Lbl2GOcosZ→RHOsi
Z→U
f⑩Lbl3十四、AU程序注：L0输测段桩号近似值，”AU”子程序根据桩号近似值自动调用曲线要素（包括线元法和交点法要素），Z20则调用线元法数据，否则为交点法数据（L00默认为原曲线要素L01手工输入曲线要素）①Cls”L00Co
ti””L01I
put”IfZ20The
Locate132”XY”ElseLocate132”JD”IfE
d②Z2→S”0－XYE－JD”SS→Z2”L0”LIfL0The
ReTur
IfE
d③IfL1The
Prog“I”ReTur
IfE
d④IfZ20The
Prog“ZA”ElseProg“JD”IfE
d⑤MatF11→KMatF12→GMatF13→HMatF14→VMatF15→WMatF16→AMatF17→BIfZ20The
MatF18→FElseMatF18→Z11MatF19→Z12IfE
d十五、JD程序：交点法矩阵每一行数据依次为交点桩号，交点X坐标交点Y坐标起始边方位角，偏角，圆曲线半径缓和曲线长度计算单元起点，计算单元终点①IfL＜24900The
“L＜mi
X”L▲StopIfE
d②IfL＞3080127The
“L＞maxX”L▲StopIfE
d③IFL≤26227359The
256762361422253775042709496°24°596°70°50°106°7703000072490026227359→MatFRetur
IfE
d④IFL≤27318276The
27026458142873016502918028295°34°49°15°31°185°15001800032622735927318276→MatFRetur
IfE
d⑤IFL≤28522182The
28148818143069516501810234280°03°305°41°45°021°7802065322731827628522182→MatFRetur
IfE
d⑥IFL≤29246112The
28895742143666501341321°48°326°22°33°088°1250215742853835529246112→MatFRetur
IfE
d⑦IFL≤3080r