文档介绍：U″XO″:V″YO″:A″X1″:B″Y1″:POL(G″X2″-A,D″Y2″-B:W=J:I:LBI1:{LKM}:X″XA="=A+LCOSW+KCOS(W+M)◢Y"YA="=B+LSinW+Ksin(W+M)◢POL(S-U),Y-U:J<0=>J=J+36O⊿X″DIX=″=I◢FiX3:O″FW=″=J◢Goto15800边坡测量程序″XO=″?U:″YO=″?V:″X1=″?A:″Y1″?B:″X2″?G:″Y2″?D↙POL(G-A,D-B):J→W:Fix3:CLS↙Lbi1↙″L=″?L:″K=″?K:″M=″?M↙A+LCOSW+KCOS(W+M)→X↙B+LSinW+Ksin(W+M)→Y↙Cls↙"XA=":Locate5,1,X:"YA=":Locate5,2,Y◢Pol(X-U,Y-V):IfJ<0:ThenJ+36O→J:ElseJ→J↙Cls↙″DIX=″:Locate5,1,I:″FW=″:J▲DMS◢  Goto1程序特点:全线标高数据一次性程序化输入,扩充变量数据库,无需修改程序内容;全线贯通计算,标高计算时将全线数据分为4等分,首先判断待求点在哪个区间,再循环选择,提高运算时间;傻瓜操作,适用初级用户。一、程序:MCW“”:W=1=>Goto1ΔO“KOULING”:O≠123456=>O=0:Goto5ΔO=0:Z[1]=0:Goto0←┘Lbi0←┘”No.”:Z[1]+1◢{ZHPR}:Z“D0”:H“BG”:P“PD”:R“R0”:Z[Z[1]×4+3]=Z:Z[Z[1]×4+4]=H:Z[Z[1]×4+5]=P:Z[Z[1]×4+6]=R:“NEXT”◢IszZ[1]:Goto0←┘Lbi1←┘Z[2]=Z[1]←┘{D}:D≤Z[Int(Z[2]÷4+1)×4+3]=>Z[2]=Int(Z[2]÷4):Goto2ΔD≤Z[Int(Z[2]÷2+1)×4+3]=>Z[2]=Int(Z[2]÷2):Goto2ΔD≤Z[Int(Z[2]×.75+1)×4+3]=>Z[2]=Int(Z[2]×.75):Goto2ΔGoto2←┘Lbi2←┘D<Z[Z[2]×4+3]=>DszZ[2]:Goto2ΔGoto3←┘Lbi3←┘Z[Z[2]×4+6]≠0=>G=Z[Z[2]×4+4]+(D-Z[Z[2]×4+3])×Z[Z[2]×4+5]÷100+(D-Z[Z[2]×4+3])^2÷2÷Z[Z[2]×4+6]:Goto4ΔG=Z[Z[2]×4+4]+(D-Z[Z[2]×4+3])×Z[Z[2]×4+5]÷100:Goto4←┘Lbi4←┘{Z}:Z:G=G-(Z):“G”:G◢(4850输出){Z}:Z:G=G-(Z):G“G”◢(4800输出)Goto1←┘Lbi5←┘“OUT”◢程序操作说明程序分为两部分:,。1、     首先用Shift+Defm键对计算器内存变量进行扩充,扩充变量数为4×X+2(X为标高参数段数,变量数视内存情况尽量大些),运行程序,选2进行标高参数设置,为防止误操作在正确输入口令123456时方可进行设置,一组参数输入完毕后显示“NEXT”,如输入完毕请退出,按“EXE”继续。2、