5800计算器普通线路全线坐标中边桩计算程序

本文格式为Word版，下载可任意编辑——5800计算器普通线路全线坐标中边桩计算程序5800计算器普通线路全线坐标中边桩计算程序

“XLZBJSCX〞◢

CLS:FIX4:12→DIMZ↙LB11↙“K=〞?K◢（计算里程）

IFKZ[2]:THENGOTO4:IFEND↙IFK≤Z[4]ANDK>Z[3]:THENGOTO5:IFEND↙IFK≤Z[5]ANDK>Z[4]:THENGOTO6:IFEND↙IFK≤Z[1]ANDK>Z[5]:THENGOTO7:IFEND↙LB14↙（里程小于直缓点直线独立坐标）

K-Z[3]→X:0→Y:E→O:PROG“TYZBCX〞：GOTO1↙LB15↙（第一缓和曲线独立坐标）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↙

IFI>0：THENO+E→O:ELSEE-O→O:O360+O→O:IFEND↙PROG“TYZBCX〞：GOTO1↙LB16↙（圆曲线独立坐标）K-Z[4]→H↙

H*180/(R*π)+G→O↙

R*SINO+M→X↙R*(1-COSO)+P→Y↙

IFI>0：THENO+E→O:ELSEE-O→O:O360+O→O:IFEND↙PROG“TYZBCX〞：GOTO1↙LB17↙（其次缓和曲线独立坐标）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+COSA)-U*COSA-V*SINA→X↙T*SINA-U*SINA+V*COSA→Y↙

IFI>0：THENF-O→O:O360+O→O:ELSEF+O→O:IFEND↙PROG“TYZBCX〞：GOTO1↙子程序：“TYZBCX〞↙（统一坐标计算）

IFIZ[2]:THENGOTO4:IFEND↙IFK≤Z[4]ANDK>Z[3]:THENGOTO5:IFEND↙IFK≤Z[5]ANDK>Z[4]:THENGOTO6:IFEND↙IFK≤Z[1]ANDK>Z[5]:THENGOTO7:IFEND↙

LB14↙（里程小于直缓点直线独立坐标）

K-Z[3]→X:0→Y:E→O:PROG“TYZBCX〞：GOTO1↙

LB15↙（第一缓和曲线独立坐标）

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↙

IFI>0：THENO+E→O:ELSEE-O→O:O360+O→O:IFEND↙PROG“TYZBCX〞：GOTO1↙LB16↙（圆曲线独立坐标）K-Z[4]→H↙

H*180/(R*π)+G→O↙R*SINO+M→X↙R*(1-COSO)+P→Y↙

IFI>0：THENO+E→O:ELSEE-O→O:O360+O→O:IFEND↙PROG“TYZBCX〞：GOTO1↙LB17↙（其次缓和曲线独立坐标）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+COSA)-U*COSA-V*SINA→X↙T*SINA-U*SINA+V*COSA→Y↙

IFI>0：THENF-O→O:O360+O→O:ELSEF+O→O:IFEND↙PROG“TYZBCX〞：GOTO1↙子程序：“TYZBCX〞↙（统一坐标计算）IFIJ+360→J:\◢(后视方位角)要素输入按如下红色编写,输完接着编写“LBI2“部分(红色用010在前后代表)

010“DK(ZD)=〞?Z:Z→Z[26]:〞UPDK(UPZD)=〞?Z:Z→Z[27]:〞Z=-1,Y=1〞?O:〞A(PIANJIAO)=〞?A:〞R=〞?R:〞L(S1)=〞?Z:Z→Z[6]:〞L(S2)=〞?Z:Z→Z[7]：“X(JD)=〞?B：“Y(JD)=〞?C：“FWJ=〞?E:E+O*A→FLB11↙“K=〞?K◢（计算里程）

IFKZ[2]:THENGOTO4:IFEND↙IFK≤Z[4]ANDK>Z[3]:THENGOTO5:IFEND↙IFK≤Z[5]ANDK>Z[4]:THENGOTO6:IFEND↙IFK≤Z[1]ANDK>Z[5]:THENGOTO7:IFEND↙LB14↙（里程小于直缓点直线独立坐标）

K-Z[3]→X:0→Y:E→T:PROG“TYZBCX〞：GOTO1↙LB15↙（第一缓和曲线独立坐标）K-Z[3]→H↙

H-H^5/(40*R^2*Z[6]^2)+H^9/(3456*R^4*Z[6]^4)→X↙H^3/(6*R*Z[6])-H^7/(336*R^3*Z[6]^3)→Y↙90*H^2/(R*π*Z[6])→T↙

IFO>0：THENT+E→T:ELSEE-T→T:T360+T→T:IFEND↙PROG“TYZBCX〞：GOTO1↙LB16↙（圆曲线独立坐标）K-Z[4]→H↙

H*180/(R*π)+Z[14]→T↙R*SINT+Z[8]→X↙

R*(1-COST)+Z[10]→Y↙

IFO>0：THENT+E→T:ELSEE-T→T:T360+T→T:IFEND↙PROG“TYZBCX〞：GOTO1↙LB17↙（其次缓和曲线独立坐标）Z[1]-K→H↙

H-H^5/(40*R^2*Z[7]^2)+H^9/(3456*R^4*Z[7]^4)→U↙H^3/(6*R*Z[7])-H^7/(336*R^3*Z[7]^3)→V↙90*H^2/(R*π*Z[7])→T↙

Z[13]COSA+Z[12]-U*COSA-V*SINA→X↙Z[13]*SINA-U*SINA+V*COSA→Y↙

IFO>0：THENF-T→T:T360+T→T:ELSEF+T→T:IFEND↙PROG“TYZBCX〞：GOTO1↙

子程序：“TYZBCX〞↙（统一坐标计算）IFOJ+360→J:\◢（中桩放样方位角）“PJ=〞?P◢(输入边桩与线路夹角，左-右+)“PD=〞?D◢（输入边桩距）Z[18]+D*COS(T+P)→Z[2