數(shù)控車高級宏程序邏輯運(yùn)用的題目

jiangssli

5 z. V* g) n2 ^7 Z( n7 u) u
/ G. j8 _8 B8 z; j2 Z
( e; m7 |8 o* x& g  a2 g6 M% T

當(dāng)#200=0時(shí);切槽1.2.3.4.5，
      =1切槽1，
' r9 x0 q( Z$ d+ g5 p! b  D" {" d      =2切槽2，
2 ]+ W3 p/ L$ D: I1 ^# A. m      =3切槽3，
3 w" p) l0 @# {+ V      =4切槽4,
      =5切槽5,
6 V4 O# E5 P9 x      =12切槽1、2，
* W/ ^& A' l& J2 u7 p: s      =13切槽1、3，
      =14切槽1、4，
      =15切槽1﹑5,
      =23切槽2、3,
/ S$ u2 Y) ]! `6 ^" f4 w      =24切槽2、4，
* e4 B+ b: r  `" u) ~      =25切槽2﹑5
      =34切槽3、4，
- n; _1 m# \1 n, j# B  E) P1 W) x      =35切槽3﹑5,
9 c9 T9 o' R1 t, P* L      =123切槽1、2、3，

      =124切槽1、2、4，

      =125切槽1、2、5，
      =134切槽1、3、4,
9 ~1 u* R# o" c1 n2 l9 ~      =135切槽1、3、5,

      =145切槽1、4、5
- K. H# O8 o- d5 H+ l: D, I4 y      =234切槽2、3、4,   
' S8 \3 R* p% k" W/ T' h      =235切槽2、3、5,

      =245切槽2、4、5，
5 U5 o8 h0 N1 e# e! F      =345切槽3﹑4﹑5,
9 a* |7 _! p* M: x2 Y; r  [( m7 [      =1234切槽1﹑2﹑3﹑4,
2 m5 q% A8 x2 I( `+ \" q      =1235切槽1、2、3、5,

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

      =1345切槽1、3、4、5,
# Q( k, @) [( g/ C; A5 v* j* a  v      =2345切槽2﹑3﹑4﹑5.

8 P' L. \9 s. t: d3 a* h要求：只能用五組坐標(biāo)實(shí)現(xiàn),力求把程序做到最簡短!

這個(gè)題目是以前在其它論壇發(fā)過的!現(xiàn)在轉(zhuǎn)貼在這里,請各位大俠多討論下!!

2010dengkai

假如是我我不用宏，用宏太傷腦了。

jiangssli

我把程序上傳吧,除了老鄧哥哥以外...居然沒有一個(gè)人看得出這個(gè)題目的真正含義!!!!!
! T/ A! ^7 ~* j9 ]! `/ F, f; p$ {

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﹚

# g; [  A) l! F( m3 u% H' E0 o

昊天大帝

在書上見過這個(gè)圖！~！~我也可以編出來 但是達(dá)不到你所說的精短！~！~

jiangssli

在下去年剛學(xué)會(huì)位操作時(shí)的原創(chuàng)

天空的櫻花

先收了啊，好東西啊，有時(shí)間看看

flm0095

好像樓主也掌握了那個(gè)分中程序的精要了
9 S2 x1 z# [; T5 e' I這個(gè)題目和那個(gè)程序所用的原理一樣

jiangssli

回復(fù) flm0095 的帖子

$ k% q$ y$ Q% d哪里哦,那個(gè)程序的算法的確不是我目前所能掌握的!只是剛?cè)腴T!正在學(xué)習(xí)中,不過進(jìn)步很慢!!請你有空多多指點(diǎn)啦!!

jiangssli

還有比這個(gè)更簡短的程序!不過那個(gè)程序有一個(gè)弊端,就是圖中的切槽數(shù)目大于9了.就不好判斷了!呵呵雖然這個(gè)程序比較長,但是就算是有10幾個(gè)槽 也同樣可以達(dá)到要求和目的!!
' h. ?. O7 `4 n9 W3 X# M如果社友們多多的來發(fā)帖討論下,我可以把另外的程序也貼出了獻(xiàn)獻(xiàn)丑!!!!

yukunv6

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