147362638 发表于 2013-11-16 21:32:06

没算过啊,不只从哪下手啊

玄野計 发表于 2013-11-17 01:16:55

多看才回懂回貼是支持謝謝分享~

455594853 发表于 2014-5-16 21:45:28

好像很深,看不明白

xyz360 发表于 2014-6-22 03:36:26

多谢,学习了。

ya_blueang 发表于 2015-2-18 17:19:23

學習,謝謝樓主分享

ya_blueang 发表于 2015-2-19 11:55:06

學習,謝謝樓主分享

ya_blueang 发表于 2015-2-19 18:34:12

學習,謝謝樓主分享

千江月影 发表于 2015-2-25 11:33:13

本帖最后由 千江月影 于 2015-2-25 11:36 编辑

此算法没有上机测试,有条件的可试一下
#618=123(#110)

#616=0 (数字范围值的初始化 )
#617=0 (刻字循环次数的初始化 )
WHILE[#618GE#616]DO1
#616=#616*10 (数字的值的范围 )
IF[#616EQ0]THEN#616=1(针对个位数的范围变通赋值为1 )
#617=#617+1 (循环次数 )
END1
#616=#616/10 (数字范围值减位计算 )
#617=#617-1 (刻字循环次数减位计算 )
IF[#617GT13]THEN#3000=1(报警:超出12位数的范围 )

G90 G00 X0 Y0
G00 Z100
#501=0(初始化)
#502=0(初始化)
#503=0(初始化)
#504=0(初始化)
WHILE[#617GE1]DO1(选择数字1234 )
#619=FIX[#618/#616] (取整数)
#620=#619 (分步计算:防止为零值时出错 )
IF[#620EQ0]THEN#620=10 (为零值时的#620的值为10 )
GOTO#620
(*****1234..N*****)
N1 (1)
#501=0
GOTO20

N2 (2)
#502=0
GOTO20

N3 (3)
#503=0
GOTO20

N4 (4)
#504=0
GOTO20
(*******************)
N20
END1
G98 G83 Z-10 R5 Q10 K0
X-50Y-50K (第一个孔 )
X-50 Y50K (第二个孔 )
X50 Y50 K (第三个孔 )
X50Y-50 K (第四个孔 )
G80 Z100

M30

puj82 发表于 2015-3-2 15:57:59

经典啊,写的好

羅蓋仙 发表于 2015-3-2 21:35:20

您真假會:D
页: 1 2 3 4 5 6 7 8 [9] 10 11 12
查看完整版本: 宏程序人工智能算法