5800计算机程序5800计算机程序
09-2-1 楼主:121835467 作者: 本文已被浏览 1846 次
5800计算机程序
5800计算器普通线路全线坐标中边桩计算程序
5800计算器普通线路全线坐标中边桩计算程序
“XLZBJSCX” ?
CLS : FIX 4 : 12?DIM Z ?
LB1 1 ?
“K=”?K ?(计算里程)
IF K Z[2] : THEN GOTO 4 : IFEND ? IF K?Z[4] AND K> Z[3] : THEN GOTO 5 : IFEND ? IF K?Z[5] A...
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?
本文档为【5800计算机程序】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑,
图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。