卡西欧5800 曲线测量自动程序

卡西欧5800 曲线测量自动程序

卡西欧 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 (子程序) 4 3 3→DimZ:(ABл)÷180+C→Z[1]:C2÷(24B)-C ÷(2688B )→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(1Cos (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 W=交点号: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? 输入右角值