文档介绍：5800抄标高小程序(施工员用,欢迎各位测量老师修改)程序(平时施工员拿来测路基标高的小程序)“SHUIZHUNJISUAN”◢“HOUSHIDIANGAOCHENGH(m)=”?A┛“HOUSHIDIANCHIGAOH(m)=”?B┛“QIANSHICHIGAOH(m)=”?C┛“JISUANJIEGUO=”:A+B-C┛注解:符号:“┛”“为EXE键”,在电脑上实在是没找到那个符号,就用这个近似的代替了A:::,,,一次只能计算一个点的标高,计算完了都要重新进入程序再计算,,希望各位前辈,老实,对本程序对此方面进行了优化,不需要进行重复的程序进入和输入请各位前辈帮小弟改一改,能不能在计算的时候,A和B不需要重复输入,每次计算完前视的高程后,接着继续输入C,继续计算前视高程....(点击下载):WN(不运行)"ZS=1,FS=2"?N:1÷P→C:(P-R)÷(2HPH)→D:180÷π→E:IfN=1:ThenGoto1:ElseGoto2:IfEnd←┚LbI1:1→I:0→Z:Abs(K-O)→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=":FDMS◢Abs(Z)→Z:Goto8←┚LbI2:"X"?I:"Y"?J:Prog"FS":"FSZH=":O+W→K◢"FSJL=":Z◢Lbl8正算子程序(ZS)(不运行)1÷P→C:(P-R)÷(2HPR)→D:180÷π→E←┚→A:→B:→K:→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←┚Lbl0←┚prog"ZS":T+QEW(C+WD)→L:(J-Y)cosL-(I-X)sinL→Z:IfAbs(Z)<:ThenGoto1:ElseW+Z→W:IfEnd:Goto0←┚Lbl1:0→Z:Prog"ZS":(J-Y)÷sinF→ZZX-WN(运行主程序,该程序适用于匝道,对全段完整非对称曲线计算太过麻烦)"CZX"?S(仪站X坐标):"CZY"?W(仪站Y坐标)LbI0:"K"?K:IfK≤(第1条单一曲线的终点下面同上):ThenGotoA:ElseIfK≤>:ThenGotoB:ElseIfK≤>:ThenGotoC:ElseIfK≤>:ThenGotoD:IfEnd:IfEnd:IfEnd:IfEnd←┚LbIA:(起点X坐标)→U:(起点Y坐标)→V:0起点桩号→O:145°11'54"(方位角)→G:(曲线长度)→H:10^(45)(起点半径)→P:10^(45)(止点半径)→R:+1(路线左右偏,左负右正,直线输0)→Q:Prog"WN":GotoWLbIB:→U:→V:→O:145°11'54"→G:50→H:10^(45)→P:150→R:+1→Q:Prog"WN":GotoWLbIC:→U:→V:→O:154°44'51"→G:→H:150→P:150→R:+1→Q:Prog"WN":GotoWLbID:→U:→V:→O:186°19'19"→G:50→H:150→P:10^(45)→R:+1→Q:Prog"WN":GotoWLbIW:"PJ1"?T←┚(该项是只左右边桩再左右偏距,输0为不再左右偏,可以直接出方位角、距离,适用于桥梁桥台、盖梁、涵洞八字墙等放样,以路线前进方向,前-,后+)IfT=0:ThenZ[3]→Z