文档介绍：Main:任意直线、圆曲线放样
1->N:LB1 1:CLS:LOCATE 3,1, “ZHI:1 QU:2”:?N:N≠1 AND N≠2=>GOTO1
”XA”?A:”YA”? B :”HA”?C:”K0”? K: ”PING”?T:”BIAN PO”?P:
N=1=>Prog”FY1”: N=2=>Prog”FY2”
FY1:
“shu qu?No:1,Yes:2”?N
N=1=>Goto 0:N=2=>Goto 2
Lb0
Prog”FY5”:”HB”? H:
Lb1 1:Prog”FY6”:PROG”F1”: PROG”F3”:Prog”FY3”:
GOTO1
Lb1 2
Prog”FY5”:“H(ding dian)”?H: “K(ding dian)”?C: “T(QIE XIAN)”?G: “ZHONG PO1”?X: “ZHONG PO2”?Y:
Lb1 3
Prog”FY6”:J->W:Prog”F4”: PROG”F3”:
Prog”FY4”:
Prog”FY3”:
Goto 3
F4
Prog”FY7”:POL(L-A,M-B): J<0=> J+360->J:
J-W->w: Icos(AbsW) ->D: Return
FY4
D-C->S
X≠Y=>GOTO1: X=Y=>GOTO 2
Lb1 1: 2G÷(Y-X)->V:H+(S+V(X+Y) ÷2)2÷(2V)-VXY÷2->Z: Return
Lb1 2:H+SX->Z:Return
F1
J->W: (H-C)/I->U
Prog”FY7”:POL(L-A,M-B): J<0=> J+360->J:
J-W->w: Icos(AbsW) ->D: UD+C->Z: Return
F3
’K+”:K+D->D◢(桩号)
”PJ:+R –L”:IsinW->I◢(偏距)
Return
FY2:
Lb1 1:Cls:Locate 3,1,“L-PIAN:1 R-P:2”:? N:N≠1 AND N≠2=>GOTO1
1-V:“shu qu?No:1,Yes:2”?V
V=1=>Goto 2:V=2=>Goto 4
Lb1 2:Prog”FY5”:?R:”ZHONG PO”? U: Lb1 3:Prog”FY6”:PROG”F2”: Prog”FY3”: GOTO3
Lb1 4:
Prog”FY5”: ?R: “H(ding dian)”?H: “K(ding dian)”?C: “T(QIE XIAN)”?G: “ZHONG PO1”?X: “ZHONG PO2”?Y:
Lb1 5:Prog”FY6”:PROG”F2”: Prog”FY4”: Prog”FY3”: GOTO5
F2
J->V:N=1=> J-90->J:
N=2=> J+90->J:
J<0=> J+360->J:
A+RcosJ->Z: B+RsinJ->S:
Prog”FY7”: J->W:Pol(L-A,M-B): J<0=> J+360->J:
Icos Abs(J-V) ->D:IF D<0:THEN ”K+”:K+D->D◢
Return:IFEND
Pol(L-Z,M-S):