Back to Summer Programs

Wolfram Summer SchoolFounded in 2003

17th Annual Wolfram Summer School, held at Bentley University June 23–July 12, 2019 Apply Now

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?