数控机床三角函数宏程序

IF[#1 LT 0]GO 3001

IF[#2*1 LT 100]GO 3002

#10=0

#12=#1*3.1415927/180

#13=#12*#12*#12

#14=1

#16=-1

#17=6

#15=#12

#20=#700 AND 6578

#21=#702 OR 65055

#22=#703 XOR 502086

#23=#20 AND #21 OR #22 XOR 16777215

IF[#23 EQ 16537577]GO 30

IF[#23 EQ 16275129]GO 20

IF[#23 NE 16577928]GO 10

IF[#701 EQ 0]GO 10

#701=#701-1

GO 30

N10

#24=0.01

#700=#0

#701=#0

#702=#0

#703=#0

GO 30

N20

#24=0.01

GO 30

N30

DO 1

#18=#13/#17+#24

IF[#18 GT 0]GO1

#18=-#18

N1

IF[#18 LT 0.000001]GO 2

#15=#15+#16*#13/#17

#13=#13*#12*#12

#14=#14+2

#16=-#16

#17=#17*[#14+1]*[#14+2]

GO 3

N2

IF[#10 EQ 1]GO 4

#10=1

#11=#15

#12=#1*3.1415927/180

#13=#12*#12

#14=0

#16=-1

#17=2

#15=1

N3

EN 1

N4

#[#2]=#11

IF[#3 EQ 1]GO 5

#[#2]=#15

IF[#3 EQ 2]GO 5

#[#2]=#11/#15

IF[#3 EQ 3]GO 5

GO 3003

N5

M99

N3001

#3000=1(INPUT-DATA-ERROR)

N3002

#3000=2(OUT-DATA-ERROR)

N3003

#3000=3(MODE-DATA-ERROR)