1、經(jīng)實(shí)踐在5800上可行，反算運(yùn)行時(shí)間就是慢點(diǎn)有4秒左右才出結(jié)果。5800測(cè)量程序加入了數(shù)據(jù)庫(kù)，綜合了網(wǎng)上的一些而成。非本人原創(chuàng)，希望能與廣闊朋友交流。5800坐標(biāo)正反程序(加入了數(shù)據(jù)庫(kù))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ù)庫(kù)子程序Goto1/同時(shí)保存多個(gè)曲線時(shí)的指針Lbl1:IFS*線元終點(diǎn)里程：Then*tG線元起點(diǎn)方位角：*T0線元起點(diǎn)里程：*TU線元起點(diǎn)X:*TV線元起點(diǎn)Y:*TP線元起點(diǎn)曲率半徑:*TR線元終點(diǎn)曲率半徑：*TH線元起點(diǎn)至終點(diǎn)長(zhǎng)度：0或1、-1tQ:Return:IfEnd/Lbl1

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

5、計(jì)算得出的所求點(diǎn)的邊距要注意區(qū)別字母O和數(shù)字0,/為回車符號(hào)。ClrMemory:1N:580。計(jì)算器由坐標(biāo)計(jì)算面積小程序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:(說明：至少輸入三點(diǎn)坐標(biāo)，才能計(jì)算正確的面積，N為了計(jì)輸了的點(diǎn)數(shù)這段時(shí)間下雨，閑就沒事，就搞點(diǎn)小程序，還有需要計(jì)算器程序的，留言說聲，盡能力幫你編，同時(shí)也是跟大家一起學(xué)習(xí)交流。CASIOfx5800計(jì)算器工程測(cè)量與公路測(cè)量程序1、坐標(biāo)正算X0n,？X:Y0=?Y:I=?I:

6、J=?JX+ICos(J)U:Y+ISin(J)V”X=:U待求點(diǎn)的X坐標(biāo)”Y=，：V待求點(diǎn)的Y坐標(biāo)說明：X0Y0:已知點(diǎn)坐標(biāo)I:兩點(diǎn)的距離J:方位角2、坐標(biāo)反算Lbl0”X1=，？X:”Y1=?Y:”X2=?U:”Y2=?VPol(U-X,V-Y):J0J+360J”I=:I”J=:JDMSGOTO0說明：X1Y1:第一點(diǎn)的坐標(biāo)，X2Y2第二點(diǎn)的坐標(biāo)，I:兩點(diǎn)的距離，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:起始點(diǎn)的坐標(biāo)，F(xiàn)WJ:起始點(diǎn)的方位角，QDHAO:起點(diǎn)里程，ZDHAO終點(diǎn)里程，R:半徑，DQHAO:待求點(diǎn)里程，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:曲中點(diǎn)里程，H+B:曲中點(diǎn)高程，I1:第一坡度，I2:第二坡度，R:半徑,T:切線長(zhǎng)，DQ:待求點(diǎn)里程。正算偏移”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:已知點(diǎn)坐標(biāo)，LS:兩點(diǎn)距離，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:起開點(diǎn)曲率，1W-ZD終點(diǎn)曲

10、DQHAO:待求點(diǎn)里程，XY:待求點(diǎn)坐標(biāo)說明：X0Y0:起開點(diǎn)坐標(biāo)，F(xiàn)WJ:起開點(diǎn)方位角，率，QDHAO:起點(diǎn)里程，ZDHAO終點(diǎn)里程，?6、標(biāo)高計(jì)算”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