SG(主程序)
NEJAIRSBC↙
Prog“Y” ↙
Z=J－T◢Z【2】=Z+S◢Z【3】=Z+L÷2◢Z【4】=Z【2】+M◢Z【5】=Z+L◢Prog“XY”
XY(子程序)
GH：Fixm: LbI0:｛KD｝:K≥Z【5】=>X=N+(K－Z【5】+T)cosC◢Y=E+(K－Z【5】+T)sinC◢≠=>K≤Z=>X=N－(J－K)cosB◢Y=E－(J－K)sinB◢≠=>K≥Z【3】=>V=Z【5】－K:E【30】=E+TsinC:N【30】=N+TcosC:O=C: ≠=>V=K－Z:N【30】=N－TcosB:E【30】=E－TsinB:O=B⊿V≤S=>X=V－V5÷40R2S2◢Y=V3÷6RS－V7÷336R3S3◢≠=>W=(V－S÷2)×180÷πR:X=RsimW+Q◢Y=R(1－cosW)+P◢△K≥Z【3】=>U=-X: ≠=>U=X△X=N【30】+Ucos－IYsinO◢Y=E【30】+UsinO+IYcosO◢△△D=0=>Prog“RD”: ≠=>Prog“F” △↙Goto0↙
注：XY程序中的；U=-X: ≠=>U中的“-”符号是计算器中的“（－）”键
RD(子程序)
G“N【O】”：H“E【O】”：X：Y：U=X－G：O=Y－H：U≤0=>A【40】=180+tan－1(O÷U) ◢≠=> O≥0=>A【40】= tan－1(O÷U) ◢≠=>A【40】=360+ tan－1(O÷U) ◢△△D【40】=√(O 2+U2) ◢
JD(子程序)
G:H:X:Y:O:P:U:V:W=(Y－H)÷(X－G):M=(P－V)÷(O－U):N=(WG－M O+P－H)÷(W－M) ◢E=W(N－G)+H◢
Y(子程序)
P=S2÷24R－S4÷2384R3:Q=S÷2－S3÷240R2:T=Q+(R+P)tan(A÷2) ◢M=πR(A－180S÷πR)÷180◢L=M+2S◢E【37】=(R+P)÷cos(A÷2)－R◢2T－L◢
D(子程序)
X:Y:F:X=X+DcosF ◢Y=Y+DsinF◢Prog“RD”↙
D－(子程序)
XY:(OP－UV):D=((V－P)(X－O)+(U－O)(P－X))÷√((V－P)2+(U－O)2) ◢
F(子程序)
K≤Z=>F=90+B◢≠=>K≤Z【2】=>F=B+90+90I(K－Z)2÷πRS◢≠=>K≤Z【4】=>F=B+90+90I(2×(K－Z【2】)+S)÷πR◢≠=>K≤Z【5】=>F=C+90－90I(Z【5】－K)2÷πRS◢≠=>F=90+C◢△△△△Prog“D”
程序说明：
SG程序符号输入：N、E交点坐标，J：交点桩号，A：偏角，I：左负右正（1），R:半径，S:缓和曲长度（Lh）,B: 本曲线方位角,C:下曲线方位角。计算出：T：切线长，M：圆曲线长，L：曲线全长，E【37】：外距，2T－2：切曲差，Z：ZH桩号，Z【2】：HY桩号，Z【3】：QZ桩号，Z【4】：YH桩号，Z【5】：HZ桩号。输入：G、H：为测站点坐标，K：为要求的桩号，X、Y：为要求桩号的中桩坐标，D：为边桩距（左负右正），X、Y：为要求桩号的边桩坐标，A【40】：为要放样的方位角，D【40】：为要放样的距离。