5800计算机程序

5800计算机程序 09-2-1 楼主:121835467 作者: 本文已被浏览 1846 次 5800计算机程序 5800计算器普通线路全线坐标中边桩计算程序 5800计算器普通线路全线坐标中边桩计算程序 “XLZBJSCX” ? CLS : FIX 4 : 12?DIM Z ? LB1 1 ? “K=”?K ?(计算里程) IF K<本段曲线终点里程 AND K?上段曲线终点里程 :THEN 本段终点里程?Z[1] : 上段曲线终点里程?Z[2] :曲线偏角?A : 1?I (注:左偏曲线输入-1?I, 右偏曲线输入1?I): 半径?R : 缓和曲线?L : 交点 X?B :交点 Y?C : 小里程向交点方位角?E : 交点向大里程方位角?F : GOTO 2 : IFEND? ………… LB1 2 ?(曲线要素计算) L/2-L^3/(240*R^2)+L^5/(34560*R^4) ?M ? L^2/(24*R)-L^4/(2688*R^3) ?P ? (R+P)*TAN(A/2)+M?T ?(切线长) π*A*R/180+L?S ?(曲线长) 90*L/(R*π) ?G ?(缓和曲线总偏角) B+T*COS (E+180)? Z[7] ?(ZH点X) C+T*SIN(E+180)? Z[8] ?(ZH点Y) Z[1]-S?Z[3] ?(ZH点里程) Z[1]-S+L?Z[4] ?(HY点里程) Z[1]-L?Z[5] ?(YH点里程) GOTO 3 ? LB1 3 ?(判断里程点与曲线关系) IF K?Z[3] AND K> Z[2] : THEN GOTO 4 : IFEND ? IF K?Z[4] AND K> Z[3] : THEN GOTO 5 : IFEND ? IF K?Z[5] AND K> Z[4] : THEN GOTO 6 : IFEND ? IF K?Z[1] AND K> Z[5] : THEN GOTO 7 : IFEND ? LB1 4 ?(里程小于直缓点直线独立坐标) K- Z[3] ?X : 0?Y : E?O : PROG“TYZBCX” :GOTO 1 ? LB1 5 ?(第一缓和曲线独立坐标) K- Z[3] ?H ? H-H^5/(40*R^2*L^2)+H^9/(3456*R^4*L^4) ?X ? H^3/(6*R*L)-H^7/(336*R^3*L^3) ?Y ? 90*H^2/( R*π*L) ?O ? IF I>0 :THEN O +E?O : ELSE E-O ?O : O<0=>360+O?O : IFEND ? PROG“TYZBCX” :GOTO 1 ? LB1 6 ?(圆曲线独立坐标) K- Z[4] ?H ? H*180/( R*π)+G?O ? R*SIN O+M?X ? R*(1-COS O)+P?Y ? IF I>0 :THEN O +E?O : ELSE E-O ?O : O<0=>360+O?O : IFEND ? PROG“TYZBCX” :GOTO 1 ? LB1 7 ?(第二缓和曲线独立坐标) Z[1] -K ?H ? H-H^5/(40*R^2*L^2)+H^9/(3456*R^4*L^4) ?U? H^3/(6*R*L)-H^7/(336*R^3*L^3) ?V ? 90*H^2/( R*π*L) ?O ? T*(1+COS A)-U*COS A-V*SIN A?X ? T*SIN A-U*SIN A+V*COS A?Y ? IF I>0 :THEN F-O?O : O<0=>360+O?O : ELSE F+O ?O : IFEND ? PROG“TYZBCX” :GOTO 1 ? 子程序: “TYZBCX” ?(统一坐标计算) IF I<0 : THEN -Y?Y : IFEND ? “QXJ=” : O?(切线方位角) Z[7]+X*COS E-Y*SIN E?Z[9] ? Z[8]+X*SIN E+Y*COS E?Z[10] ? “XI=” : Z[9] ?(中线X) “YI=” : Z[10] ?(中线Y) “PJ=”?J?(输入边桩与线路夹角，左-右+) “PD=”?D?(输入边桩距) Z[9]+D*COS(O+J) ?Z[11] ? Z[10]+D*SIN(O+J) ?Z[12] ? “XP=”: Z[11] ?(边桩X) “YP=”: Z[12] ?(边桩Y) RETURN?