CASIO中边桩放样程序3.docVIP

CASIO中边桩放样程序3??5800----经典程序（缓＋园＋缓） ?“JD -K”?A：?“JD -H”?B：?“+i，-i”? I：?：?T：?“n+1，u-1”?J：?“”？W：?“K0=”： I÷100→I← “K0=”：A-T?→D◢ “H0=”：B-IT→?E◢ “KZ=“：A+T→?U◢ “HZ=“：E+2TI-4JT2÷（2R）→V◢ Lbl 1：？K：Goto2 Lbl 2：if KD：then Goto3：else Goto4：ifend Lbl 3：“NO”：?Goto1 Lbl 4：if KU：thenGoto3：else Goto6：ifend Lbl 5：K≤U= Goto6 Lbl 6：“H=”：E+（K-D）×I-J（K-D）2÷（2R）-W→H◢ Goto1 JD –K(交点桩号)??JD –H（交点直线高程）+i，-i（后面坡度）R?（竖曲线半径）T（T长）HSGC=（后视高程） 5800计算器公路全线坐标正、反算计算程序2009.7.23 正算主程序(ZS) Lb1 0 FIX4：?S：?Z：Prog?“PM-SJ”：?Abs(S-O) → W：Prog SUB1：?XS=：X◢ YS=：Y◢F-90→F(需要时可以让他显示，不要时不必输入)：Prog“SQX-SJ”:?Prog“SQX”：“H=”：H◢ Goto?0 反算主程序(FS) Lb1 0 FIX4: ?S：?X：？Y：Prog“PM-SJ”：?X→ I：?Y→??J：Prog SUB2：?S=：O+W→S◢Z=：Z◢ Prog“SQX-SJ”：Prog“SQX” ：“H=”：H◢Goto?0 隧道3心圆放样主程序（SD-3XY） Lb1 0：Prog“FS”：1.5→A：1.65→B：0.89→G：2.27→C：3.3→D：2.41→E：0.51→J：“H1”：F：ifF≤H+A：then E-AbsZ→W：IfEnd：ifF＞H+A And F≤H+A+B：then√（Dsup2;-（F-H-A）sup2;）-G-AbsZ→W：IfEnd：ifF＞H+A+B：then√（Csup2;-（F-H-A-J）sup2;）-AbsZ→W：IfEnd：“W=”：W◢??（水平方向的超欠挖：正为欠,负为超）Goto0 正算子程序(SUB1) 1÷P→?C：?(P-R)÷(2HPR)?→?D：?180÷π→?E：?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+ZcosF→?X：?Y+ZsinF→?Y反算子程序(SUB2) G-90→T：?Abs((Y-V)cosT-(X-U)sin（T）)?→?W：?0→?Z：Lbl 0：Prog SUB1：?T+QEW(C+WD)?→L：?(J-Y)cosL-(I-X)sinL?→Z：ifAbsZ1E-6：thenGoto1：ElssW+Z??→?W：Goto?0：IfEnd←┘ Lbl 1：?0→?Z：Prog SUB1：?(J-Y)÷sinF→?Z子程序（平面线形数据库）PM-SJ ifS?≥500（线元起点里程）AndS＜769.256（线元止点里程）：Then19942.837?→U（线元起点X坐标）：28343.561?→V（线元起点Y坐标）：500→O（线元起点里程）：125°16°31°→G（线元起点方位角）：269.265?→H（线元长度）：10^（45）→P（线元起点曲率半径）：10^（45）→R（线元终点曲率半径）：0?→Q（线元左右偏标志：左负右正）：IfEnd←┘ifS?≥769.256（线元起点里程）AndS＜806.748（线元止点里程）：Then19787.34?→U（线元起点X坐标）：28563.378→V（线元起点Y坐标）：769.256→O（线元起点里程）：125°16°31°→G（线元起点方位角）：37.492→H（线元长度）：10^（45）→P（线元起点曲率半径）：221.75→R（线元终点曲率半径）：-1→Q（线元左右偏标志：左负右正）：IfEnd←┘ ifS?≥806.748（线元起点里程）AndS＜919.527（线元止点里程）：Then1976