Back to Summer Programs

Wolfram Summer School

June 24–July 14, 2018
Bentley University, Waltham, MA

Alumni

Konstantin Kouptsov

Class of 2007

Bio

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: Quasiperiodicity

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]]]

Favorite Outer Totalistic Three-Color Rule

Rule chosen: 11828070

This reflects various types of computations, which are pretty complex; but who knows what they are doing?