煎 茶 岭 隧 道 程 序

（FX-5800P JCL）

Deg:Fix3:Lb10:“N=0+”? K: “Y=”? D: “H=”?H: “DM R=5.72”?U:

If K<330:Then 1019.285+(K-330)×0.015->A:Goto 1:Ifend : If K<33296 : Then If K<33180 : Then 1019.285+(K-330)×0.015 -(K-330)÷（2×8000）->A：Else 1019.401-(K-33296) ×0.014 -(K-33296)÷（2×8000）->A：Ifend: Goto 1:Ifend:

If K<33418.324:Then 1019.401-(K-33296) ×0.014->A:Goto 1:Ifend :

Lb11：“SJ H=”: A◢ A+1.6-H->B : “(YX) H +S -X ”: B◢ If K>326.5 :Then If K<32705.5 : Then : Goto 2: Ifend :Ifend: U-√￣(O+B) ->I: “(YX)=>S +Y -N”: I◢ If B<0:Then Goto 4: Else Goto 6:Ifend :

Lb14：√￣(U-B)-Abs(D) ->I: “SP +Y -N”: I◢ √￣(U-D)+B ->J: “CZ +S -X”: J◢ Goto 0:

Lb16：5.7188-(5.7188-5.4756) ÷(2.48-0.12) ×(Abs(B)-0.12)- Abs(D) ->I: “SP 1----1 +Y -N”: I◢

Abs(B)-(3.49-(3.49-2.4849) ÷5.4756 ×Abs(D)) ->J: “CZ +S -X”: J◢

15-√￣(D+(B + 12)) ->J: “(YX)=>S +Y -N”: J◢ (12+ B )- √￣(15-D) ->J: “YG CZ +S -X”: J◢ B-1.6- Abs(D) ×0.02-> J:

2

22

2

2

2

2

2

2

222

“GLDB +S -X”: J◢Goto 0: (加宽道程序)

Lb12：D+1.5->E: “JKD Y=”: E◢A-1.5×0.02+U×Cos(43)-H->L: If L<0:Then Goto 3: Else Goto 5:Ifend :

Lb13：U-√￣(E+( A-1.5×0.02-H)) ->I: “(YX)=>S +Y -N”: I◢ √￣(U-E)+ ( A-1.5×0.02-H) ->J: “CZ +S -X”: J◢ Goto 0: Lb15：5.75+(U-7.95) ->M: If Abs(E)>1.5:Then M - √￣((Abs(E)-1.5)

2

2

2

2

2

+ B) ->I: “(YX)=>S +Y -N”: I◢ √￣(M-B)-

2

2

222

(Abs(E)-1.5) ->I: “SP +Y -N”: I◢ Ifend :21-√￣(E+(B+17.4)) ->I: “(YX)=>S +Y -N”: I◢ (B+17.4 )- √￣(21-E) ->J: “CZ +S -X”: J◢ If D<=-4: Then : B-1.6- 0.08 - (D + 4) ×0.01-> J: Else B-1.6- Abs(D) ×0.02-> J: Ifend : “GLDB +S -X”: J◢Goto 0

2

2