线路坐标正算及反算程序.doc

文档介绍：线路坐标正算及反算程序(CASIOfx--5800P)
:
   (TYQXJS)
"K0=" ?O:"X0="?U:"Y0="?V:"FWJ="?G:"LS="?H:"+1,0,-1="?Q:If 0=Q:Then 1e45→P:1e45→R:Goto 0:Else "R1="?P: "R2="?R:Goto 0:←┘
Lbl 0: (P-R)÷(2HPR) → D:"Z=1,F=2"? N:If 1=N:Then Goto 1:Else Goto 2:←┘
Lbl 1:"SK=" ?S:"JZ=" ?Z:Abs(S-O) →W:Prog "SUB1":F-90→F:
"X=":X◢"Y=":Y◢"FWJ=":F◢Goto 1◢
Lbl 2:"CX=" ?X:"CY=" ? X→I:Y→J:Prog "SUB2": "O+W→S:
Cls:Locate 1,1,"SK"←┘Locate 6,1,S←┘Locate 1,3,"JZ" ←┘Locate 6,3,Z←┘Goto 2◢
2. 正算子程序(SUB1)                                                      
 →A:→B:→K:→L:1-L→F:
1-K→M:
U+W(Acos(G+(1/P+KWD))+Bcos(G+(1/P+LWD))+Bcos(G+(1/P+FWD))+Acos(G+(1/P+MWD))) →X:
V+W(Asin(G+(1/P+KWD))+Bsin(G+(1/P+LWD))+Bsin(G+(1/P+FWD))+Asin(G+(1/P+MWD))) →Y:
G+(1/P+WD)+90→F: X+ZcosF→X: Y+ZsinF→Y:Return
  3. 反算子程序(SUB2)
G-90→T:Abs((Y-V)cosT-(X-U)sinT)→W:0→Z:Lbl 0:Prog "SUB1":T+(1/P+WD) →L:(J-Y)cosL-(I-X)sinL→Z:If AbsZ<1E-6:Then Goto1:Else W+Z→W:Goto 0←┘
Lbl 1:0→Z:Prog "SUB1":(J-Y)÷sinF→Z: Return
(SJK)
      Lbo0:{S}:If S∠下一线元起点里程 Then O=起点里程:U=起点X:V=起点Y:G=起算方位角:H=元长度:P=起点半径:R=终点半径:Q=0或1、-1:Prog“TYQXJS”: If End←┘                                                                     

三、使用说明
1、规定
        (1) 以道路中线的前进方向