5800计算程序本文上传自.doc

第 PAGE 2 页 共 NUMPAGES 3 页 5800计算程序 Fx-5800计算器程序QXJS-000??????????????主程序Fix 3:Deg:Lbl 4:“1.SZ=XY”:“2.XY=SZ”:“1,2=”? →Q:”LICHENG=”? →S:Prog“QXJSSUB0”↙Lbl 0:IfQ=1:Then Goto1:IfEnd:IfQ=2:ThenGoto2:IfEnd↙Lbl 1:”OUT JL=”? →Z: “OUT JD=”?G:Prog“QXJSSUB1”:“XZB=”:N→N◢ “YZB=”:E→E◢ “QXFWJ=”:F→F:F▲DMS◢ Goto4↙Lbl 2: “XZB=”? →B: “YZB=”? →C:B→N: C→E:Prog“QXJSSUB2”: “LICHENG=”:S →S◢ “OUT JL=”:Z →Z◢ Goto4↙ 说明： Q:代表正反算，其中1为正算，2为反算； S:代表里程； Z：代表偏移距离； G：代表偏移角度（以线路前进方向为X方向，顺时针转为正； N：X坐标； E：Y坐标； F：切线方位角； QXJSSUB0? (数据库)Goto1↙Lbl 1IF S157687.528:THEN 2884169.2517→U:471475.6573→V:157547.528→O:98°32′43.08″→A:140→L:10^45→P:10000→R: Return:IfEnd↙ IF S157993.605:THEN 2884148.1260→U:471614.0539→V:157687.528→O:98°56′46.93″→A:306.0771→L:10000→P:10000→R: Return:IfEnd↙ IF S158133.605:THEN 2884095.9086→U:471915.6318→V:157993.605→O:100°42′0.22″→A:140→L:10000→P:10^45→R: Return:IfEnd↙ IF S163641.879:THEN 2884069.2735→U:472053.0744→V:158133.605→O:101°6′4.07″→A:5508.274→L:10^45→P:10^45→R: Return:IfEnd↙ IF S163781.879:THEN 2883008.7030→U:477458.2815→V:163641.879→O:101°6′4.08″→A:140→L:10^45→P:10000→R: Return:IfEnd↙ IF S164195.661:THEN 2882981.4268→U:477595.5984→V:163781.879→O:101°30′7.93″→A:413.7833→L:10000→P:10000→R: Return:IfEnd↙ IF S164335.661:THEN 2882890.5519→U:477999.2492→V:164195.6623→O:103°52′22.82″→A:140→L:10000→P:10^45→R: Return:IfEnd↙ IF S171831.142:THEN 2882856.3502→U:478135.0069→V:164335.6623→O:104°16′26.67″→A:7495.481→L:10^45→P:10^45→R: Return:IfEnd↙ IF S171961.1406:THEN 2881008.2613→U:485399.0830→V:171831.1404→O:104°16′26.65″→A:130→L:-10^45→P:-11000→R: Return:IfEnd↙ IF S172204.6898:THEN 2880976.4567→U:485525.1322→V:171961.1406→O:103°56′7.81″→A:243.5492→L:-11000→P:-11000→R: Return:IfEnd↙ IF S172334.6898:THEN 2880920.4244→U:485762.1431→V:172204.6898→O:102°40′0.93″→A:130→L:-11000→P:-10^45→R: Return:IfEnd↙ 说明：S：里程；157547.528→O为线元终点里程；2884169.2517→U为线元起点X坐标；471475.6573→V为线元起点Y坐标；98°32′43.08″→A线元起点切线方位角；0^45→P线元起点半径（左转为负右转为正）；10000→R线元终点半径（左转为负右转为正） QXJSSUB1???????????? 正算子程序0.5（1÷R