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+tan1(O÷U) ◢≠=> O≥0=>A【40】= tan1(O÷U) ◢≠=>A【40】=360+ tan1(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】:为要放样的距离。