V＞1﹦>I=PoL(N[2]-X,E[2]-Y:J＜0﹦>J=J+360: ≠> J=J V=2﹦> Goto A “N[2]=”:N[2]▲ “E[2]=”:E[2]▲ V=1﹦> Goto 9 “FWJ=”：J->DMS▲ “JU-LI=”:I▲ V=2﹦> Goto 9
J＞S“HOU-SHI-DIAN-FWJ0” ﹦>F=J-S: ≠> F=J+360-S “JI-SUAN SHUI-PING-JIAO0=”:F->DMS▲ {I}:I“CE-JU-LI”:“CE-X=”: Rec(I,J)+X▲ “CE-Y=”:J+Y▲ Lbl 9 “NOW Z=”:Z▲ Z[53]=Z[52]﹦> Z=Z+Z[51] “NO.”：Z[53] ▲
“NEXT Z=”:{Z}：Z=Z[69]﹦> Goto B Lbl 2
利用交点参数数据库进行计算
当M输入11时，计算并显示坐标；输入12时，为距离方位角放样；输入13时，计算并显示施检表（6、7）中的各项数据；输入4时，计算并显示交点要素，并可与施工图纸中的直线、曲线及转角表的数据相核对，检验子程序X1的要素输入是否正确。
N[2]=为施检表（7）中的X设计坐标； E[2]=为施检表（7）中的Y设计坐标； FWJ=为施检表（7）中的计算方位角； JU-LI=为施检表（7）中的计算距离；
HOU-SHI-DIAN-FWJ0输入测站点至后视的方位角；
JI-SUAN SHUI-PING-JIAO0=为施检表（7）中的计算水平角； CE-JU-LI输入测站点至求算点的实测距离； CE-X=为施检表（7）中的X实测坐标； CE-Y=为施检表（7）中的Y实测坐标；
2 P-Q-X J-S （平曲线计算子程序,利用交点坐标计算） V=14﹦> Goto 1
“QI-DIAN”：XY：Z[1]=X：Z[2]=Y：“JD”：NE：P=1：Z[3]=N=N：Z[4]=E：K“JD-Z=”：K：“ZHONG-DIAN”：U“X=”：B“Y=”：Z[5]=U：Z[6]=B：R：H“S1=”：Z[19]=H：L“S2=”：Z[20]=L Lbl 1：Prog “YAO-SU” “JD0=”：A->DMS▲ “FWJ0=”：F->DMS▲ “T1=”：T▲ “T2=”：C▲ “L=”：D▲
“E=”：（R+H2/24R）/sin(tan-1((R+H 2/24R）/(T-(H/2-H3/240R2 )))-R▲ “ZH=”:O▲ “HY=”:O+H▲
“QZ=”:O+H+(AbsAR3.1415927/180-H/2-L/2)/2▲ “YH=”:O+D-L▲ “HZ=”:O+D▲ V≠14﹦> K=Z[15]
利用交点坐标进行计算曲线要素
（显示计算结果，与主程序联合使用或单独使用均可。）
QI-DIAN含义为起点，依次输入起点的坐标X、Y，交点的坐标N、E、桩号，终点的坐标X、Y，及该曲线的半径R、第一缓和段长度S1、第二缓和段长度。 显示含义： JD0为交点偏角；
FWJ0为该曲线的起点处方位角； T1为第一切线长度； T2为第二切线长度；
L为该缓和曲线总长度；E为曲中至交点的距离； ZH为直缓点桩号； HY为缓圆点桩号； QZ为曲中点桩号； YH为圆缓点桩号； HZ为缓直点桩号。
子程序名及内容 备 注
3 YAO-SU (平曲线要素计算子程序) J=0：PoL(Z[2P+1]-Z[2P-1],Z[2P+2]-Z[2P]:F=J F＜0 ﹦>F=F+360: ≠> F=F
PoL(Z[2P+3]-Z[2P+1],Z[2P+4]-Z[2P+2]:A=J A＜0 ﹦>A=A+360: ≠> A=A A=A+F
T=(H/2-H3/240R2 )+((R+L2 /24R)-(R+H 2 /24R)cosAbsA)/sinAbsA C=(L/2-L3/240R2 )+((R+H2 /24R)-(R+L2 /24R)cosAbsA)/sinAbsA D=AbsAR3.1415927/180-H/2-L/2+H+L:O=K-T:J=0 Z≤O+H﹦>G=Rec(T,F+180)+Z[2P+1]:M=J+Z[2P+2]
Z≥O+H﹦>Z≤(O+D)-L﹦>G=Rec(T-(H/2-H3/240R2 ),F+180)+Z[2P+1]: M=J+Z[2P+2]:I=Rec(R+H2 /24R,F+90(A/AbsA):G=I+G:N=J+M` Z≥(O+D)-L﹦>G=Rec(C,F+A)+Z[2P+1]:M=J+Z[2P+2] 进行平曲线要素计算
（不显示计算结果，必须与主程序联合使用，不能单独使用。） 4 ZB (平曲线的坐标计算子程序)
Z≤O﹦>C=O-Z：N=Rec(C,F+180)+G：E=J+M：W=F
Z≥O﹦>Z≤O+H﹦>C=Z-O：T=C-C5/40R2H2：K=C3/6RH-C7/336R3H3： I=PoL（T，K：J=J：N=Rec(I,F+J（A/AbsA)）+G：E=J+M： W=90C2/RH*3.1415927（A/AbsA)+F`
Z≥O+H﹦>Z≤(O+D)-L﹦>C=Z-（O+H）：W=F-90(A/AbsA)+(A/AbsA)（90H+180C）/R*3.1415927：N=Rec(R,W)+G：E=J=J+M：W=W90（A/AbsA) `
Z≥(O+D)-L﹦>Z≤O+D﹦>C=(O+D)-Z：T=C-C5/40R2L2：
K= C3/6RH-C7/336R3H3：I=PoL（T，K：J=J：N=Rec(I,F+180+A-J（A/AbsA)）+G：E=J+M： W=-90C2/RL*3.1415927（A/AbsA)+F+A`
Z≥O+D﹦>C=Z-（O+D）：N=Rec(C,F+A)+G：E=J+M：W=F+A 进行平曲线的坐标计算
（不显示计算结果，必须与主程序联合使用，不能单独使用。）
5 X1 （曲线要素数据库子程序）
Z[1]= ：Z[2]= : Z[3]== : Z[4]== : Z[5]= : Z[6]== : Z[7]== : Z[8]== : Z[9]== : Z[10]= : Z[11]== : Z[12]== ……………………
Z[n*2+1]= ：Z[n*2+2]= ：Z[n*2+3]= ：Z[n*2+4]=
Z≥QI DIAN（起点桩号）﹦>Z≤HZ-1（JD1 的HZ）﹦>P=1：K= ：R= ：H= ：L= ：Goto A Z≤HZ-2（JD2 的HZ）﹦>P=2：K= ：R= ：H= ：L= ：Goto A Z≤HZ-3（JD3 的HZ）﹦>P=3：K= ：R= ：H= ：L= ：Goto A ……………………
Z≤HZ-（n-1）（JDn-1 的HZ）﹦>P=n-1：K= ：R= ：H= ：L= ：Goto A
Z＞HZ-(n-1)（JDn-1 的HZ）﹦>Z≤ZHONG DIAN（终点桩号）﹦>P=n：K= ：R= ：H= ：L= ：
Lbl A 曲线要素数据库
Z[1]为路线起点的X坐标；Z[2]为路线起点的Y坐标； Z[3]为交点JD1的X坐标；Z[3]为交点JD1的Y坐标； Z[4]为交点JD2的X坐标；Z[5]为交点JD2的Y坐标； ……………………
Z[n*2+1]为交点JDn的X坐标；Z[n*2+2]为交点JDn的X坐标；Z[n*2+3]为路线终点的X坐标；Z[n*2+4]为路线终点的X坐标；
P为计算圆曲线的编码，分别以1、2、3……n顺序输入。K为交点里程桩号。R为圆曲线半径。H为第一缓和段长度。L为第二缓和段长度。
（不显示计算结果，必须与主程序联合使用，不能单独使用。） 6 ZHONG ZHUANG（中桩坐标计算之子程序） B≥A﹦> I=1:≠> I=-1
Z≤Q﹦> Prog “ZXZB”：Goto A Z≥C﹦> Prog “ZXZB”：Goto A S=0﹦> Prog “S0”：Goto A
Z≤Q+S﹦> Prog “ZH HY” :≠>C-S≥Z﹦> Prog “HY YH” :≠> Prog “YH HZ”
Lbl A 由计算器自动判断所输入桩号所属位置（如直缓点至缓圆点段、缓圆点至圆缓点、圆缓点至直缓点、缓和曲线长度等于零、直线段），并调用相应的子程序。
（不显示计算结果，必须与主程序联合使用，不能单独使用。） 子程序名及内容 备 注
7 ZH HY（直缓点 缓圆点处中桩坐标计算之子程序） L=Z-Q
N[1]=X+ cosA（L-L5÷（40R2S2））-IL3sinA÷（6RS） E[1]=Y+ sinA（L-L5÷（40R2S2））+IL3cosA÷（6RS）
W=A+28.6479IL2÷（RS） 计算ZH至HY间中桩坐标及其切线方位角
（不显示计算结果，必须与主程序联合使用，不能单独使用。） 8 HY YH（缓圆点 圆缓点坐标计算之子程序 L=Z-Q-S
Z[3]=180L÷（3.1415927R）+28.6479S÷R N[1]=X+ cosA（Rsinz[3]+S÷2-S3÷（240R2）） -IsinA(R(1-cosZ[3])+S2÷（24R）)
E[1]=Y+sinA（RsinZ[3]+S÷2-S3÷（240R2）） +IcosA(R(1-cosZ[3])+S2÷（24R）)
W=A+IZ[3] 计算HY至YH间中桩坐标及其切线方位 角
（不显示计算结果，必须与主程序联合 使用，不能单独使用。）
9 YH HZ（圆缓点 直缓点坐标计算之子程序） L=C-Z
N[1]=N- cosB（L-L5÷（40R2S2））-IL3sinB÷（6RS） E[1]=E- sinB（L-L5÷（40R2S2））+IL3cosB÷（6RS）
W=B-28.6479IL2÷（RS） 计算YH至HZ间中桩坐标及其切线方位 角
（不显示计算结果，必须与主程序联合 使用，不能单独使用。）
10 S0（缓和曲线长度等于零坐标计算之子程序） L=Z-Q: Z[3]=180L÷（3.1415927R） N[1]=X+ RcosAsinz[3] -IR sinA(1-cosZ[3]) E[1]=Y+ RsinAsinz[3] +IR cosA (1-cosZ[3])
W=A+IZ[3] 计算S=0的圆曲线中桩坐标及其切线方位角
（不显示计算结果，必须与主程序联合使用，不能单独使用。） 11 ZXZB（直线段坐标计算之子程序）
Z≤Q﹦> L=Q-Z:Z[3]=A+180:F=X:J=Y:W=A:≠>L=Z-C :Z[3]=B:F=N:J=E:W=B
N[1]=F+LcosZ[3]:E[1]=J+LsinZ[3] 计算直线段中桩坐标及其切线方位角 （不显示计算结果，必须与主程序联合 使用，不能单独使用。）
12 JK--B[2]（加宽计算之子程序） Z≤Q﹦> Goto 1 Z≥C﹦> Goto 1 S=0﹦> Goto 1
Z≤Q+S﹦> Goto C:≠> Z ≥C-S﹦> Goto C :≠> Goto D
Lbl C: Z≤Q+S﹦> L=Z-Q:≠>L=C-Z T=L+S:P≥0﹦> Goto 2:≠> Goto 3 Lbl 3:B[2]=(4T3-3T4)J+K:Goto E Lbl 2:B[2]=K+TJ:Goto E Lbl D:B[2]=K+J:Goto E Lbl 1:B[2]=K
Lbl E 计算内侧路基宽度
（不显示计算结果，必须与主程序联 合使用，不能单独使用。）
13 JU-LI FWJ(任意两点间距离、方位角计算之子程序) L=√(P2+F2):P≥0﹦> Goto 1:≠> Goto 2
Lbl 1:F≥0﹦> W=tan-1(F÷P）:≠> W=360-tan-1(-F÷P） Goto 3 Lbl 2
F≥0﹦> W=180-tan-1(-F÷P）:≠> W=180+tan-1(F÷P） Lbl 3 计算任意两点间的距离和方位角
（不显示计算结果，必须与主程序联 合使用，不能单独使用。） 子程序名及内容 备 注
14 CHAO GAO-1（超高计算之子程序） Z[7]=K:P=2:W=2: Prog “JK--B[2]”
Z≤Q﹦> Goto5:≠>Z≥C﹦> Goto5:≠>S=0：Goto5 Z
Lbl 7:I=B+(H-B)(3-2L÷S）L2÷S2 Lbl 8:W≤0﹦> Goto6
I≤-B﹦> Z[5]=-BK+IK:Z[2]=-KB:≠>Z[5]=2IK:Z[2]=IK Goto 3
Lbl 2:W≤0﹦> Goto9
I=H:Z[5]=2HK:Z[2]=HK:Goto 3 Lbl 5:I=B:W≤0﹦> Goto4 Z[5]=0:Z[2]=-BK
Lbl 3: I≤-B﹦> G=-B:≠>G=I Z[6]=-G(B[2]-K):Goto C Lbl 6:Z[5]=IK:Z[2]=0
I≤-B﹦> Z[6]=BB[2]:≠>Z[6]=-IB[2] Goto C
Lbl 4:Z[5]=BK:Z[2]=0:Z[6]=BK:Goto C Lbl 9:I=H:Z[5]=KH:Z[2]=0:Z[6]=-H(K+J)