Wolfram|Alpha 計算時顯示的元胞自動機(三)

現(xiàn)在我給 LifeFind (即前面提到的用來搜索生命游戲中的圖樣的那個 Mathematica 包)加上了搜索 Generations 規(guī)則的功能。于是搜吧,它也能夠搜 Wolfram|Alpha 的那個元胞自動機市俊。

搜索速度很慢,而且只能搜周期很小的圖樣赎败,于是其實沒有太多有意思的發(fā)現(xiàn)秕衙。不過,至少振蕩子不再只有那么幾個了僵刮。

運行以下的 Mathematica 代碼之前先要導(dǎo)入 LifeFind 包(當(dāng)然据忘,導(dǎo)入之前先要安裝):

<< Life`

搜索結(jié)果是隨機的。輸入下面的代碼來搜索很可能會搜出不同的圖樣搞糕。

畫圖時懶得畫圈圈了勇吊,就照 LifeFind 函數(shù)原本的輸出吧。

靜物

靜物沒什么好說的窍仰。原本就能搜 B357/S3457 規(guī)則的靜物汉规,只是現(xiàn)在可以把這個規(guī)則寫成 3457/357/5 了。

還可以加點別的條件驹吮,搜個胖乎乎圓滾滾的针史,好看。

LifeFind[59, 59, "Rule" -> "3457/357/5", "Symmetry" -> "D8", 
 "KnownCells" -> {DiskMatrix[29] _}]

搜出的結(jié)果:

x = 59, y = 59, rule = 3457/357/5
25bo7bo$23b5obob5o$18b2ob3ob2ob3ob2ob3ob2o$17bob2obobo2b2ob2o2bobob2ob
o$17b2obob2o2bo2bo2bo2b2obob2o$13b2ob2ob3obob2o2bo2b2obob3ob2ob2o$13b
2obob2obobo2bob3obo2bobob2obob2o$14bob2obo2b5o2bo2b5o2bob2obo$11bo2b2o
bob3o3bo2bobo2bo3b3obob2o2bo$9b5ob2ob3obo3bob3obo3bob3ob2ob5o$9b2ob2ob
o2bo2b5obobobob5o2bo2bob2ob2o$8b2o2bob6o2b2o2bo5bo2b2o2b6obo2b2o$9b4ob
o2bob2o5b2obob2o5b2obo2bob4o$5b2o2b2o2b3obo2b2ob3o2b3o2b3ob2o2bob3o2b
2o2b2o$5b4o2b3o2bobo2b2ob2o2bobo2b2ob2o2bobo2b3o2b4o$8b4obobo2b2o2bobo
b2obob2obobo2b2o2bobob4o$5b3obobo2bob3o3bob2o2bobo2b2obo3b3obo2bobob3o
$3b3ob2o2b3o2b2o2bob2o2bo2bo2bo2b2obo2b2o2b3o2b2ob3o$2bobobo2b3o2b3o2b
4o2bob2ob2obo2b4o2b3o2b3o2bobobo$2b2ob5ob2o2bo2b2obo2b11o2bob2o2bo2b2o
b5ob2o$3b3o2b2o2b2o3b2o2b3obo7bob3o2b2o3b2o2b2o2b3o$2bo2b2obobo2b2o3b
4ob2ob7ob2ob4o3b2o2bobob2o2bo$2b3o2bob3o2b5obobob3o2bo2b3obobob5o2b3ob
o2b3o$b2ob4o2b2obo3bo2b2ob2o9b2ob2o2bo3bob2o2b4ob2o$bobo3bo2bo2b4o2bob
3ob2o2bo2b2ob3obo2b4o2bo2bo3bobo$3o2bob2obo2b2obob3obob11obob3obob2o2b
ob2obo2b3o$b2ob4obob2o2bobobob2ob4obob4ob2obobobo2b2obob4ob2o$bobo6bob
o2bo2b2obo3b2o2bo2b2o3bob2o2bo2bobo6bobo$2b2o2bob2o3b2obob2obo3bo2bobo
2bo3bob2obob2o3b2obo2b2o$b2ob4ob2ob2obobobob2ob4obob4ob2obobobob2ob2ob
4ob2o$2b2o2bob2o3b2obob2obo3bo2bobo2bo3bob2obob2o3b2obo2b2o$bobo6bobo
2bo2b2obo3b2o2bo2b2o3bob2o2bo2bobo6bobo$b2ob4obob2o2bobobob2ob4obob4ob
2obobobo2b2obob4ob2o$3o2bob2obo2b2obob3obob11obob3obob2o2bob2obo2b3o$b
obo3bo2bo2b4o2bob3ob2o2bo2b2ob3obo2b4o2bo2bo3bobo$b2ob4o2b2obo3bo2b2ob
2o9b2ob2o2bo3bob2o2b4ob2o$2b3o2bob3o2b5obobob3o2bo2b3obobob5o2b3obo2b
3o$2bo2b2obobo2b2o3b4ob2ob7ob2ob4o3b2o2bobob2o2bo$3b3o2b2o2b2o3b2o2b3o
bo7bob3o2b2o3b2o2b2o2b3o$2b2ob5ob2o2bo2b2obo2b11o2bob2o2bo2b2ob5ob2o$
2bobobo2b3o2b3o2b4o2bob2ob2obo2b4o2b3o2b3o2bobobo$3b3ob2o2b3o2b2o2bob
2o2bo2bo2bo2b2obo2b2o2b3o2b2ob3o$5b3obobo2bob3o3bob2o2bobo2b2obo3b3obo
2bobob3o$8b4obobo2b2o2bobob2obob2obobo2b2o2bobob4o$5b4o2b3o2bobo2b2ob
2o2bobo2b2ob2o2bobo2b3o2b4o$5b2o2b2o2b3obo2b2ob3o2b3o2b3ob2o2bob3o2b2o
2b2o$9b4obo2bob2o5b2obob2o5b2obo2bob4o$8b2o2bob6o2b2o2bo5bo2b2o2b6obo
2b2o$9b2ob2obo2bo2b5obobobob5o2bo2bob2ob2o$9b5ob2ob3obo3bob3obo3bob3ob
2ob5o$11bo2b2obob3o3bo2bobo2bo3b3obob2o2bo$14bob2obo2b5o2bo2b5o2bob2ob
o$13b2obob2obobo2bob3obo2bobob2obob2o$13b2ob2ob3obob2o2bo2b2obob3ob2ob
2o$17b2obob2o2bo2bo2bo2b2obob2o$17bob2obobo2b2ob2o2bobob2obo$18b2ob3ob
2ob3ob2ob3ob2o$23b5obob5o$25bo7bo!

振蕩子

由于 LifeFind 找不了周期稍大一點的振蕩子碟狞,我其實也沒有多少新的發(fā)現(xiàn)啄枕。

隨便倒一鍋湯,一般都能看到一個周期8的轉(zhuǎn)圈圈族沃。雖然周期有點大频祝,但個頭很小泌参,LifeFind 一搜就出來了:

LifeFind[4, 4, 8, "Rule" -> "3457/357/5", "Changing" -> True]
x = 4, y = 4, rule = 3457/357/5
3.$3A$B2A$.CD!

原本這就是已知的周期最小的振蕩子了。現(xiàn)在有了 LifeFind常空,可以輕松找到周期5的振蕩子(比搜生命游戲里同樣大小的振蕩子快多了沽一,大概因為是 Generations?):

LifeFind[4, 8, 5, "Rule" -> "3457/357/5", "Changing" -> True]
x = 8, y = 4, rule = 3457/357/5
.D.D.AB$4AC2AC$B2A.B2AD$.CD2.A!

稍大一點的:

LifeFind[4, 8, 5, "Rule" -> "3457/357/5", "Changing" -> True]
x = 7, y = 7, rule = 3457/357/5
4.CB$3.D3A$4.2A$.BADBA$C2AC$D2AB$2.A!

加點對稱性條件漓糙,能搜到更漂亮的:

LifeFind[10, 10, 5, "Rule" -> "3457/357/5", "Changing" -> True, 
 "Symmetry" -> "C4"]
x = 10, y = 10, rule = 3457/357/5
4.D$3.B3A$3.C2AB$.AB.DA.CB$.3A2.D2AD$D2AD2.3A$.BC.AD.BA$3.B2AC$3.3AB$
5.D!

有一個長得和它很像的周期6:

LifeFind[10, 10, 6, "Rule" -> "3457/357/5", "Changing" -> True, 
 "Symmetry" -> "C4"]
x = 10, y = 10, rule = 3457/357/5
4.BA$3.C2A$3.D2A$3.BCDBDC$3AD2.C2AB$B2AC2.D3A$.CDBDCB$4.2AD$4.2AC$4.AB
!

以上這幾個振蕩子好像都是周期8轉(zhuǎn)圈圈的變種铣缠。當(dāng)然也有不是的,比如這個兩個細(xì)胞漸漸消失的振蕩子:

LifeFind[8, 8, 5, "Rule" -> "3457/357/5", "Changing" -> True, 
 "Symmetry" -> "D4X"]
x = 8, y = 8, rule = 3457/357/5
6b2o$2b2o2b2o$bob3o$b2o2bo$2bo2b2o$2b3obo$2o2b2o$2o!

還有很多別的振蕩子兼蜈。但由于最小的周期也有5攘残,搜索較大的振蕩子比較困難。這里就不貼出更多結(jié)果了为狸。

飛船

目前找到的飛船速度還是只有 c/2歼郭。不過飛船特別多,也不難搜辐棒。

懶得畫背景會動的圖了病曾。

以下是幾次輸入

LifeFind[16, 16, 4, 2, 0, "Rule" -> "3457/357/5", "Changing" -> True, 
 "Symmetry" -> "D2|"]

得到的結(jié)果:

x = 16, y = 16, rule = 3457/357/5
2$3.D.D4.D.D$.DCBC6.CBCD$.B3A.D2BD.3AB$D.ADABA2CABADA.D$BCABAB4ABABACB
$5A2C2A2C5A$3A2.6A2.3A$6.A2CA$4.CDA2CADC$4.AB4ABA$4.3A2.3A$5.A4.A!
x = 16, y = 16, rule = 3457/357/5
3.D.2A2.2A.D$2.CDC6ACDC$.D.10A.D$CBD4A2.4ADBC$2ABC.BC2ACB.CB2A$.6A2.6A
$.2A.AD4ADA.2A$3.4A2.4A$5.AC2ACA$2.DCD2A2.2ADCD$D.BAB2A2D2ABAB.D$BC2A
2.A2BA2.2ACB$3A3.4A3.3A$3A4.2A4.3A!
x = 16, y = 16, rule = 3457/357/5
$2.2D8.2D$.CBC.CD2.DC.CBC$.3ADB.2A.BD3A$CDA.A.A2BA.A.ADC$ABACA.4A.ACAB
A$5A6.5A$.A.2A6.2A.A$.DC.D6.D.CD$.BACB2.2B2.BCAB$2.3AD.2C.D3A$2.3ABC2A
CB3A$3.2A.4A.2A!
x = 16, y = 16, rule = 3457/357/5
5.BC2.CB$5.2A2.2A$6.4A$DC4.4A4.CD$BAD2BDA2.AD2BDAB$.AB3CA2BA3CBA$.14A$
2.A.A.4A.A.A$2.DC.D4.D.CD$.CBACB4.BCABC$.2A.A.C2.C.A.2A$CDACACA2DACACA
DC$AB5A2B5ABA$3A.A.4A.A.3A$.A5.2A5.A!

也能搜胖乎乎圓滾滾的飛船(不過畢竟是飛船,沒法很圓漾根,像個大蟲子):

LifeFind[47, 47, 2, 1, 0, "Rule" -> "3457/357/5", "Symmetry" -> "D2|",
  "KnownCells" -> {DiskMatrix[23] _}]
x = 47, y = 47, rule = 3457/357/5
2$18.D9.D$16.D.BC7.CB.D$8.DC5.CBC2A.D3.D.2ACBC5.CD$8.BADC.CD3A.ACB3.BC
A.3ADC.CDAB$9.ABA.ABA3.3A3.3A3.ABA.ABA$9.3A.3A3.3A3.3A3.3A.3A$10.A3.A
2.D11.D2.A3.A$3.DC.DCD3.DCD.CB.CD5.DC.BC.DCD3.DCD.CD$3.BACBABC.CBABCA.
CABC3.CBAC.ACBABC.CBABCAB$4.3AD.AD2A.3ADA.2A3.2A.AD3A.2ADA.D3A$4.3ABCA
BA.D3ABA.ADC.CDA.AB3AD.ABACB3A$5.2A.4ACB2A.2A.ABA.ABA.2A.2ABC4A.2A$8.D
.ADA2.DC2A.3A.3A.2ACD2.ADA.D$6.D.BCABAC.BADAD3A.3ADADAB.CABACB.D$.DC.D
CBC.A.3AD.ABABADA.ADABABA.D3A.A.CBCD.CD$.BACBA.ADACA2.BC5ABA.AB5ACB2.A
CADA.ABCAB$2.3ADCAB3ADC.ADA2.3A.3A2.ADA.CD3ABACD3A$2.3AB4A.ABADABA.CDA
3.ADC.ABADABA.4AB3A$3.2A6.3AB3ACAB5.BAC3AB3A6.2A$6.D.D2.4A2.3A7.3A2.4A
2.D.D$3.CDCBCB.D4.CD.2A7.2A.DC4.D.BCBCDC$2.CAB3A.CBCDCDAB.A.C5.C.A.BAD
CDCBC.3ABAC$CDA.A2DAD3ABAB.ACACADC.CDACACA.BAB3ADA2DA.ADC$ABA.A2BABA3.
2AC5ABA.AB5AC2A3.ABA2BA.ABA$3A.6AD.D.3A.A.3A.3A.A.3A.D.D6A.3A$.A3.2A2.
AB.B.2A.D3.A3.A3.D.2A.B.BA2.2A3.A$4.C.A.C.ACACADCB2.D5.D2.BCDACACA.C.A
.C$2.CDACACAD5ABA.CDBC3.CBDC.AB5ADACACADC$2.AB5ABA.A.3A.AB2A3.2ABA.3A.
A.AB5ABA$2.3A.A.2A.D3.A2.3A5.3A2.A3.D.2A.A.3A$3.A3.C.ACBC3.DC3A5.3ACD
3.CBCA.C3.A$5.CDAC4A2.CBA4.CDC4.ABC2.4ACADC$5.AB5A3.2A3.CDABADC3.2A3.
5ABA$5.3A.A.AC.CA.D.CABDADBAC.D.AC.CA.A.3A$6.A3.CDADA2.BDADABABADADB2.
ADADC3.A$10.ABABA2CABAB5ABABA2CABABA$10.3A.8A3.8A.3A$11.A.D4A11.4AD.A$
12.CB.D5.D3.D5.D.BC$12.2ACB3.D.BC.CB.D3.BC2A$13.3A3.BC2A.2ACB3.3A$13.
3A3.3A3.3A3.3A$19.3A3.3A!
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
  • 序言:七十年代末泰涂,一起剝皮案震驚了整個濱河市,隨后出現(xiàn)的幾起案子辐怕,更是在濱河造成了極大的恐慌逼蒙,老刑警劉巖,帶你破解...
    沈念sama閱讀 216,372評論 6 498
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件寄疏,死亡現(xiàn)場離奇詭異是牢,居然都是意外死亡,警方通過查閱死者的電腦和手機,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 92,368評論 3 392
  • 文/潘曉璐 我一進店門,熙熙樓的掌柜王于貴愁眉苦臉地迎上來塘安,“玉大人,你說我怎么就攤上這事社搅。” “怎么了乳规?”我有些...
    開封第一講書人閱讀 162,415評論 0 353
  • 文/不壞的土叔 我叫張陵形葬,是天一觀的道長。 經(jīng)常有香客問我暮的,道長笙以,這世上最難降的妖魔是什么? 我笑而不...
    開封第一講書人閱讀 58,157評論 1 292
  • 正文 為了忘掉前任青扔,我火速辦了婚禮源织,結(jié)果婚禮上,老公的妹妹穿的比我還像新娘微猖。我一直安慰自己谈息,他們只是感情好,可當(dāng)我...
    茶點故事閱讀 67,171評論 6 388
  • 文/花漫 我一把揭開白布凛剥。 她就那樣靜靜地躺著侠仇,像睡著了一般。 火紅的嫁衣襯著肌膚如雪犁珠。 梳的紋絲不亂的頭發(fā)上逻炊,一...
    開封第一講書人閱讀 51,125評論 1 297
  • 那天,我揣著相機與錄音犁享,去河邊找鬼余素。 笑死,一個胖子當(dāng)著我的面吹牛炊昆,可吹牛的內(nèi)容都是我干的桨吊。 我是一名探鬼主播,決...
    沈念sama閱讀 40,028評論 3 417
  • 文/蒼蘭香墨 我猛地睜開眼凤巨,長吁一口氣:“原來是場噩夢啊……” “哼视乐!你這毒婦竟也來了?” 一聲冷哼從身側(cè)響起敢茁,我...
    開封第一講書人閱讀 38,887評論 0 274
  • 序言:老撾萬榮一對情侶失蹤佑淀,失蹤者是張志新(化名)和其女友劉穎,沒想到半個月后彰檬,有當(dāng)?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體伸刃,經(jīng)...
    沈念sama閱讀 45,310評論 1 310
  • 正文 獨居荒郊野嶺守林人離奇死亡,尸身上長有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點故事閱讀 37,533評論 2 332
  • 正文 我和宋清朗相戀三年僧叉,在試婚紗的時候發(fā)現(xiàn)自己被綠了奕枝。 大學(xué)時的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片。...
    茶點故事閱讀 39,690評論 1 348
  • 序言:一個原本活蹦亂跳的男人離奇死亡瓶堕,死狀恐怖隘道,靈堂內(nèi)的尸體忽然破棺而出,到底是詐尸還是另有隱情郎笆,我是刑警寧澤谭梗,帶...
    沈念sama閱讀 35,411評論 5 343
  • 正文 年R本政府宣布,位于F島的核電站宛蚓,受9級特大地震影響激捏,放射性物質(zhì)發(fā)生泄漏。R本人自食惡果不足惜凄吏,卻給世界環(huán)境...
    茶點故事閱讀 41,004評論 3 325
  • 文/蒙蒙 一远舅、第九天 我趴在偏房一處隱蔽的房頂上張望闰蛔。 院中可真熱鬧,春花似錦图柏、人聲如沸序六。這莊子的主人今日做“春日...
    開封第一講書人閱讀 31,659評論 0 22
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽例诀。三九已至,卻和暖如春裁着,著一層夾襖步出監(jiān)牢的瞬間繁涂,已是汗流浹背。 一陣腳步聲響...
    開封第一講書人閱讀 32,812評論 1 268
  • 我被黑心中介騙來泰國打工二驰, 沒想到剛下飛機就差點兒被人妖公主榨干…… 1. 我叫王不留扔罪,地道東北人。 一個月前我還...
    沈念sama閱讀 47,693評論 2 368
  • 正文 我出身青樓诸蚕,卻偏偏與公主長得像步势,于是被迫代替她去往敵國和親。 傳聞我的和親對象是個殘疾皇子背犯,可洞房花燭夜當(dāng)晚...
    茶點故事閱讀 44,577評論 2 353

推薦閱讀更多精彩內(nèi)容