Casiofx-5800P计算器道路测量单交点基本型曲线坐标正反算程序.docVIP

坐标正反算程序(5800) 正算主程序：ZS Prog“SJ” Lbl 0:?Z:?S:?O:Abs(S)→S If ZA:Then Rec(Q-Z,F+180):N+I→X:E+J→Y:F→W:Goto 2:IfEnd 第一直线 If ZB:Then Z-A→L:F+90GL2÷(πRU)→W:U→H:Z[5]→M:Z[6]→P:F→T:1→Z[1]:Goto 1:IfEnd (LS1) If ZC:Then Z-B→L:F+G((90U+180L)÷π÷R)→W Rec(R,W-90G):Z[9]+I→X:Z[10]+J→Y Goto 2:IfEnd 圆曲线 If ZD:Then D-Z→L:F+G(K-90L2÷(πRV))→W:V→H:Z[7]→M:Z[8]→P:F+GK+180→T:-1→Z[1]:Goto 1:IfEnd (LS2) If ZD:Then F+GK→W:Rec(Z-D+Z[4],W):N+I→X:E+J→Y:Goto 2:IfEnd 第二直线 Lbl 1:L-L^(5)÷(40R2H2)+L^(9)÷(3456R^(4)H^(4))→X L^(3)÷(6RH)-L^(7)÷(336R^(3)H^(3))+L^(11)÷(42240R^(5)H^(5))→Y Rec(sqrt(X2+Y2),T+Z[1]Gtan-1(Y÷X)):M+I→X:P+J→Y:Goto 2 Lbl 2:Rec(S,W+O):X+I→X:Y+J→Y “X=”:Locate3,1,X:”Y=”:Locate 3,2,Y:”FWJ=”:W?DMS◢ Goto 0 反算主程序：FS ProgSJ 90U÷π÷R→H 第一回旋线所对应圆心角β01 90V÷π÷R→T 第二回旋线所对应圆心角β02 Rec((Z[3]+Z[4]÷cosK)÷tanK,F+90G):Z[5]+I→Z[11]:Z[6]+J→Z[12] ZH、HZ点垂线交点坐标 F-90G→Z[13] ZH点与ZH、HZ点垂线交点连线方位角 Z[13]+GH→Z[14] HY点与圆心连线方位角 Z[13]+G(K-T)→Z[15] YH点与圆心连线方位角 Z[15]+GT→Z[16] HZ点与ZH、HZ点垂线交点连线方位角 Lbl 0:?X:?Y Pol(X-Z[11],Y-Z[12]) If GIsin(J-Z[13])0:Then Pol(N-X,E-Y):Rec(I,F-J) Q-I→Z: J→S:Cls:“Z=”:Locate3,1,Z:”S=”:Locate 3,2,S◢ Goto 0:IfEnd 第一直线 If GIsin(J-Z[16])0:Then Pol(X-N,Y-E):Rec(I,J-F-GK) I-Z[4]+D→Z: J→S:Cls:“Z=”:Locate3,1,Z:”S=”:Locate 3,2,S◢ Goto 0:IfEnd 第二直线 If GIsin(J-Z[13])0:Then Pol(X-Z[9],Y-Z[10]):J0?J+360→J If GIsin(J-Z[14])0:Then Z[13]→P:U→H:A→M:1→T:Z[5]→Z[17]:Z[6]→Z[18]:F→Z[19]:Goto 1:IfEnd LS1 If GIsin(J-Z[15])0:Then Abs(J-Z[14])→Z[20]:Z[20]360?Z[20]-360→Z[20] B+πRZ[20]÷180→Z: G(R-I)→S:Cls:“Z=”:Locate3,1,Z:”S=”:Locate 3,2,S◢ Goto 0:IfEnd 圆曲线 If GIsin(J-Z[15])0:Then Z[16]→P:V→H:D→M:-1→T:Z[7]→Z[17]:Z[8]→Z[18]:F+GK+180→Z[19]:Goto 1:IfEnd LS2 Lbl 1:Pol(X-Z[11],Y-Z[12]): Abs(J-P)→J:J180?J-360→J:JπR÷180→L L=以R为半径,以所求点－(Z[11],Z[12])连线与P的角度差计算得的弧长，作为近似桩号。 Lbl 2:L-L5÷(40R2H2)+L9÷(3456R4H4)-L13÷(R6H6)→O L3÷(6RH)-L7÷(336R3H3)+L11÷(42240R5H5)-L15÷(R7H7)→P Rec(sqrt(O2+P