西欧5800P隧道程序

西欧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-Q2V÷240M:90Q÷πB:(R+P)tan(A÷2)+MT:ARπ÷180+Vl:porg“3”:GX:HY←┘

 

程序3:

RVQ:s-s^(5) ÷40÷O2+S^(9) ÷3456÷Q^(4)G:S^Q(3) ÷6÷Q-S^(7) ÷336÷Q^(3)+S^(11) ÷42240÷Q^(5) H:90S2÷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-X2÷2÷RY:“BMZ=”:Y◢

程序SP

S-P+TX←┘

H-(T-X) x B÷100+X2÷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

√((I-2.5)+(H-H[1])2-RC:”XR=”:C◢

程序Y-2

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

LbI 1←┘

√((I-2.8)+(H-(J+D)))-RC:"XR=":C◢

LbI 2←┘

√((I-2.2)+(H-(J+D)))-RC:"XR=":C◢

 

程序YIII

?Q←┘

Q-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)2+(H-J)2)-RC:”XR=”: C◢

程序Z-2

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

LbI 1←┘

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

:C◢

LbI 2←┘

√((I-2.8)2+(H-(J+D))2)-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” ←┘

  • 发表于 2018-11-05 14:12
  • 阅读 ( 72 )
  • 分类:5800

你可能感兴趣的文章

相关问题

0 条评论

请先 登录 后评论
admin
admin

174 篇文章

作家榜 »

  1. admin 174 文章
  2. 胡亮 4 文章
  3. 梁雄 2 文章
  4. 肖肖 2 文章
  5. 老Y 2 文章
  6. netbee 1 文章
  7. 秦汉 1 文章
  8. boyving 1 文章