http://atlas.wolfram.com/01/01/102/01_01... 
 Там в самом низу есть пункт State space as Cantor set. В нем имеетя 
 программа исследования: 
 With[{rulenum=102,n=12,k=2,t=1}, 
 FromDigits[Last[CellularAutomaton[rulenum,ToDigits[#1,n,k],t]],k]&/@ 
 Range[0,k^n-1]] 
 и результат 
http://atlas.wolfram.com/01/01/102/01_01... 
 Трудно мне пока понять его суть, т.к. я не знаю этой системы, зато 
 знаю MatLAB. Я бы хотел спросить людей знающих этот язык, по какой 
 формуле производится вычисление такой числовой последовательности? 
 Другими словами, как я могу посчитать её в Матлабе? 
 Заранее благодарю за совет.