CASIO5800线路中边桩任意里程坐标正反算程....doc

CASIO——5800程序 主程序 YX—000?(右线) Lbl 4：“1.SZ=NE”：“2.NE=SZ”：? Q↙ Lbl 0： Q=1= Goto１：Q=2= Goto2：↙ Lbl 1:? S:? Z:Prog“QXJS—SUB0”：“N=”: N◢ “E=”: E◢ “F=”:F?DMS◢ Goto4↙ Lbl 2：? S：Prog“QXJS—SUB０”: “N=”:？B :”E=”:?C:B→N:C→E: Prog“QXJS—SUB2”:”S=”:S◢ “Z=”:Z◢ Goto4↙ ZX—000?(左线) Lbl 4：“1.SZ=NE”：“2.NE=SZ”：? Q↙ Lbl 0： Q=1= Goto１：Q=2= Goto2：↙ Lbl 1:? S:? Z:Prog“QXJS—SUB3”：“N=”: N◢ “E=”: E◢ “F=”:F?DMS◢ Goto4↙ Lbl 2：? S：Prog“QXJS—SUB3”: “N=”:？B :”E=”:?C:B→N:C→E: Prog“QXJS—SUB4”:”S=”:S◢ “Z=”:Z◢ Goto4↙ 正算子程序 QXJS—SUB1 0.5（1÷R-1÷P）÷L→D:S-O→XU+∫(cos(A+(X÷P+DX2)×180÷π,0,X)→N↙ V+∫(sin(A+(X÷P+DX2)×180÷π,0,X)→E↙ A+(X÷P+ DX2)×180÷π→F↙ N+Zcos(F+90) →N:E+Zsin(F+90) →E↙ 反算子程序 QXJS—SUB2（右线） Lbl 1:0→Z：1→Q：Prog“QXJSSUB0” ↙ Pol(N-B+10^(-46), E-C+10^(-46)): Isin(F-90-J) →W：S+W→S↙ Abs(W)0.0001= Goto１↙ Lbl 2: 0→Z：Prog“QXJSSUB1”：(C-E) ÷sin(F+90) →Z↙ QXJS—SUB4（左线） Lbl 1:0→Z：1→Q：Prog“QXJSSUB3” ↙ Pol(N-B+10^(-46), E-C+10^(-46)): Ιsin(F-90-J) →W：S+W→S↙ Abs(W)0.0001= Goto１↙ Lbl 2: 0→Z：Prog“QXJSSUB1”：(C-E) ÷sin(F+90) →Z↙ 数据库 一、QXJS—SUB0（右线数据库） If S 124140.538：Then2640 42’ 42.62” →A：122020.554→O：3977704.149→U：525024.7762→V:10∧(45) →P：10∧(45) →R：2119.984→L：Goto 8：If End：Goto 2↙ Lbl 2：If S 124360.538：Then2640 42’ 42.62” →A：124140.538→O：3977508.761→U：522913.8154→V:10∧(45) →P：-750 →R：220→L：Goto 8：If End：Goto 3↙ Lbl 3：If S 124975.327：Then2560 18’ 30.45” →A：124360.538→O：3977477.835→U：522696.2123→V:-750 →P：-750 →R：614.789→L：Goto 8：If End：Goto 4↙ Lbl 4：If S 125195.327：Then2090 20’ 31.34” →A：124975.327→O：3977116.664→U：522219.9509→V:-750 →P：10∧(45) →R：220→L：Goto 8：If End：Goto 5↙ Lbl 5：If S 125460.766：Then2000 56’ 19.17” →A：125195.327→O：3976915.471→U：522131.469→V: 10∧(45)→P：10∧(45) →R：265.439→L：Goto 8：If End：Goto 6↙ Lbl 6：If S 125760.766：Then2000 56’ 19.17” →A：125460.766→O：3976667.561→U：522036.6095→V: 10∧(45)→P：700 →R：300→L：Goto 8：If End：Goto 7↙ Lbl 7：If S 126291.499：Then2130 12’ 58.77” →A：125760.766→O：3976396.289→U：521909.9423→V: 700→P：700 →R：300→L：Goto 8：If End：Goto 0↙ Lbl 8：Prog”QXJS—SUB1” ↙ 二、QXJS—SUB3 （左线数据库） If S 1