4800万能程序

计算,标高计算时将全线数据分为4等分,首先判断待求点在哪个区间,再循环选择,提高运算时间;傻瓜操作,适用初级用户。Р一、程序:MCРW“1.BG  2.SZ ”:W=1=> Goto 1ΔO“KOU  LING”:O≠123456=>O=0:Goto 5ΔO=0:Z[1]=0: Goto 0←┘РLbi  0←┘Р”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”◢Isz Z[1]: Goto 0←┘РLbi  1 ←┘   РZ[2]= Z[1]←┘Р{D}:D≤Z[Int(Z [2]÷4+1)×4+3]=>Z[2]= Int(Z [2]÷4) :Goto 2ΔD≤Z [Int (Z[2] ÷2+1)×4+3]=>Z[2]=Int(Z[2]÷2):Goto 2ΔD≤Z[Int (Z[2]×.75+1)×4+3]=>Z[2]=Int (Z[2]×.75):Goto 2ΔGoto 2←┘РLbi  2 ←┘  РD<Z[Z[2]×4+3]=>Dsz Z[2]:Goto 2ΔGoto 3 ←┘РLbi  3←┘Р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]:Goto 4ΔG=Z[Z[2]×4+4]+(D-Z[Z[2]×4+3])×Z[Z[2]×4+5]÷100:Goto 4←┘РLbi  4 ←┘   Р{Z}:Z:G=G-0.02Abs(Z):“G”: G◢   (4850输出)Р{Z}:Z:G=G-0.02Abs(Z): G“G”◢   (4800输出)РGoto 1 ←┘