卡西欧5800曲线测量自动程序 (2).doc

卡西欧5800曲线测量自动程序CIRLAY (主运算程序) 1→W：＂LOAD＂?W :IF W=-1:THEN＂ZJ＂?A: ＂R＂?B: ＂L0＂?C: ＂ZH KM＂?D: ＂JDX＂?E: ＂JDY＂?F: ＂A0＂?G: ＂1 R,-1 L＂?H:IFEND↙ ＂OPP NAME＂?Q: IF Q=-1:THEN ＂X0＂?U: ＂Y0＂?V:ELSE Prog＂CON DAT＂: IFEND↙ Lb1 1:＂DK+M＂?Z:IF W≠-1:THEN Prog＂CIR DAT＂: IFEND↙ Z-D→M: Prog＂CENTER＂↙ “X=”：X◢ “Y=”：Y◢ “LR”?O:IF O=2:THEN ＂LD＂?L:＂RA＂?R:“XW=”:X+LCos(P+R)→X◢ “YW=”:Y+LSin(P+R)→Y◢ IFEND↙ “QH”?K:IF K=3:THEN“QH-LD”?S:＂RA＂?T:“XQ=”:X+SCos(P+R+T+180)→X◢ “YQ=”:Y+SSin(P+R+T+180)→Y◢ IFEND↙ “FW=”:P▼DMS◢ Pol(X-U,Y-V) ↙ IF J＜O:THEN J+360→J: IFEND↙ ＂J=＂:J▼DMS◢ ＂L=＂:I◢ Goto 1 CENTER (子程序) 3→DimZ:(ABл)÷180+C→Z[1]:C2÷(24B)-C4÷(2688B3)→Z[2]:(B+Z[2])Tan(A÷2)+C÷2-C3÷(240B2)→Z[3]:-1→N:IF M＞Z[1]-C:THEN Z[1]-M→M: 1→N:IFEND↙ IF M≤0:THEN M→X:0→Y:0→P: Goto 1: IFEND↙ IF M≤C:THEN M-M5÷(40B2C2)→X :M3÷(6BC)-M7÷(336×B3×C3)→Y:90M2÷(ЛBC)→P: Goto 1:IFEND↙ IF M≤Z[1]-C:THEN 180(M-C)÷(ЛB)+90C÷(ЛB)→P:BSin(P)+C÷2-C3÷(240B2)→X :B(1- Cos (P))+Z[2]→Y: IFEND↙ Lb1 1:IF N=1:THEN A-P→P:X→I:Y→J:Z[3]+(Z[3]-I) Cos (A)-J Sin( A)→X:(Z[3]-I) Sin (A)+J Cos(A)→Y: IFEND↙ X→I:HY→J:E+Z[3]Cos(180+G)+ICos(G)-JSin(G)→X:F+Z[3]Sin(180+G)+ISin(G)+JCos(G)→Y:G+HP→P↙ CIR DAT(子程序 曲线要素库) IF Z≦圆直点里程:THEN 转向角→A:半径→B:缓和曲线长→C:直缓点里程→D:交点X坐标→E:交点Y坐标→F:切线方位角→G:左或右偏(1,-1)→H:GOTO1:IFENG↙ (一直将曲线要素数据输入完) Lb1 1 CON DAT (子程序 导线控制点库) IF Q=编号(自定):THEN U=导线控制点X坐标:V=导线控制点Y坐标⊿ (一直将导线控制点数据输入完) 主程序运用(CIRLAY) LOAD? 当为交点号时，调用数据库；当为-1时，手动输入。 OPP NAME? 输入控制点编号；当为-1时，手动输入测站点坐标。 DK+M? 输入待测点里程 LR? 当为2时，计算外移值。 LD? 输入外移值平距，距离用正负判断左右（左为-，右为+） RA? 输入外移值与线路中心夹角（右角值） QH? 当为3时，计算外移值。 QH-LD? 输入外移值平距，距离用正负判断左右（左为-，右为+） RA? 输入右角值