数模论坛

 找回密码
 注-册-帐-号
搜索
热搜: 活动 交友 discuz
查看: 5451|回复: 0

人 狗 鸡 米

[复制链接]
发表于 2005-8-30 19:10:44 | 显示全部楼层 |阅读模式
<FONT color=#cc3333>t = {{1, 1, 1, 1}, {0, 0, 0, 0}, {1, 1, 1, 0}, {0, 0, 0, 1}, {1, 1, 0, 1}, {0,<BR>         0, 1, 0}, {1, 0, 1, 1}, {0, 1, 0, 0}, {1, 0, 1, 0}, {0, 1, 0, 1}};<BR>tt = {{1, 0, 0, 0}, {1, 0, 1, 0}, {1, 1, 0, 0}, {1, 0, 0, 1}};<BR>tb = {1, 1, 1, 1};<BR>te = {0, 0, 0, 0};<BR>p = {};<BR>tx = tb;<BR>AppendTo[p, tb];<BR>For[j = 1, j &lt;= 10, j++,<BR>  For[i = 1, i &lt;= 4, i++,<BR>    tx = tb;<BR>    tx = tx + tt[];<BR>    For[k = 1, k &lt;= 4, k++,<BR>      If[tx[[k]] == 2, tx[[k]] = 0]];<BR>    If[MemberQ[t, tx] &amp;&amp; (! MemberQ[p, tx]), Print[tt[]]; tb = tx; <BR>      AppendTo[p, tb]] ];<BR>  <BR>  If[tb == te, Break[]]</FONT>
您需要登录后才可以回帖 登录 | 注-册-帐-号

本版积分规则

小黑屋|手机版|Archiver|数学建模网 ( 湘ICP备11011602号 )

GMT+8, 2022-11-29 05:41 , Processed in 0.059193 second(s), 18 queries .

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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