5800计算程序(国外英语资料).doc

5800计算程序(国外英语资料)1. main program: general coordinate calculation and lofting procedures ---- intersection point methodProgram name: 1-JDClrmat:Clrvar:Lal 0:10 to DimZ:Norm, 2:1 to A:, A:, XY=1, KMD=2, A:A=1=Goto, 1:A=2=Goto, 2: (choice of positive or negative)Lal 1:Lal A:Prog QX: (line selection, default (line 1) X1=1, (line 2) X2=2.........90 to A: PJ? A:A = Z[1]: (default and 90 degrees to the tangent of the road)Lal B:Do: KM Z:Z=-1=Stop:Z=-2=Break:? Prog K:? D: (input is to calculate mileage, the input -1 is stopped, 2 input error), the default offset pile in 0, left - right, +).Porg Z I+Dcos (Z[2]+Z[1], X:J+Dsin (Z[2]+Z[1], Y:Fix 3: X=: Locate 6,4, X: Y=: Locate 6,4, Y: FWJ: Locate 6,4, Z[2] = (display coordinates, azimuth angle of tangent)Prog S-Z Prog 3-GC: H=: H (elevation calculation and display, such as the need of elevation in this part can be omitted)Prog 5-SD: -CW +QW=: M (tunnel overbreak, such as do not need this part can be omitted)LpWhile Z = -1 (Goto B, here you can also use this command)Lal 2 Prog QX: (line selection, default (line 1), X1=1, (line 2), X2=2...Lal C:Do: KM Z:Z=-1=Stop:Z=-2=Break:? (probably input pile, the inverse input -1 is stopped, the input -2 error) Prog K: X0? X: Y0 Y: Porg B Fix? 3: KM: Lcoate 6,4, Z: D=: Locate 6,4, DProg S-Z Prog 3-GC: H=: HProg 5-SD: -CW +QW=: MLpWhile Z = -1 (Goto C, here you can also use this command)2. line central segment discrimination subroutine (K)Program name: KIf Z[3]=0:Then Return: IfEnd:If Z[3]=1:Then Prog X1 Return:IfEnd:If Z[3]=2:Then Prog X2 Return:IfEnd:If Z[3]=n:Then Prog Xn: Return:IfEnd..... (behind can increase N lines!! But you need to make changes in the QX program -- QX:, =0, X1=1, X2=2, Xn=n.3. line selection subroutine (line selection 0. Then the curve parameter (QX) is calculatedProgram name: QX1 to A:, QX:, =0, X1=1, X2=2, A:A = Z[3]:If, A=0:Then, JDKM, O:, XJ, U:, V:, FWJ, G:, ZJ, YJ, PLS1, H:, LS2, N:, R:IFEnd?4. intersection method positive subroutine (Z)Program name: ZH2 / R / 2