【mathematica】如何用该软件求下题八颗黑白棋子如图所示围城一圈,然后在两颗同色的棋子中间放颗白棋 在不同色棋子之间放黑棋 放好一圈后拿走上一次的一圈 问棋子变化有何规律? 求具体

来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/07 22:33:14
【mathematica】如何用该软件求下题八颗黑白棋子如图所示围城一圈,然后在两颗同色的棋子中间放颗白棋在不同色棋子之间放黑棋放好一圈后拿走上一次的一圈问棋子变化有何规律?求具体【mathemati

【mathematica】如何用该软件求下题八颗黑白棋子如图所示围城一圈,然后在两颗同色的棋子中间放颗白棋 在不同色棋子之间放黑棋 放好一圈后拿走上一次的一圈 问棋子变化有何规律? 求具体
【mathematica】如何用该软件求下题

八颗黑白棋子如图所示围城一圈,然后在两颗同色的棋子中间放颗白棋 在不同色棋子之间放黑棋 放好一圈后拿走上一次的一圈 问棋子变化有何规律? 求具体编程

黑色为1  白色为0  参考答案是

i=0  a={0,1,0,1,1,1,0,1,0}

i=1  a={1,1,1,0,0,1,1,1,1} 

i=8  a={0,0,0,0,0,0,0,0,0}

求具体解题过程


【mathematica】如何用该软件求下题八颗黑白棋子如图所示围城一圈,然后在两颗同色的棋子中间放颗白棋 在不同色棋子之间放黑棋 放好一圈后拿走上一次的一圈 问棋子变化有何规律? 求具体
作业想必已经交了吧,那就来答一下:
(* 1为黑,0为白 *)
lst = RandomInteger[1, 8];
FixedPointList[BitXor @@@ Partition[#, 2, 1, 1] &, lst] // MatrixForm
顺便进一步尝试后会发现这个现象似乎在棋子数为2的n方时就必然会出现.