卡西歐5800計(jì)算程序直線、圓曲線坐標(biāo)正反算(未驗(yàn)證)

1、直線圓曲線坐標(biāo)正反算直線圓曲線坐標(biāo)正反算5800程序（速度才是硬道程序（速度才是硬道理，不信你就試試）理，不信你就試試）O表示起點(diǎn)坐標(biāo)，Q表示起點(diǎn)方位角，Z表示起點(diǎn)樁號(hào)C表示圓半徑（右偏為正，左偏為負(fù)），S表示正算為樁號(hào)K為偏距，W表示反算輸入坐標(biāo)N表示計(jì)算方式：1正算2反算P=0時(shí)手動(dòng)輸入線元參數(shù)輸入樁號(hào)調(diào)用SJK參數(shù)rad:“NEW（0），S=”？P：（當(dāng)P為零時(shí)手動(dòng)輸線元要素）IfP=0:ThenO（起點(diǎn)坐標(biāo)）:Q（起點(diǎn)方位角）:

2、C（半徑）:Z（起點(diǎn)里程）:ElseProg”SJK”:Ifend（否者調(diào)用數(shù)據(jù)庫參數(shù)）Qπ180→E:COS(E)iSIN(E)→F:（將方位角轉(zhuǎn)化為向量)Lbi0:Cls:“1.SZ→XY”：“2.XY→SZ”？N：IfN=1:ThenGoto1:ElseGoto2:Ifend(正反算選擇）Lbi1（正算模式）Cls:(正算輸入待求點(diǎn)里程）S:S=0→Goto0（計(jì)算里程為零時(shí)重新選擇正反算）此處為等號(hào)箭頭IfC=無窮大：(直線坐標(biāo)

3、正算）Then(SZ)FO→A◢(顯示中樁坐標(biāo)）？K(輸入偏距）：AiFK◢(左樁坐標(biāo)）AiF◢(右樁坐標(biāo)）Else（園線正算）SZ→V:VC→B:2CSIN(.5B)(COS(.5B)iSIN(.5B))→A:COS(B)iSIN(B)→B:AFO→A◢（顯示所求點(diǎn)中坐標(biāo)）k（輸入平距）:AiBFK◢(左樁坐標(biāo))AiBFK◢（右樁坐標(biāo)）GOTO1LBL2反算模式W:W=0→Goto0（W為坐標(biāo)，輸入零時(shí)重新選擇正反算）IfC=無限大：

4、Then(WO)FZ→G:“S=“:ReP(G)→I◢(反算直線里程顯示）“Z=”ImP(G)→J◢（直線反算偏中顯示）Else(反算園）(WO)F→V：ViC→A:(ABS(A)ABS(C))C→I:Ciabs(C)AABS(A)→A:IfI=0:ThenI=J:ElseABS(AV)ABS(I)I→J:(反算園的平距)IfendAFO→A:“S=“:2Csin1(.5ABS(OA)C)Z◢(顯示園反算里程):“Z=“J◢(顯示園反算