→◢ ^ π =>=>▼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= ------------------------------
→◢ ^ π =>=>▼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= ------------------------------