西欧5800P隧道程序

程序0：

Prog “ZJD1”:prog“1”：Else If S≤61336.196:Then prog“ZJD2”:prog“1”:Tf End←┘

程序000：

Prog“100-2”

程序00：

Prog“01”：prog  “000” ←┘

程序01：

？S←┘

If S≤55343：Then prog “su-z-1”:P-S→X：H+1.28/100→Y: “BMZ=”:Y◢

:Else If s≤55400:Then prog“su-z-1”:prog“SP”:Eise If s≤55457:Then prog“su-z-1”:prog“SH”:Eise If S≤56375:Then prog“SU-Z-1”:prog“SZH”:Eise If s≤56450:Then prog“SU-Z -2”:prog“SP”:Eise If S ≤56525:Then prog “SU-Z-2”:prog“SH” ←┘

程序1：

？M：?S←┘

If M=0:Then Goto 2 :Eise Goto 1LbI 1 prog“2”  prog “4” prog “7” ←┘

Gotox←┘

LbI 2:?E:? F←┘

Prog “2” ←┘

prog “4” ←┘

prog “6” ←┘Goto 2←┘

LbI X←┘

prog“00”

程序100-2：

If S≤53280:Then  prog “ZV”:EIse

If S≤53390: Then  prog “ZIV”:EIse

If S≤55340:Then  prog “ZIII”:EIse

If S≤55580:Then  prog “ZIV”:Eise If

S≤55780:Then  prog “ZIII”:Eise If

S≤56200:Then  prog “ZIV”:Eise If

S≤56350.5:Then  prog “ZM”:Eise If

S≤56445:Then  prog “ZV” ←┘

程序2：

V÷RQ：Qv÷24-VQ^(3) ÷2688P:V÷2-Q²V÷240M:90Q÷πB:(R+P)tan(A÷2)+MT:ARπ÷180+Vl:porg“3”:GX:HY←┘

程序3：

RVQ：s-s^(5) ÷40÷O²+S^(9) ÷3456÷Q^(4)G:S^Q(3) ÷6÷Q-S^(7) ÷336÷Q^(3)+S^(11) ÷42240÷Q^(5) H:90S²÷Q÷πC←┘

程序4：

If s≤u:Then S-uS:us:W-Tcos(0) +Scos(0) X:D-Tsin(0)+Ssin(0) Y:OZ:S+uS:Goto 2:If End ←┘

If S≥u+L：Then s –u-Ls:w+Tcos(0+KA)+Scos(0+KA) X:D+Tsin(0+KA)+Ssin(0+KA) Y:O+kAz:s+L+us:Goto2:If End←┘

If s<u+v:Then s-us:prog“3”:W-Tcos(0)+Gcos(0)-KHsin(0) X：D-Tsin(0)+Gsin(0)+KHcos(0) Y:o+kcz:s+us:Goto2:If End ←┘

If S≤u+L-v:Then Goto3←┘

LbI 3

S-u-v s:180s÷R÷π+BcW-Tcos(0)+(Rsin(c)+M) cos(0)-K(R+P-Rcos(c))sin(0) X:D-Tsin(0)+(Rsin(c)+M)sin(0)+k(R+P-Rcos(c))cos(0) Y:O+kcz:s+u+vs:Goto2:If End ←┘

If S>u+L-v:Then Goto 4←┘

LbI 4←┘

u+L-ss:prog”3”:W+Tcos(0+KA)-Gcos(0+KA)-KHsin(0+kA) X:D+Tsin (0+KA)-Gsin(o+kA)+KHcos(0+kA) Y:o+kA-kcZ:u+L-ss:Goto2:If End ←┘

LbI 2←┘

程序5

If k=0:Then Goto 1: Else Goto 2←┘

LbI 1←┘

Prog”YJD1” ←┘

Prog”1” ←┘

LbI 2←┘

Porg”ZJD1” ←┘

Prog”1” ←┘

程序6：

20DimZ:pol(E-X,F-Y):JJ:If J<0:Then 360+JJ：If End : I z[1]:J-zP:Icos(p) N:s+NS:If Abs(N)<0.0001:Then ss:”s=”:s◢

Prog”N”:prog”00”:Eise Goto 0:If End ←┘

LbI0←┘

Returr

程序7：

？N←┘

x-Nsin(z) G:”XG=”:G◢

Y+Ncos(z) H:”YG=”:H◢

程序8：

If k=0:Then Goto 1: Eise Goto 2LbI 1←┘

Prog”YJD2” ←┘

Prog”1” ←┘

LbI2←┘

