計(jì)算器萬能程序.doc

計(jì)算器萬能程序 ，計(jì)算器萬能程序。
歡迎下載！
有關(guān)路基和隧道的CASIO5800P萬能曲線計(jì)算程序 2009-5-2614:20:13新聞?lì)悇e：儀器硬件技巧 　　程序功能 本程序由一個(gè)主程序(ZHUCHENXU)和幾個(gè)子程序 正算子程序(SUB1)、反算子程序(SUB2)、數(shù)據(jù)庫(SUB3)、算方位角程序(FA)、使用方位角算坐標(biāo) (NE)、邊坡放樣程序(BIANPO)、隧道圓心放樣程序（SDYX）構(gòu)成，可以根據(jù)直線、圓曲線、緩和曲線（完整 或非完整型）的線元要素（起點(diǎn)坐標(biāo)、起點(diǎn)里程、起點(diǎn)切線方位角、線元長度、起點(diǎn)曲率半徑、止點(diǎn)曲率 半徑）及里程邊距或坐標(biāo)，對(duì)該曲線段范圍內(nèi)任意里程中邊樁坐標(biāo)進(jìn)行正反算。

二、源程序 增加變量16→DimZ 1.主程序(ZHUCHENXU) Deg:Fix4:Freqon:17→Dimz "1.SZ→ XY，2.XY→ SZ，3.SDYX，4.BIANPO"？N：(huiche) Lbl1：”ZHUANGHAO=”?S:Prog"SUB3":N≥2=>Goto2： Abs(S- O)→W：”BIANZHU=”?→Z:”JJ=”?→ Z[17]:Prog"SUB1"： "XS=”:X→X"YS=”:Y→Y"FS=”:FDMS Goto1(HUICHE) Lbl2：”CX=”?X:X→I：”CY=”?Y:Y→J：Prog"SUB2"：(HUICHE) "S=":(O+W)→S"Z="Z→ZIfN=3:ThenProg”SDYX”:IfEnd：If N=4:ThenProg”BIANPO”:IfEnd:Goto2 2.正算子程序(SUB1) 0.1739274226→Z[1]： 0.3260725774→B： 0.0694318442→K： 0.3300094782→L： (1-L)→F： (1-K)→M： U+W(Z[1]cos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW (C+FWD))+Z[1]cos(G+QEMW(C+MWD)))→X： V+W(Z[1]sin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD)) +Bsin(G+QEFW(C+FWD))+Z[1]sin(G+QEMW(C+MWD)))→Y： G+QEW(C+WD)+Z[17]→F： X+ZcosF→X： Y+ZsinF→Y 3.反算子程序(SUB2) G-90→Z[2]： Abs((Y-V)cosZ[2]-(X-U)sinZ[2])→W： 0→Z：Lbl0：Prog"SUB1"： Z[2]+QEW(C+WD)→L： (J-Y)cosL-(I-X)sinL→Z： IfAbs(Z)<1E-6:ThenGoto1：ElseW+Z→W：Goto0:IfEnd Lbl1： 0→Z：Prog"SUB1"： (J-Y)÷sinF→Z 4.數(shù)據(jù)庫(SUB3) IfS<226100:ThenCls:Stop:IfEnd IfS<226255.833:Then226100→O： 99037.9736→U： 4282.3590→V： 201.3266304→G： 1045→P： 1045→R： 253.543→H： 0→Q:Goto1:IfEnd ………… IfS>236005.651:ThenCls:Stop:IfEnd Lbl1:1÷P→C