→◢ ^ π =>=>▼DMS ▼DMS
1、QXJS-000(主程序) ：
①Cls:Lbl4:“1.SZ=>NE”:“2.NE=>SZ”:?Q:?S:Prog“QXJS-SJK3” ②Lbl 1:?Z:Prog“QXJS-ZS ”：“N=”:N◢
③“E=”：E ◢
④“F=”:F▼DMS ◢
⑤Prog “GC ”:Goto 4
⑥L bl 2:“N=”:?B:“E=”:?C:B→N:C→E:Prog“QXJS-HS ”“:S=”:S◢
⑦“Z=”:Z◢
⑧Goto 4
2、QXJS-HS(子程序①)
①Lbl 1:0→Z:1→Q:Prog“QXJS-SJK3”:Prog“QXJS-ZS ”
②Pol(N-B+10^（-46），E-C+10^ (-46):Isin（F-90-J ）→W:S+W→S ③Abs （W ）>0.0001=>Goto 1
④Lbl 2：0→Z ：Prog “QXJS-ZS ”:(C-E)/sin（F+90）→Z
3、QXJS-SJK3(子程序②)
IF S
If S
If S
If S
4 、QXJS-ZS(子程序③)
0.5（1/R-1/P）/L→D:S-O→X
U+∫(cos（A+(X/P+DX²)*180/π，0，X ）→N
V+∫(sin（A+(X/P+DX²)*180/π,0,X ）→E
A+(X/P+DX²)*180/π→F
N+Zcos（F+90）→N:E+Zsin（F+90）→E
5、SQXK3(子程序④)
10250→M:10^(45) →R:0→T:1394.08→Y :(5.9/8850) →G:(5.9/8850) →K
6、GC(子程序⑤)
Lbl 3:?S:Prog“SQXK3”
If S
If S
Lbl 2 :?Z: “H=”:Y+Q→H ◢
运行主程序：
QXJS-000
1. SZ =>NE
2. NE =>SZ
Q: ----------------------------------选择1或者2 选1时：
S?:------------------------------------
Z?------------------------------------
N,E-----------------------------------显示计算XY F=------------------------------------显示计算方位角
选2时：
S?:------------------------------------
N= B? -----------------------------
E= C?-----------------------------
S= -----------------------------
Z= ------------------------------