1、經(jīng)實踐在5800上可行，反算運行時間就是慢點有4秒左右才出結(jié)果。5800測量程序加入了數(shù)據(jù)庫，綜合了網(wǎng)上的一些而成。非本人原創(chuàng)，希望能與廣闊朋友交流。5800坐標正反程序(加入了數(shù)據(jù)庫)1.主程序(TYQXJS)Lbl4:1.SZ=XY:2.XY=SZ:?N:?S:ProgSUB0”/1+PrC:(P-R)+(2HPR)rD:180-nrE:N=1=Goto1:Goto2:/Lbl1:?Z:Abs(S-O)rW:ProgSUB1:XS=:XYS=:YJF-90tF:“FS=”：FADMSJGoto4/Lbl2:?X:?Y:XtI:YrJ:ProgSUB2”：O+WtS:S=”:SJZ=”：ZJ

2、Goto4/2.正算子程序(SUB1)0.1739274226tA:0.3260725774tB:0.0694318442tK:0.3300094782L:1-LF:1-KM/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)+90tF:X+ZcosFX:Y+ZsinFtY2.反算子程序(SUB2)G-

3、90tT:Abs(Y-V)cos(T)-(X-U)sin(T)tW:0tZ:Lbl0:ProgSUB1:T+QEW(C+WD)rL:(J-Y)cosL-(I-X)sinLZ:IFAbsZ0.000001:Then0Z:ProgSUB1”:(J-Y)sinFZElseW+ZrW:Goto4:IfEndSUB0數(shù)據(jù)庫子程序Goto1/同時保存多個曲線時的指針Lbl1:IFS*線元終點里程：Then*tG線元起點方位角：*T0線元起點里程：*TU線元起點X:*TV線元起點Y:*TP線元起點曲率半徑:*TR線元終點曲率半徑：*TH線元起點至終點長度：0或1、-1tQ:Return:IfEnd/Lbl1

4、:IFSXYXY=SZN?選擇計算方式，輸入1表示進行由里程、邊距計算坐標；輸入2表示由坐標反算里程和邊距S?正算時所求點的里程，反算時為所求點的近似里程，反算時輸入的近似里程不能夸線元，假設(shè)夸線元的話，需進行第二次反算，并以第一次的結(jié)果做為近似里程，否則反算的里程及邊距不對，Z?正算時所求點距中線的邊距（左側(cè)取負，值右側(cè)取正值，在中線上取零）X?反算時所求點的X坐標Y?反算時所求點的Y坐標顯示部分：XS=XXX正算時，計算得出的所求點的X坐標YS=xxX正算時，計算得出的所求點的Y坐標FS=xxx正算時，所求點對應(yīng)的中線點的切線方位角S=xxx反算時，計算得出的所求點的里程Z=xxx反算時，

5、計算得出的所求點的邊距要注意區(qū)別字母O和數(shù)字0,/為回車符號。ClrMemory:1N:580。計算器由坐標計算面積小程序LbI0:E:F:XO”?X:Y0?Y:(XF-EY)/2tG:Q+GtQ:YtF:Abs(Q)tS:Fix1:S=:Locate6,4,SNorm2:N=:Locate6,4,NN+1tN:Goto0:(說明：至少輸入三點坐標，才能計算正確的面積，N為了計輸了的點數(shù)這段時間下雨，閑就沒事，就搞點小程序，還有需要計算器程序的，留言說聲，盡能力幫你編，同時也是跟大家一起學(xué)習(xí)交流。CASIOfx5800計算器工程測量與公路測量程序1、坐標正算X0n,？X:Y0=?Y:I=?I:

6、J=?JX+ICos(J)U:Y+ISin(J)V”X=:U待求點的X坐標”Y=，：V待求點的Y坐標說明：X0Y0:已知點坐標I:兩點的距離J:方位角2、坐標反算Lbl0”X1=，？X:”Y1=?Y:”X2=?U:”Y2=?VPol(U-X,V-Y):J0J+360J”I=:I”J=:JDMSGOTO0說明：X1Y1:第一點的坐標，X2Y2第二點的坐標，I:兩點的距離，J:方位角3、圓曲線”X0=，?X:”Y0=?Y:”FWJ=?D:”QDHAOn?G:”ZDHAO=?C:”R=?RLbl1”DQHAO=?LLCGOTO2”PY=，?K180(L-G)+(兀R)E2RSin(0.5E)FReC

7、(Abs(F),D+0.5E):Cls”X=，：X+I+KCos(D+E+90)A”Y=，：Y+J+KSin(D+E+90)BD+Jo:o0360+o0o”FWJh:oDMSGoto1Lbl2”END，說明：X0Y0:起始點的坐標，F(xiàn)WJ:起始點的方位角，QDHAO:起點里程，ZDHAO終點里程，R:半徑，DQHAO:待求點里程，PY:偏移量4、豎曲線QZHAO=?J:H+B=?B:I1=?C:I2=?D:R=?R:T=?T:(D-C)100)Abs(D-C)+100)A:Abs(0.5R(O)+100)S”T：SJ-XJ+YLbl0”DQ=，?LIfLY:ThenGoto1:IfEnd:If

8、End”GC=:B+C(L-J)100+A(L-J+T)+(2R)HGoto0Lbl1”END，說明：QZHAO:曲中點里程，H+B:曲中點高程，I1:第一坡度，I2:第二坡度，R:半徑,T:切線長，DQ:待求點里程。正算偏移”X0n，？A:”Y0=?B:”FWJ=?D:Lbl0”LS=，?L:”PY=?CReC(L,D)”X=，：A+I+CCos(D+90)X”Y=，：B+J+CSin(D+90)YGoto0說明：X0Y0:已知點坐標，LS:兩點距離，F(xiàn)WJ:方位角萬能公式”X0=，？A:”Y0=?B:”FWJ=?C:”1-QD?D:”1-ZD？E:”QDHAO?F:”ZDHAO？GLbl1

9、”DQHAO=?H:”PY=?oIfHG:ThenGoto2:IfEnd:IfEnd+兀rJ:C+45Q(I+8+D)2+2D)+K+12U:(E-D)Abs(G-F)P:Abs(H-F)Q:PCKI:C+90Q(I+2D)M:C+135Q(3I+8+D)+兀N:C+45Q(I+A+Q(Cos(C)+4(Cos(M)+Cos(N)+2Cos(K)+Cos(J)B+Q(Sin(C)+4(Sin(M)+Sin(N)+2Sin(K)+Sin(J)X=，：U+oCos(J+90)XY=，：V+oSin(J+90)Y”FWJh:JDMSGoto1Lbl2”END，1W-QD:起開點曲率，1W-ZD終點曲

10、DQHAO:待求點里程，XY:待求點坐標說明：X0Y0:起開點坐標，F(xiàn)WJ:起開點方位角，率，QDHAO:起點里程，ZDHAO終點里程，?6、標高計算”QZHAO=?J:”QDHAO=?G:”ZDHAO=，？K:”B-HB=？B:”SX=，?Q:”I1=?C:I2=?D:R=?R:T=?T(D-C)+100WWAbs(W)A:”T:0.5RAbs(W)S-YIGAO=?oJ-X:J+TYLbl1”L-DQHAO=？L:”PY=?U:”XIELV=，?VIfLY:ThenGoto3:IfEnd:IEnd”HL=，：B+0.01C(L-J)+A(L-J+T)+(2R)+0.01UV+QQHO=，：o-HHZGoto1Lbl2LKGoto4”HLn，：B+0.01(L-J)D+0.01UV+QH”HO=:eHHZGo