学习资料 安全文明施工 5800线元法.docVIP

5800计算程序

Fx-5800计算器程序

QXJS-000主程序

Fix3:Deg:Lbl4:“1.SZ=XY2.XY=SZ”?Q:IfQ=1:ThenGoto1:ElseIfQ=2:ThenGoto2:IfEnd：IfEnd↙

Lbl1:”LICHENG=”?S:Prog“QXJSSUB0”↙

”OUTJL=”?Z:“OUTJD=”?G:Prog“QXJSSUB1”:“XZB=”:N◢

“YZB=”:E◢

“QXFWJ=”:F▲DMS◢

Goto4↙

Lbl2:“XZB=”?B:“YZB=”?C:B→N:C→E:Prog“QXJSSUB2”:“LICHENG=”:S◢

“OUTJL=”:Z◢

Goto4↙

说明：

Q:代表正反算，其中1为正算，2为反算；S:代表里程；Z：代表偏移距离；G：代表偏移角度（以线路前进方向为X方向，顺时针转为正；N：X坐标；E：Y坐标；F：切线方位角；

QXJSSUB0(数据库)

Goto1↙

Lbl1

IFS157687.528:THEN2884169.2517→U:471475.6573→V:157547.528→O:98°32′43.08″→A:140→