正算主程序(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√（D²-（F-H-A）²）-G-AbsZ→W：IfEnd：ifF＞H+A+B：then√（C²-（F-H-A-J）²）-AbsZ→W：IfEnd：“W=”：W◢ （水平方向的超欠挖：正為欠,負(fù)為超）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：
