5800不等长缓和曲线计算

《5800不等长缓和曲线计算》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、标准文案5800不等长缓和曲线计算“XLZBJSCX”◢LB1  1↙CLS:FIX4:30→DIMZ↙“K=”?K◢（计算里程）IF  K<本段曲线终点里程  AND  K≥上段曲线终点里程：THEN  本段终点里程→Z[1]:上段曲线终点里程→Z[2]：曲线偏角→A:1→I（注：左偏曲线输入-1→I,右偏曲线输入1→I）:半径→R:第一缓和曲线→Z[6]:第二缓和曲线→Z[7]:T1切线→Z[12]:T2切线→Z[13]:交点X→B:交点Y→C:小里程向交点方位角→E:交点向大里程方位角→F:GOTO  2:IFEND↙…………

2、LB1  2↙（曲线要素计算）Z[6]/2-Z[6]^3/(240*R^2)+Z[6]^5/(34560*R^4)→Z[8]↙  （M1）Z[7]/2-Z[7]^3/(240*R^2)+Z[7]^5/(34560*R^4)→Z[9]↙  （M2）Z[6]^2/(24*R)-Z[6]^4/(2688*R^3)→Z[10]↙  （P1）Z[7]^2/(24*R)-Z[7]^4/(2688*R^3)→Z[11]↙  （M2）π*A*R/180+0.5*(Z[6]+Z[7])→S↙（曲线长）90*Z[6]/(R*π)→Z[14]↙（第一缓和

3、曲线总偏角）90*Z[7]/(R*π)→Z[15]↙（第二缓和曲线总偏角）大全标准文案B+Z[12]*COS(E+180)→Z[16]↙（ZH点X）C+Z[12]*SIN(E+180)→Z[17]↙（ZH点Y）Z[1]-S→Z[3]↙(ZH点里程)Z[1]-S+Z[6]→Z[4]↙(HY点里程)Z[1]-Z[7]→Z[5]↙(YH点里程)GOTO3↙LB1  3↙(判断里程点与曲线关系)IF  K≤Z[3]  AND  K>Z[2]:THEN  GOTO  4:IFEND↙IF  K≤Z[4]  AND  K>Z[3]:THEN  

4、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→T:PROG“TYZBCX”：GOTO  1↙LB1  5↙（第一缓和曲线独立坐标）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

5、*Z[6]^3)→Y↙90*H^2/(R*π*Z[6])→T↙IF  I>0  ：THEN  T+E→T:ELSE  E-T→T:T<0=>360+T→T:IFEND↙PROG“TYZBCX”：GOTO  1↙LB16↙（圆曲线独立坐标）K-Z[4]→H↙H*180/(R*π)+Z[14]→T↙R*SINT+Z[8]→X↙R*(1-COST)+Z[10]→Y↙IF  I>0  ：THEN  T+E→T:ELSE  E-T→T:T<0=>360+T→T:IFEND↙PROG“TYZBCX”：GOTO  1↙LB17↙（第二缓和曲线独立

6、坐标）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↙大全标准文案IF  I>0  ：THEN  F-T→T:T<0=>360+T→T:ELSE  F+T→T:IFEND↙PROG“TYZBCX”：GOTO  1↙子程序：“TYZBCX”

7、↙（统一坐标计算）IF  I<0  :THEN  -Y→Y:IFEND↙“QXJ=”:T◢（切线方位角）Z[16]+X*COSE-Y*SINE→Z[18]↙Z[17]+X*SINE+Y*COSE→Z[19]↙“XI=”:Z[18]◢（中线X）“YI=”:Z[19]◢（中线Y）“PJ=”?J◢(输入边桩与线路夹角，左-右+)“PD=”?D◢（输入边桩距）Z[18]+D*COS(T+J)→Z[20]↙Z[19]+D*SIN(T+J)→Z[21]↙“XP=”:Z[20]◢（边桩X）“YP=”:Z[21]◢（边桩Y）RETURN↙大全标准文

8、案4850程序转换成5800的方法4850程序转换成5800的方法好多同行有了4800或者4850的程序还要到处找5800的程序，不如自己搞定不求人，当然你想使用5800的其他功能，另当别论！1、赋值命令变化：如X=X＋R×cos（J