找回密码
 注册会员

QQ登录

只需一步,快速开始

搜索
查看: 28165|回复: 79

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

 火... [复制链接]
发表于 2011-5-16 15:39:52 | 显示全部楼层 |阅读模式
本帖最后由 jiangssli 于 2011-5-16 16:11 编辑 7 o/ p9 W' I/ d, }+ z( q
" J9 E- b0 W% P1 ]  H# R  a

# p) x' \' I6 _8 ~9 x" Q+ q* X" N2 A* }5 }6 r, G' S- U. `
当#200=0时;切槽1.2.3.4.5,
  D. J; o! R5 p# M9 H      =1切槽1,
* }' @" u0 v8 K& J3 D$ u      =2切槽2,- ]" D* [, @" B6 n  Y
      =3切槽3,; P" ?. g. M+ [, V3 O
      =4切槽4,
, F. t# G- i1 f8 O$ I; L4 l3 O( d, F      =5切槽
5,
& K  C1 X, J4 \6 {/ f      =12切槽1、2,

  ~$ E/ _- I9 Q      =13切槽1、3,5 m* n) L" e8 L2 }2 s* S
      =14切槽1、4,
; N( v  i  d5 o; v( V) X      =15切槽1﹑5,  t1 b  A4 c: E* v; u6 q8 l
      =23切槽2、
3,
2 R, y9 w$ ~% R: D      =24切槽2、4,

$ m5 |2 Z+ ?1 z5 R* O8 ^4 {      =25切槽2﹑5
! v. u9 n6 P( [) m      =34切槽3、4,

2 v2 p$ Y/ V# [& x& }  Z      =35切槽3﹑5,
1 x' I- c5 {: K2 l: N- u/ Q. a      =123切槽1、2、3,
      =124切槽1、2、4,
      =125切槽1、2、5,
  f( f! H' S1 p      =134切槽1、3、4,& w2 ~1 x* v1 I$ f# U
      =135切槽1、3、5,
      =145切槽1、4、51 o; U) b. u& i2 V0 p* ?" _8 O$ }
      =234切槽2、3、
4,   
; v' }- ?3 e: q$ ?      =235切槽2、3、5,
      =245切槽2、4、5,0 L7 S2 C- n% m- U% ~2 i% h
      =345切槽3﹑4﹑5,2 _: f: v& |  A& S7 J5 i
      =1234切槽1﹑2﹑3﹑
4,
6 V% G9 E5 f; d. n. p& E0 U  P      =1235切槽1、2、3、5,
      =1245切槽1、2、4、5,
      =1345切槽1、3、4、5,$ F* [1 h# D/ }2 @
      =2345切槽2﹑3﹑4﹑
5.

0 v# ^6 H: d) [- c# n+ k1 d2 g: v3 X5 p: n! q  b6 c# i
要求:只能用五组坐标实现,力求把程序做到最简短!
8 x8 B! P6 q1 w+ N

1 l8 W: X' q; L( S这个题目是以前在其它论坛发过的!现在转贴在这里,请各位大侠多讨论下!!
  V4 H1 A8 Q+ Y8 g0 n7 {0 Z. C4 N2 F) N" x# H8 a# a7 U# N+ E

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册会员

×
回复

使用道具 举报

发表于 2011-5-16 22:37:30 | 显示全部楼层
假如是我我不用宏,用宏太伤脑了。
 楼主| 发表于 2011-5-18 13:31:31 | 显示全部楼层
本帖最后由 jiangssli 于 2011-5-18 13:36 编辑 , t# a' T$ Y. _! v

$ C5 p5 u3 u- J- x9 E我把程序上传吧,除了老邓哥哥以外...居然没有一个人看得出这个题目的真正含义!!!!!
/ j! W0 P# w) [* E8 S/ n% ]4 s* w/ P! `. B& }3 G- K0 @$ b/ Y% }
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
. T# ~/ I* e# Q( a! e& b, u5 Z

点评

看不懂啊 哎  发表于 2011-6-18 11:33
发表于 2011-5-18 17:17:16 | 显示全部楼层
在书上见过这个图!~!~我也可以编出来 但是达不到你所说的精短!~!~
 楼主| 发表于 2011-5-18 17:51:18 | 显示全部楼层
在下去年刚学会位操作时的原创
发表于 2011-5-18 18:18:29 | 显示全部楼层
先收了啊,好东西啊,有时间看看
发表于 2011-5-18 22:49:01 | 显示全部楼层
好像楼主也掌握了那个分中程序的精要了: n: j% O, L5 A! x* _
这个题目和那个程序所用的原理一样
 楼主| 发表于 2011-5-19 01:39:34 | 显示全部楼层
回复 flm0095 的帖子
! o$ A' M- s1 w" Q
3 ^" y9 C9 X& s/ a5 d% E哪里哦,那个程序的算法的确不是我目前所能掌握的!只是刚入门!正在学习中,不过进步很慢!!请你有空多多指点啦!!
 楼主| 发表于 2011-5-19 01:57:47 | 显示全部楼层
还有比这个更简短的程序!不过那个程序有一个弊端,就是图中的切槽数目大于9了.就不好判断了!呵呵虽然这个程序比较长,但是就算是有10几个槽 也同样可以达到要求和目的!!5 n: k# C+ K# g) A/ U
如果社友们多多的来发帖讨论下,我可以把另外的程序也贴出了献献丑!!!!
发表于 2011-5-24 12:34:03 | 显示全部楼层
呵呵!用子程序不快一些吗!?
您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

Archiver|手机版|小黑屋|机械社区 ( 京ICP备10217105号-1,京ICP证050210号,浙公网安备33038202004372号 )

GMT+8, 2025-9-19 16:55 , Processed in 0.085721 second(s), 19 queries , Gzip On.

Powered by Discuz! X3.5 Licensed

© 2001-2025 Discuz! Team.

快速回复 返回顶部 返回列表