5800主程序(可用).doc

主程序ZBJSLbl 6：1.SZ XY：2.XY SZ：？S：？N：Prog“SUB0”1PC：(P-R)(2HPR) D：180E:N=1 =Goto 1: Goto 2Lbl 1: pianju:?Z: pianjian:？ J:Abs(S-O)W: ProgSUB1:XS=:XYS=:YFS=:F DMSGoto 6Lbl 2?X:?Y:XI:YJ:ProgSUB2:O+WS:Cls:S=:SZ=:ZGoto 6正算子程序 SUB10.1739274226A： 0.3260725774B： 0.0694318442K： 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)F X+Zcos（F+J）X Y+Zsin（F+J）Y反算子程序SUB2 G-90T(Y-V)cosT-(X-U)sin(T) WAbs(W)W:0ZLbl6：Prog SUB1T+QEW(C+WD) L： (J-Y)cos（L）-(I-X)sin（L）ZIF Abs（Z）1E-6：Then0Z:Prog SUB1:(J-Y)sin（F）Z:Else W+ZW：Goto6:IfEnd数据库子程序 SUB0Goto 1(线元可输入多条，分离式可在前多加一位，匝道一样。例：左幅为K129+500,右幅输线元参数里程为1129+500，其他不变，前面1为任意数字，计算机便于区分)Lbl1：IFS线元终点里程：ThenO(线元起点里程) ： U(线元起点X坐标)：V(线元起点Y坐标)：G(线元起点计算方位角)：P(线元起点半径)：R(线元止点半径)：H(线元长度)：Q(线元左、右偏标志，左偏-1，右偏1，直线为0)：Return：IfEndIFS XY2. XY = SZ S ?选择里程 ,N?，Z?左或右偏距。选择计算方式，1.表示进行由里程、边距计算坐标 ；输入2表示由坐标反算里程和边距。显示部分： XS=正算时，计算得出的所求点的X坐标 YS=正算时，计算得出的所求点的Y坐标 FS=正算时，所求点对应的中线点的切线方位角XC=测站点X值YC= 测站点Y值 I=XXX 测站到放样点距离J=XXX测站到放样点方位角 S=反算时，计算得出的所求点的里程 Z=反算时，计算得出的所求点的边距三算例请到/celiang/article_view.asp?id=1101&author=tung 有算例。注:1.本程序根据空间里程序改编而成，并非本人原创。2.正算跨线元计算正确，反算时跨线元计算第一次结果错误，反应速度比一般输出结果慢，给出结果S=XXX为输入坐标的线元概略里程，在进行计算，显示结果*近似里程*，里程及偏距误差0.001m.，可更改数据（1E-6）改为（1E-3），速度稍快一点。3本程序可进行偏角法放样。4.输入每行数据看数据输完毕没有，输完不要忘记按（EXE）5.使用者需细心输入，有问题在以下网址查找原因。/celiang/article_view.asp?id=380&author=yshf61E-6即是10的負6次方,亦即是等於0.0000017.希望高人指点把此程序改为数据库形式，并加入高