三心圆开挖超欠挖程序.doc

卡西欧计算器FX-5800正反算、隧道超欠挖计算程序 　　　正算主程序 (ZS) ：　　Lb1 0 ： FIX 4 ： ? S ： ?Z ： Prog “ PM-SJ ” ： Abs(S-O) → W ： Prog SUB1 ： XS= ： X ◢ YS= ： Y ◢ F-90 → F ( 必要时可以让他表现，不要时不必输进 ) ： Pro g“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 ： IfEn d ： ifF ＞ H+A And F ≤ H+A+ B ： then√ （ Dsup2;- （ F-H-A ） sup2; ） -G-AbsZ → W ： IfEn d ： ifF ＞ H+A+ B ： then√ （ Csup2;- （ F-H-A-J ） sup2; ） -AbsZ → W ： IfEn d ： “W=” ： W◢ （水平方向的超欠挖：正为欠 , 负为超） Goto0　　正算子程序 (SUB1)　　1÷P → C ： (P-R)÷(2HPR) → D ： 180÷π → E ： 0. → A ： 0. → B ： 0.0 → K ： 0. → 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 （线元止点里程）： Then.837 → U （线元出发点 X 坐标） ： .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 （线元止点里程）： Then.34 → U （线元出发点 X 坐标） ： .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 （线元止点里程）： Then.566 → U （线元出发点 X 坐标） ： .574 → V （线元出发点 Y 坐标） ： 806.748 → O （线元出发点里程） ：