线路计算和编程.doc

一、 坐标正反算1、PROGRAM 1(坐标正算)？A：？B:Lb1 1:？S：？U:A+Rec（S，U）X：B+JY：Cls“X=” ：Locate 3，1，X：“Y=”：Locate 3，2，YGoto 12、PROGRAM 2（坐标反算）?A：?B：Lbl2：?X：?Y：Pol（A - X， B - Y）S：J+180U：Cls“S=” ：Locate 3，1，S：“FWJ=” ： UDMSGoto 2二、 坐标系正反算1、PROGRAM 3（坐标系转化一）？C：？D：？U：Lb13：？X：？Y：（X-C）CosU+（Y-D）SinUN：-(X-C）SinU+（Y-D）CosUE:“N=”：Locate 3,1,N:“E=”: Locate 3,2,EL5Goto32、PROGRAM 4（坐标系转化二）?C：?D：?U：Lbl4：?N：？E：C+N*CosU-E*SinUX：D+N*SinU+E*CosUY：“X=”：Locate 3,1,X:“Y=”: Locate 3,2,YGoto 4三、 圆曲线正反算1、PROGRAM 5（圆曲线放样公式之一）“YXZB-X”?A：“YXZB-Y”？B：“QSBJ-FWJ”？U：？R：“QD-ZH”？K:“YQX1,ZQX=-1”？Z：Lbl5：？X：？Y ：Pol（A - X， B - Y）：If Z(J+180-U)S OR M(K-Q)0:Then Cls：“ZHUANGHAO CHAOCHU JISUAN FANWEI” Cls:GOTO 6:IfEnd:“PIANJU”?P:M(K-Q) L:L-L(5)/ (40*R2*S2)+L(9)/(3450*R(4)*S(4)A:Z(L(3)/(6*R*S)-L(7)/(336*R(3)*S(3) B:C+Acos(U)-Bsin(U) N:D+Asin(U)+Bcos(U) E:U+Z(90+90L2/(3R*S) F:If TP0: THEN 1O:ELSE -1O: IFEND:Abs(R/2*(E-F) T:Lbl 9:“JSD-ZH=”?X:IF X(K+T):THEN “CHAOCHU JISUAN FANWEI” GOTO 9: IFEND: IF X=(K-T) AND X=K: THEN G-(K-X)*E-O(X-K+T)2/(2*R) H:IFEND: IF X=K: THEN G-(K-)X*F-O(K-X+T)2/(2*R) H:IFEND:“H=”:H Goto 9六、 综合曲线计算主程序：WFBLb1 7:“ZHUANGHAO=”:? K:“PIANJU=”:?P:If K93507.6963 And K110293.209 And K110963.209 And K112948.932 And K113618.932 And K114152.295 And K114822.295 And K116285.365 And K116955.365 And K117864.605 Or K93507.6963 :Then Cls:“CHAOCHU JISUAN FANWEI” Cls：IfEnd: Goto7子程序：ZBXFS1C+(K-Q)cos(U)-P*sin(U) X：D+(K-Q)sin(U)+P*cos(U) Y：Cls：“X=”：Locate 3，2，X：“Y=”：Locate 3，2，YYQX1Rec(R-Z*P,U+Z(K-Q)*180/(3R):A+IX：B+JY：Cls：“X=”：Locate 3，2，X：“Y=”：Locate 3，2，YHHQX1L-L(5)/(40R2S2)+L(9)/(3450R(4)S(4) A:Z*(L(3)/(6*R*S)-L(7)/(336*R(3)*S(3) B:C+A*cos(U)-B*sin(U) N:D+A*sin(U)+B*cos(U) E:U+Z(90+90L2/(3R*S) F:If T*P0:Then F+180F:IfEnd:N+Rec(Abs(P),F) X:E+JY: Cls：“X=”：Locate 3，1，X：“Y=”：Locate 3，2，Y曲线要素子程序：1、直线段ZX1YS3474450.014C:496004.382D:97。34。16.7。U:93507.6963Q注：Q是原点的施工桩号，本处为DK93+507.6963,下同。ZX2YS3471195.0146C:515772.9584D:119。18。30.3。U:113618.932QZX3YS3470066.2347C:518877.4827D:97。05。14.41。U:116955.365Q2、圆曲线段YQX1YS3465252.6774A:512052.9764B:10。18。47.04。U:7000R:110963.209Q:1ZYQX2YS3475568.9123A:519224.1037B:205。49。06.84。U:5500R:114822.295Q:-1Z3、缓和曲线段HHQX11YS3472238.436C:512643.5636D: 97。34。15.7。U:7000R:670S:1Z:110293.209Q:1T:K-QLHHQX12YS3471195.0146C:515772.9584D: 299。18。30.3。U:7000R:670S:-1Z:113618.932Q:1T:Q-KLHHQX21YS3470933.9277C:516238.0497D: 119。18。30.3