5800全线直曲计算程序通用

1、经实践在5800上可行，反算运行时间就是慢点有4秒左右才出结果。5800测量程序加入了数据库，综合了网上的一些而成。非本人原创，希望能与广阔朋友交流。5800坐标正反程序(加入了数据库)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数据库子程序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?正算时所求点的里程，反算时为所求点的近似里程，反算时输入的近似里程不能夸线元，假设夸线元的话，需进行第二次反算，并以第一次的结果做为近似里程，否则反算的里程及边距不对，Z?正算时所求点距中线的边距（左侧取负，值右侧取正值，在中线上取零）X?反算时所求点的X坐标Y?反算时所求点的Y坐标显示部分：XS=XXX正算时，计算得出的所求点的X坐标YS=xxX正算时，计算得出的所求点的Y坐标FS=xxx正算时，所求点对应的中线点的切线方位角S=xxx反算时，计算得出的所求点的里程Z=xxx反算时，

5、计算得出的所求点的边距要注意区别字母O和数字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为了计输了的点数这段时间下雨，闲就没事，就搞点小程序，还有需要计算器程序的，留言说声，尽能力帮你编，同时也是跟大家一起学习交流。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:起始点的坐标，FWJ:起始点的方位角，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:两点距离，FWJ:方位角万能公式”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:起开点坐标，FWJ:起开点方位角，率，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