计算器万能程序.doc

计算器万能程序 ，计算器万能程序。
欢迎下载！
有关路基和隧道的CASIO5800P万能曲线计算程序 2009-5-2614:20:13新闻类别：仪器硬件技巧 　　程序功能 本程序由一个主程序(ZHUCHENXU)和几个子程序 正算子程序(SUB1)、反算子程序(SUB2)、数据库(SUB3)、算方位角程序(FA)、使用方位角算坐标 (NE)、边坡放样程序(BIANPO)、隧道圆心放样程序（SDYX）构成，可以根据直线、圆曲线、缓和曲线（完整 或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率 半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。

二、源程序 增加变量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.数据库(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