数控车高级宏程序逻辑运用的题目

jiangssli

8 P9 `9 A* F0 F4 g  t( I& I


& _+ i( O. a) @

当#200=0时;切槽1.2.3.4.5，
      =1切槽1，
      =2切槽2，
" }" L' y: s7 _6 k. V      =3切槽3，
      =4切槽4,
      =5切槽5,
! s, ?! Y/ H, B      =12切槽1、2，
      =13切槽1、3，
8 V- Z, W) g# |/ F$ g      =14切槽1、4，
1 @, c2 S# ^, [9 U0 S0 R      =15切槽1﹑5,
9 ^* g# f# r$ b$ u" I2 @      =23切槽2、3,
7 e* Q6 w9 d. A; |( X      =24切槽2、4，
      =25切槽2﹑5
/ C( c- d) A) ?) g6 H1 I- Z      =34切槽3、4，
9 j; ]0 b% I# o( N: d; m      =35切槽3﹑5,
      =123切槽1、2、3，

      =124切槽1、2、4，

      =125切槽1、2、5，
( v& m3 x; h# u+ x! J, d/ ~      =134切槽1、3、4,
8 C# \! g* N8 @" M+ I6 [, {2 B: G# K      =135切槽1、3、5,

      =145切槽1、4、5
" U9 ^' j( x" c! |      =234切槽2、3、4,   
      =235切槽2、3、5,

      =245切槽2、4、5，
: a, ], a$ p8 W# n/ [8 s8 T      =345切槽3﹑4﹑5,
5 U) v. A# r4 |9 b/ b9 W" w1 \' g      =1234切槽1﹑2﹑3﹑4,
      =1235切槽1、2、3、5,

      =1245切槽1、2、4、5,

      =1345切槽1、3、4、5,
$ e: O( }% I; k. e. S$ B      =2345切槽2﹑3﹑4﹑5.
" J; E5 U2 @9 e
; s/ V) F6 R5 Q" e/ S) [要求：只能用五组坐标实现,力求把程序做到最简短!

8 `. q6 m- d8 T0 o  d1 B; _这个题目是以前在其它必威APP精装版下载发过的!现在转贴在这里,请各位大侠多讨论下!!
( q; Z- u: ~# D

2010dengkai

假如是我我不用宏，用宏太伤脑了。

jiangssli

' ]) q  D2 |) B+ h4 C* ]/ d4 \$ o. f我把程序上传吧,除了老邓哥哥以外...居然没有一个人看得出这个题目的真正含义!!!!!

M3S500T101

#1=13

#200=0

#10=31

IF[#200EQ0]GO5

#200=1

#10=1

IF[#200EQ1]GO5

#200=2

#10=2

IF[#200EQ2]GO5

#200=3

#10=4

IF[#200EQ3]GO5

#200=4

#10=8

IF[#200EQ4]GO5

#200=5

#10=16

IF[#200EQ5]GO5

#200=12

#10=3

IF[#200EQ12]GO5

#200=13

#10=5

IF[#200EQ13]GO5

#200=14

#10=9

IF[#200EQ14]GO5

#200=15

#10=17

IF[#200EQ15]GO5

#200=23

#10=6

IF[#200EQ23]GO5

#200=24

#10=10

IF[#200EQ24]GO5

#200=25

#10=18

IF[#200EQ25]GO5

#200=123

#10=7

IF[#200EQ123]GO5

#200=124

#10=11

IF[#200EQ124]GO5

#200=125

#10=19

IF[#200EQ125]GO5

#200=135

#10=21

IF[#200EQ135]GO5

#200=145

#10=25

IF[#200EQ145]GO5

#200=234

#10=14

IF[#200EQ234]GO5

#200=235

#10=22

IF[#200EQ235]GO5

#200=245

#10=26

IF[#200EQ245]GO5

#200=345

#10=28

IF[#200EQ345]GO5

#200=1234

#10=15

IF[#200EQ1234]GO5

#200=1235

#10=23

IF[#200EQ1235]GO5

#200=1245

#10=27

IF[#200EQ1245]GO5

#200=1345

#10=29

IF[#200EQ1345]GO5

#200=2345

#10=30

IF[#200EQ2345]GO5

IF[#200EQ#0]GO3000

N5G0X52M8

IF[[#10AND1]EQ0]GOTO10

G0Z[-#1]

G75R0.5

G75X44P500F80

N10#1=#1+10

IF[[#10AND2]EQ0]GOTO20

Z[-#1]

N20#1=#1+10

IF[[#10AND4]EQ0]GOTO30

Z[-#1]

N30#1=#1+10

IF[[#10AND8]EQ0]GOTO40

Z[-#1]

N40#1=#1+10

IF[[#10AND16]EQ0]GOTO50

Z[-#1]

N50G0X100.M9

Z100.M5

M30

N3000#3000=1﹙#200-MODE-ERROR﹚

* S7 e% O  q' k% @

昊天大帝

在书上见过这个图！~！~我也可以编出来 但是达不到你所说的精短！~！~

jiangssli

在下去年刚学会位操作时的原创

天空的樱花

先收了啊，好东西啊，有时间看看

flm0095

好像楼主也掌握了那个分中程序的精要了
这个题目和那个程序所用的原理一样

jiangssli

回复 flm0095 的帖子
6 T9 n- F/ a4 \- ~, n9 U! Y
0 j# N6 x2 S* k0 Z: k哪里哦,那个程序的算法的确不是我目前所能掌握的!只是刚入门!正在学习中,不过进步很慢!!请你有空多多指点啦!!

jiangssli

还有比这个更简短的程序!不过那个程序有一个弊端,就是图中的切槽数目大于9了.就不好判断了!呵呵虽然这个程序比较长,但是就算是有10几个槽 也同样可以达到要求和目的!!
如果社友们多多的来发帖讨论下,我可以把另外的程序也贴出了献献丑!!!!

yukunv6

呵呵！用子程序不快一些吗！？