5800坐标高程计算程序.docVIP

CASIO5800计算器 公路测量计算程序 程序设计:魏加训 2012.12.20 Casio 5800计算器数据库型万能坐标正反算计算程序 一、主程序 1XYLbl 0:“1.ZS 2.FS”?→V↙ If V=1: Then “CZ X” ?H: “CZ Y” ?T:Goto 1: Else If V=2: Then Goto 2 :IfEnd: IfEnd↙ Lbl 1: “K××+×××”?D:?Z: “RJ”?G↙ Prog “P.Z” ↙(注:计算另一线路时修改替换此处和FS子程序中的P.Z为对应线路的数据库名称即可) Prog “ZS” ↙ If Z0: Then Cls:“X（L）=”: “Y（L）=”: Locate 6，1，X : Locate 6，2，Y◢ Pol（X-H，Y- “S（L）=”: Locate 6，1，I : F（L）=：DMS◢ Goto 1:IfEnd↙ If Z=0: Then Cls:“X（Z）=”: “Y（Z）=”: Locate 6，1，X : Locate 6，2，Y : “QXFWJ（Z）=”: 360Frac（（J+360）÷360▼DMS◢ Pol（X-H，Y- “S（Z）=”: Locate 6，1，I : F（Z）=：DMS◢ Goto 1:IfEnd↙ If Z 0: Then Cls:“X（R）=”: “Y（R）=”: Locate 6，1，X : Locate 6,2，Y◢ Pol（X-H，Y- “S（R）=”: Locate 6，1，I : F（R）=：DMS◢ Goto 1:IfEnd↙ Lbl 2: 0→Z: 0→G:”X” ?M:”Y” ?I: Prog “FS”: Cls:“K=”：=”：Goto 2↙?? 二、正算子程序：ZS??? 5→N: U(E-1-R-1)÷Abs（K-F）→Abs（D-F）÷N→Q90Q÷π→S: (注:此处5→N是控制计算精度可修改的,一般取值为4～6即可) C+(NPQ+2UR-1)NS→J:1→L↙ A+Q÷6×(Cos (C)+Cos (J) +4∑（Cos (C+((L+0.5)PQ+2R-1)×(L+0.5)S),L,0,(N-1)）+2∑（Cos (C+((LPQ+2R-1)LS,L,1,(N-1))）+ZCos（J+G) →XB+Q÷6×(Sin(C)+Sin( J) +4∑（Sin (C+((L+0.5)PQ+2R-1)×(L+0.5)S),L,0,(N-1)）+2∑（Sin (C+((LPQ+2R-1)LS,L,1,(N-1))）+Z Sin（J+G) →反算：FSLbl 0:Prog “P.Z” :Prog “ZS” ↙ (注:计算另一线路时修改替换此处和1XY主程序中的P.Z为对应线路的数据库名称即可) (I-Y)sin(J)+(M-X) cos(J) → P :D+P→ D ↙If Abs(P)≥0.001:Then Goto 0 : Else Goto 1 : IfEnd ↙Lbl 1: (I-Y)cos(J)-(M-X) sin(J) →Z 四、曲线元要素数据库If D≥线元起点里程:Then 线元起点里程→F:线元终点里程→K: 线元起点X坐标→A: 线元起点Y坐标→B: 线元起点切线方位角→C: 线元起点半径→R: 线元终点半径→E: 线元转向(注:左-1,右+1,直线为0) →U: IfEnd ↙ 五、曲线元要素数据库：D≥***:Then***→F:***→K: ***→A: ***→B: ***→C: ***→R: ***→E: ***→U: IfEnd ↙ If D≥***:Then ***→F:***→K: ***→A: ***→B: ***→C: ***→R: ***→E: ***→U: IfEnd ↙ If D≥***:Then***→F:***→K: ***→A: ***→B: ***→C: ***→R: ***→E: ***→U: IfEnd ↙ ...............………………………………………………………… If D≥***:Then ***→F:***→K: ***→A: ***→B: ***→C: ***→R: ***→E: ***→U: IfEnd ↙ (注：如有多个曲线元要素添加入数据库中)：???? ?? (1) 以道路中线的前进方向（即里程增大的方向）区分左右； (2) 当所求点位于中线时，Z=0；当位于中线左侧时，取负值；当位于中线右侧时，取正值。(3) 当线元为直线时，其起点、点的曲率半径为无穷大，以10的45次代替×10x45。(4) 当线元为圆