自編卡西歐5800計(jì)算器程序_曲線段

《自編卡西歐5800計(jì)算器程序_曲線段》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫(kù)。

1、卡西歐5800計(jì)算器程序曲線段主程序：“1.SZ→XY”:“2.XY→SZ”:?N:“XO”?U:“YO”?V:“SO”?O:“SN”?I:“FO”?G:“LS”?H:“RO”?P:“RN”?R:“JIAJIAO”?T:?Q:1÷P→C(P-R)÷(2HPR)→D:18÷π→E:IfN=1:ThenGoto0:ElseGoto1:IfEnd:Lbl0:?S:?Z:IfS>I:Then“CHUJIE”◢Goto0:IfEnd:Abs(s-0)→W:Prog“SUB1”:F-T→F:“X=”:X◢“Y=”:Y◢“F=”:F?DMS◢Goto0Lbl1:?X:?Y:X→

2、I;Y→Prog“SUB2”:“S”?S:O+W→S◢“Z”?Z:Z→Z◢Goto1字母表示：1:SZ→XY（XY→SZ）距離算坐標(biāo)（坐標(biāo)算距離）2：N選擇1或2（一般選1）3：XO，YO起點(diǎn)的X，Y坐標(biāo)4：SO,SN起點(diǎn)、終點(diǎn)樁號(hào)5：FO方位角6：LS切線長(zhǎng)7：RO,RN起點(diǎn)、終點(diǎn)半徑38：JIAJIAO90不變9：Q線路偏向（左-1，右+1）10:S求點(diǎn)的樁號(hào)11：Z距S樁的距離（左負(fù)，右正）子程序：FS2Pol(X-A,Y-B):J≤0=>J+360→J子程序：SUB10.1739274226→A:0.3260725774→B0.0694318442→K:0

3、.3300094782→L1-L→F：1-K→MG+QEKW(C+KWD)→Z[1]G+QELW(C+LWD)→Z[2]G+QEFW(C+FWD)→Z[3]G+QEMW(C+MWD)→Z[4]Acos(Z[1])→XX+Bcos(Z[2])→XX+Bcos(Z[3])→XX+Acos(Z[4])→XU+WX→XAsin(Z[1])→YY+Bsin(Z[2])→YY+Bsin(Z[3])→Y3Y+Asin(Z[4])→YV+WY→YG+QEW(C+WD)+90→FX+Zcos(F)→XY+Zsin(F)→Y子程序：SUB2G-90→T(Y-V)cos(T)-(X-U

4、)sin(T)→WAbs(W)→W:0→ZLbl4：Prog“SUB1”T+QEW(C+WD)→L(J-Y)cos(L)-(I-X)sin(L)→ZIfAbs(Z)<10^(-6):Then0→Z：Prog“SUB1”(J-Y)/sin(F)→ZElseW+Z→W:Goto4:IfEnd子程序：XBD“XP=”:A+Scos(F◢“YP=”:B+Ssin(F◢子程序：XBZJ+90→F:“R”?R：R→S:Prog“XBD”：“L”？L：-L→S：Prog“XBD”3