5800浩计算器.docVIP

5800抄标高小程序(施工员用,欢迎各位测量老师修改) 程序(平时施工员拿来测路基标高的小程序)“SHUI ZHUN JI SUAN”◢“HOU SHI DIAN GAO CHENG H(m)=”?A┛“HOU SHI DIAN CHI GAO H(m)=”?B┛“QIAN SHI CHI GAO H(m)=”?C┛“JI SUAN JIE GUO=”:A+B-C┛注解: 符号:“┛”“为EXE键”,在电脑上实在是没找到那个符号,就用这个近似的代替了??????A:后视点高程.??????B:后视点塔尺读数.??????C:前视塔尺读数.??????小弟才学计算器,没人教.自己摸索,还不会编程.这个自己写的垃圾程序太不好用了,一次只能计算一个点的标高,计算完了都要重新进入程序再计算,太过于麻烦了.??????这个程序就是增加了按键的次数，希望各位前辈,老实,对本程序对此方面进行了优化,不需要进行重复的程序进入和输入??????请各位前辈帮小弟改一改,能不能在计算的时候,A和B不需要重复输入,每次计算完前视的高程后,接着继续输入C,继续计算前视高程....如此往复. 卡西欧5800程序完整版  HYPERLINK /celiang/upIload/article/200969163652.rar \o 下载后欢迎进行探讨 \t _blank 附件(点击下载)：WN(不运行）＂ZS=1,FS=2＂？N: 1÷P →C:(P-R)÷(2HPH)→D:180÷π→E: If N=1: Then Goto 1: Else Goto 2: IfEnd←┚LbI 1:1 →I:0 →Z：Abs(K-Ｏ) →W: Prog＂ZS＂←┚F-90→F←┚＂JJ＂?K:＂PJ＂?L: ＂ZX=＂：X+Lcos(F+K) →Z[3]◢＂ZY=＂: Y+Lsin(F+K) →Z[4]◢＂QXFWJ=＂:F DMS◢Abs(Z) →Z:Goto 8←┚LbI 2:＂X＂?I:＂Y＂?J: Prog＂FS＂:＂FSZH=＂:Ｏ+W→K◢＂FSJL=＂:Z◢Lbl 8正算子程序（ZS）（不运行）1÷P→C:(P-R)÷(2HPR) →D: 180÷π→E←┚0.1739274226→A： 0.3260725774→B： 0.0694318442→K： 0.3300094782→L： 1-L→F： 1-K→M：U+W（Acos（G+QEKW（C+KWD））+Bcos（G+QELW（C+LWD））+Bcos（G+QEFW（C+FWD））+Acos（G+QEMW（C+MWD）））→X： V+W（Asin（G+QEKW（C+KWD））+Bsin（G+QELW（C+LWD））+Bsin（G+QEFW（C+FWD））+Asin（G+QEMW（C+MWD）））→Y： G+QEW（C+WD）+90→F： X+ZcosF→X： Y+ZsinF→Y3反算子程序（FS）（不运行）G-90→T： Abs（（Y-V））cos（T）-（X-U）sin（T）→W： 0→Z←┚Lbl 0←┚prog＂ZS＂：T+QEW（C+WD）→L：（J-Y）cosL-（I-X）sinL→Z：If Abs(Z)＜0.001: Then??Goto1：Else W+Z→W：IfEnd :Goto 0←┚Lbl 1： 0→Z：Prog＂ZS＂：（J-Y）÷sinF→ZZX-WN（运行主程序，该程序适用于匝道，对全段完整非对称曲线计算太过麻烦）＂CZX＂?S(仪站X坐标):＂CZY＂?W（仪站Y坐标）LbI 0: ＂K＂?K: If K≤126.9（第1条单一曲线的终点下面同上）: Then Goto A：Else If K≤176.9 And K＞126.9: Then Goto B:Else If K≤259.562 And K＞176.9: Then Goto C:Else If K≤309.562 And K＞259.562: Then Goto D： IfEnd:IfEnd:IfEnd:IfEnd←┚LbI A:92094.336（起点X坐标）→U:8287.962（起点Y坐标）→V:0起点桩号→O:145°11＇54＂（方位角）→G:126.9（曲线长度）→H:10^(45) （起点半径）→P:10^(45) （止点半径）→R:+1（路线左右偏，左负右正，直线输0）→Q:Prog ＂WN＂:Goto WLbI B:91990.134→U:8360.388→V:126.9→O:145°11＇54＂→G:50→H:10^(45) →P:150 →R:+1→Q:Prog ＂WN＂:Goto WLbI C:91947.609→