5800全线直曲计算程序通用

5800上可行4秒。5800测希望能与广大朋友交流5800坐标序(加入了数据库1.主程序=>XY"：SZ"N：？SProg“SUB0”↙1→C:(P-R)→D:180∏Goto1：Goto2：1:?→W"SUB1"："XS="：X◢"YS="：Y◢F-90→“：DMSGoto4？X：：X→YJ：Prog“SUB2→SS=◢“：◢Goto42.正算序0.26→0.74→B：0.02→K→1-L→F：↙X：Y：G+QEW(C+WD)+90→F：（F）XY+Zsin（F）→Y

2.反算序T0→：Lbl0："SUB1"：T+QEW(C+WD)L(J-Y)cos（）-(I-X)sin（→Z：（Z）<0.000001Then0÷sin（→W+Z数据库子Goto1↙同时保（（线:***→:***→（线元起点X:***→（线元起点Y→（线元起:***→）:***→（线：或-1→Q：↙（（线:***→:***→（线元起点X:***→（线元起点Y→（线元起:***→）:***→（线：或-1→Q：Return:IfEnd…………，每增加，每增加一条曲线增加Lbl，每增加一个工程增加一个文件。1(1)

，Q=-1；当线元往右偏时Q=1；当线元为直线时Q=0。(2)，，Z取负值；，取正值。(3)的次(4)(5)10的次方代替45次(6)21.2.=>SZN?表示进行由里程、边距计算坐标；2表示S，反算

Z距)XX坐标Y坐XS=XYS=×××坐标FS=×××S=0，ClrMemory:1→LbIE:F:"XO"?X:"Y0"?Y:(XF-EY)/2→Q+G→Q:XE:Y→F:Abs(Q)→Fix

5800算器由坐标计算积小程

"S=":Locate6,4,S▲Norm"N=":LocateN+1→Goto0:(Nfx5800计器工程测与公路测量程序、坐标正算〃”Y0=?Y:?I:”J=X+ICos(J)→V”X=〃（求点的X坐）”Y=〃:V（求的Y坐）说明：X0：知点坐标I两点的距离J：位角、坐标反算Lbl0〃”Y1=?Y:〃〃?VPol(U-X,V-Y):J<0J+360→J”I=〃”J=〃:JGOTO0说明：X1Y1：第一点的坐标第点的坐标，I：两点的距离，：方位角、圆曲线〃”Y0=?Y:〃”QDHAO=〃〃?C:”R=Lbl1〃?LL<GL＞GOTO2180(L-G)÷(πR)→E2RSin(0.5E)→FReC(Abs(F),D+0.5E)”X=〃”Y=〃Y+J+KSin(D+E+90)→BD+E→0o”FWJ=〃:oDMSGotoLbl2

”END〃说明：X0Y0：起始点的坐标FWJ：起始点的方位QDHAO：起点里程ZDHAO终点里程，：半径：求点里程，：偏移量、竖曲线”QZHAO〃〃”I1=〃?C:〃?D:〃?R:〃((D-C)÷100)÷Abs((D-÷100)0)→S”T〃J-→XJ＋Lbl0”DQ=〃?LIfL<X:ThenGoto1:ElseIfL＞Goto1:IfEnd:IfEnd”GC=:B+C(L-J)÷100+A(L-÷(2R)→HGotoLbl1”END〃说明：曲中点里程：曲中点高程：一坡度：二坡度：径，T：线长，：求点里程。．正算偏移〃”Y0=?B:〃?D:Lbl0〃”PY=〃?C”X=〃:A+I+CCos(D+90)”Y=〃:B+J+CSin(D+→YGoto说明：X0：知点坐标，LS：两点距离，：方位角万能公〃”Y0=?B:〃-QD?D:”1÷R-ZD〃?F:〃?GLbl1〃”PY=IfH<F:ThenGoto2:ElseIfH＞Goto2:IfEnd:IfEnd(E-D)÷Abs(G-→P:Abs(H-→Q:PQ→I:C+90Q(I+2D)÷π÷→M:C+135Q(3I÷8+D)π→N:C+45Q(I÷2+2D)→KA+Q(Cos(C)+4(Cos(M)+Cos(N))+2Cos(K)+Cos(J))÷12→U:B+Q(Sin(C)+4(Sin(M)+Sin(N))+2Sin(K)+Sin(J))÷12”X=〃90)→X”Y=〃:V+oSin(J+90)→Y”FWJ=〃DMSGotoLbl2”END〃说明：X0Y0：起开点坐标：起开点方位角1÷R-QD：起开点曲率1÷R-ZD终曲

率，：点里程ZDHAO终点里程，：求点里程XY：待求点坐、标高计算〃”QDHAO=?G:”ZDHAO=〃”BHB=?B:〃?Q:”I1=〃”I2=〃?D:”R=〃”T=〃?T(D-C)÷100→W:W÷Abs(W)〃:0.5RAbs(W)→S”o-YIGAO=〃J-→YLbl1?L:〃〃IfL<X:ThenGoto2:ElseIfL＞Goto3:IfEnd:IEnd〃÷(2R)+0.01UV+Q→Q”HO=〃HGotoLbl2L<GGoto4〃:B+0.01(L-→H〃:o-→HGotoLabGoto〃:B+0.01(L-”HO=:o-→ZGotoL