万能程序77.docVIP

fx-5800P万能计算程序 主程序（1ZBJS） Lbl4:“Z11,Y22”?I:“1ZS,2FS”?N:?S:Prog”PMSJ” ↙ 1÷P→C:(P-R)÷(2HPR)→D:180÷∏→E:N=1=Goto1:Goto2↙Lbl1:”DZ”?Z:Abs(S-O)→W:Prog“SUB1”：“XS”：X◢“YS”：Y◢Prog“SQXJS”: F-90→F：Prog “CQW” Goto4↙ Lbl 2：”X”？X： “Y”？Y：X→：Y→J： Prog“SUB2”：O+W→S：“S”：S“Z”：ZProg“SQXJS”:Prog“CQW”:Goto4↙ 坐标正算子程序（SUB1） 0.1739274226→A： 0.3260725774→B： 0.0694318442→K： 0.3300094782→L： 1-L→F： 1-K→M：U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Acos(G+QEMW(C+MWD)))→X： V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Asin(G+QEMW(C+MWD))) →Y： G+QEW(C+WD)+90→F： X+Zcos（F）→X： Y+Zsin（F）→YG-90→T：Abs( (Y-V)cosT-(X-U)sin(T) →W：0→Z↙ Lbl0：Prog SUB1T+QEW(C+WD) →L： (J-Y)cos（L）-(-X)sin（L）→ZIF Abs（Z）1E-6：Then:Else W+Z→W：Goto:IfEnd↙Lbl1:0→Z: Prog SUB1：(J-Y) ÷sin（F）→ZIF S≧***（线元点里程）:Then***→G（线元起点方位角）:***→O（线元起点里程）:***→U（线元起点X）:***→V（线元起点Y）:***→P（线元起点曲率半径）:***→R（线元终点曲率半径）: ***→H（线元起点至终点长度）：0或1、-1→Q:IfEnd↙IF S≧***（线元点里程）:Then***→G（线元起点方位角）:***→O（线元起点里程）:***→U（线元起点X）:***→V（线元起点Y）:***→P（线元起点曲率半径）:***→R（线元终点曲率半径）: ***→H（线元起点至终点长度）：0或1、-1→QIfEnd↙ 竖曲线数据库子程序（SQXJS） If S＜坡终点And S≥坡起点And：Then坡度→A：坡度→B：坡点里程→O：坡点高度→G：半径→R：Prog“ZSQX”:IfEndIf S＜坡终点And S≥坡起点And：Then坡度→A：坡度→B：坡点里程→O：坡点高度→G：半径→R：Prog“ZSQX”:IfEnd有多个竖曲线，依照上面的依次变更，每多一个，就增加一个。每次只需要修改以上的数据或增加一个判断，子程序不用变动ZSQX） O-S→L:A-B→W:Abs(R×W÷2) →T:O-T→M:O+T→P↙ If S≤M:Then G-L×B→H:Goto5:Else If S≤O:Then Goto3:Else If S≤P:Then Goto4:IfEnd: IfEnd: IfEnd↙ Lbl 3:If W＞0：Then G+(M-S)2÷2÷R-LB→H:Goto5: Else If W＜0: Then G-(M-S)2÷2÷R-LB→H:Goto5: IfEnd: IfEnd↙ Lbl 4:If W＞0：Then G+( S-P)2÷2÷R-LA→H:Goto5: Else If W＜0: Then G-( S-P)2÷2÷R-LA→H:Goto5: IfEnd: IfEnd↙ Lbl 5:H→H:”H”:H◢ 超欠挖控制子程序（CQW） Fix3: H1?F:F-H→F: If I=11:Then Abs(6.545+Z) →Z: IfEnd↙ If I=22: Then Abs(6.545-Z) →Z: IfEnd↙ 8.85 →R:4.85 →P:2.05 →T:20.087 →J↙ If F≧4.3208: Then√(Z2+(F+0.6)2)-R →W: IfEnd↙ If F≧0.155 And F＜→W:IfEnd↙ If F≤0.155 And F≧-1.1301: Then√((Z-5.932)2+(0.806-F)2)-T →W:IfEnd↙ If F≤0.155 And Z≤6.6061 And Z≧0: Then√(Z2+(17.84-F)2)-J →W: IfEnd: W=:W◢ 使用说明 1、规定(1) 以道路中线的前进方向（