Prog”ZJD2” ←┘

Prog”1” ←┘

程序D-III

7.05R：6.7 p:2. 25J:.18D ←┘

程序D-IV

7.03R←┘

6.68P←┘

2.25J←┘

.18D ←┘

程序D-M

7.27 R←┘

6.93P←┘

2.77J←┘

.16D ←┘

程序D-V

7.08R←┘

6.73P←┘

2.25J←┘

.18D←┘

程序N

If z≥270 :Then Goto1:Eise Goto 2LbI 1←┘

z-180 Z:If J>z:Then Ix-1I:”N=”:I ◢

Eise I I :”N=”:I◢

LbI2

If J<Z:Then IX-1I :”N=”:I ◢ Eise II:”N=”:I◢

程序SH

P-S+TX:H+(T-X) x Q÷100-X²÷2÷RY：“BMZ=”:Y◢

程序SP

S-P+TX←┘

H-(T-X) x B÷100+X²÷2÷RY：“BMZ=”：Y◢

程序su-z-1

55400p←┘

662.630H←┘

57T←┘

-30000R←┘

-1.28B←┘

-0.9Q←┘

程序su-z-2

56450p←┘

653.179H←┘

75T←┘

15000R←┘

-0.9B←┘

0.1Q←┘

程序SZH

Abs(p-s) x:H+X×Q÷100Y:”BMZ=”:Y◢

程序SZP

P-SX:H+X×B÷100Y:”BMZ=”:Y◢

程序Y

If s≤56070:Then  prog“5”:Eise If s≤61336.196:Then prog “8” ←┘

程序Y-1

√（（Ｉ－２.５）^２＋（Ｈ－Ｈ[1]）²-RC:”XR=”:C◢

程序Y-2

If I >2.8:Then Goto 1:Eise Goto 2 :If End ←┘

ＬbＩ　1←┘

√（（Ｉ－２.８）^２＋（Ｈ－（Ｊ＋Ｄ））^２）－ＲＣ：＂ＸＲ＝＂：Ｃ◢

ＬｂＩ　２←┘

√（（Ｉ-２.２）^２＋（Ｈ－（Ｊ＋Ｄ））^２）-ＲＣ：＂ＸＲ＝＂：Ｃ◢

程序ＹIII

？Ｑ←┘

Ｑ-YH←┘

If H >5.775:Then prog “D-III”: prog”Y-1”:Eise If H>0.1:Then prog “DIII”:prog”Y-2” ←┘

程序Y  IV

？Q←┘

Q-YH←┘

If H>5.765:Then prog “D-IV”:prog “Y-1” :Eise If H>0.1 :Then prog “D-IV” : prog “Y-2” ←┘

程序YM

?Q←┘

Q-YH←┘

If H > 6.405 : Then prog “D-M”:prog “Y-1”:Eise If H > 0.04 : Then prog “D-M” :prog “Y-2” ←┘

程序Y V

？Q-YH ：If H > 5.79 : Then prog “D-V’ : prog “Y-2” ←┘

程序Z-1

√（（I-2.5）²+（H-J）²）-RC:”XR=”: C◢

程序Z-2

If I < 2.8:Then Goto 1: Eise Goto 2←┘

LbI 1←┘

√ ((I-2.2)²+(H-(J+D))²-PC:”XR=”

:C◢

LbI 2←┘

√((I-2.8)²+(H-(J+D))²)-PC:”XR=”:C◢

程序ZIII

？Q←┘

Q-YH←┘

If H > 5.775 : Then prog “D-III” :prog “Z-1”: Eise If H > 0.1: Then prog “D-IV” :prog “Z-2”

程序ZJD1

631886.296W←┘

468139.754D←┘

35°4′′7.94″A←┘

3500R←┘

180V←┘

53012.189u←┘

129°11′40.62″O←┘

-1K←┘

程序IJD2

631382.813W←┘

501950.986D←┘

37°10′28.88″A←┘

4500R←┘

120V←┘

58290.503u←┘

93°57′47.58″O←┘

1K←┘

程序ZM

？Q←┘

Q-YH←┘

If H >6.405 : Then prog “D-M”:prog ”Z-1” : Eise If H> 0.04 Then prog “D-M” :prog “Z-2” ←┘

程序ZV

？Q←┘

Q-YH←┘

If H>5.79 : Then prog “D-V”:prog “Z-1” :Eise If H > 0.1 :Then prog “D-V” : prog “z-2” ←┘

最后编辑：2019-08-01

作者：dawang

这个作者貌似有点懒，什么都没有留下。

站内专栏