5800-中边桩坐标计算程序.docVIP

曲线正反算（全线5800） Lb1 0:5→Dimz:Cls：“1-ZX“：”2-YX”?L:Cls:L→Z[1]: “1.KD→XY“：”2.XY→KD”?T:T=1=GOTO 1:T=2=GOTO 2:Lb1 1: “K=”?K: K=0=GOTO 0 (注:當K輸入0時,程序會由LbI 0開始重新運行): “DP=”?I: “ANG=”?F:Z[1]=1=Prog“ZXP”:Z[1]=2=Prog“YXP”:Prog“SIM2”: “XI=”:X◢ “YI=”:Y◢ Goto 1 LB1 2:“XI=”?X:X=0=Goto 0: (注:當X輸入0時,程序會由LbI 0開始重新運行)“YI=”?Y:X→O:Y→U:A+Abs((Y-D)cos(E+F-180)-(X -C)sin(E+F-180)) →K:Lb1 3:Z[1]=1=Prog “ZXP”:Z[1]=2=Prog “YXP”:0→I:90→F:Prog”SIM2”:(U-Y)cos(S+F-180)-(O-X)sin (S+F-180) →Z:If Abs(Z)0.00001:Then Z[1]=1=Prog”ZXP”:Z [1]=2=Prog”YXP”:0→I:90→F:Prog”SIM2”:(U-Y)÷sin(S+F) →Z:Else K+Z→K:Goto 3:IfEnd:Lb1 5:”K=”:K◢ “DP=”:Z◢ GOTO 2 SIM2(子程序) (V-R)÷Abs(B-A) →P:Abs(K-A) →Q:P×Q→H:E+(H+2R) ×Q×90÷ π→S:E+(H÷4+2R) ×Q×45÷(2π) →M:E+（3H÷4+2R） cos(M)+cos(N))+2cos(J)+cos(S))+Icos(S+F) →X:D+Q÷12×( sin(E)+4(sin(M)+sin(N))+2sin(J)+sin(S))+Isin(S+F) →Y:return ZXP或（YXP） 数据库（分左右线，按照程序模式写；整体式路基按左线参数） 数据库示例 60.684→A:1911.448→B:If K≤B:Then 3448024.704→C:499348.258→D: 275°17′8.5″→E:0→R:0→V;GOTO 1:IfEnd B→A:2086.448→B:IF K If K≤B:Then 3448195.2→C:497505.374→D: 275°17′8.5″→E:0→R:-1÷700→V;Goto 1: IfEnd …………. Lb1 1 :If K60.684 Or K7500:Then Cls: Locate 5,2,”KP ERROR” ◢ Stop:Ifend:Return 说明： ZX，2.YX？ 1 左线 2 右线 KD=XY,2. XY= KD 1 正算 2 反算 K=？ 待求点里程桩号 DP=？ 边桩距离 ANG=？ 一般取90 XI=计算所得X坐标 YI=计算所得X坐标 进行反算时输入坐标以后，一直按EXE键，不输入数据 注：C=X坐标， D=Y坐标，E=计算点的切线方位角 R=起点半径倒数，若从ZH开始R=0，左转为负、右转为正、直线0 V=终点半径倒数，若从HZ结束V=0，左转为负、右转为正、直线0 A=起点桩号 B=终点桩号 TYQXJS(主程序名)LbI 0:4→Dimz:Cls：1.SZ→XY：2.XY→SZ?→N:Cls：XO?U: YO?V： SO?O：FO?G： LS?H： RO?P:RN?R:?Q：1÷P→C：(P-R)÷(2HPR) →D：180÷π→EN=2=Goto 2：LbI 1:Cls:?S：S=0=Goto 0??(注:當S輸入0時,程序會由LbI 0開始重新運行)?Z:Abs(S-O)→W:ProgSUB1:Cls：XS=:X YS=:Y◢ FS=:F-90 ?DMS◢ Goto 1:LbI 2:Cls:?X：X=0=Goto 0??(注:當X輸入0時,程序由會LbI 0開始重新運行)?Y:X→I:Y→JProgSUB2:O+W→S:Cls：S=:S◢ Z=:Z◢ Goto 2 注:紅色部可以不要,亦可以要,它的作用是將S或X輸入0時,程序會重新由頭開始運行,(即是可以計算下段線元)SUB1(子程序名)0.1739274226→A:0.3260725774→B0.0694318442→K:0.330009482→L：1-L→F:1-K→M：G+QEKW(C+KWD)→Z[1]：G+QELW(C+LWD)→Z[2]：G+QEFW(C+FWD)→Z[3]：G+QEMW(C+MWD)→Z[4]：A×cos(Z[1])→X??:X+Bcos(Z[2])→