Konstantin Kouptsov

Bio [2007]
My formal training is in mathematical/theoretical physics. I have been studying physics at the Moscow Engineering Physics Institute in Russia, and now hold a PhD degree from New York University. Currently, I am working as a Design Analyst at Wolfram Research Inc., where my job is to analyze, define and document functional designs for software and web products. My other interests are quite interdisciplinary and cover selected topics in computer science, mathematics, and biology.

Project Title
Quasiperiodicity

Project
A line in the configuration space misses periodic points by a small amount.

RepeatList[s_List,n_Integer]:=With[{r=Length[s]},With[{p=Mod[n,r],q=
Quotient[n,r]},Flatten[{Table[s,{q}],Take[s,p]}]]];
rule[n_]:=Sequence@@Thread[Rule[PadLeft[IntegerDigits[#,2],3]&@Range[
0,2^3-1],Reverse[PadLeft[IntegerDigits[n,2],2^3]]]];
wall=Sequence[{2,x_,_}:>0,{_,2,_}->2,{_,x_,2}:>0];
With[{w=128,length=992},ev=CellularAutomaton[{rule[161],wall},
Join[{0,2,0,1},RepeatList[{0,0,1,1,0,0},w],{0,2,0}],8*length];
Column[ArrayPlot[Transpose[#],PixelConstrained->1,ColorRules->{0->
White,1->Black,2->Red}]&@Partition[ev,length]]]