International Day of Mathematics 2025
Based on the amazing work of mathmagic: 2025 año internacional
Also check out Rafael Losada Liste's work: 3.14 de 2025
Script Setup
func(x) = exp(x (1 - ί ) pi /14)
f = LineGraph({0, 1, 2, 3, 4}, {0, 1, 1, 0, 0})
g = LineGraph({0, 1, 2, 3, 4}, {0, 0, 1, 1, 0})
c = Curve((f(u) - 2, g(u) - 2), u, 0, 4)
n = 16
Ln = 1...n
Lk = 1...(n-1)
Execute(Zip("G"+k+" = "+k+"", k, Ln))
Execute(Zip("F"+k+" = Curve(func(c(u) + (Column(G"+(k+1)+") - Row(G"+(k+1)+"), Row(G"+k+"))), u, 0, 4)", k, Lk))
Execute(Zip("E"+k+" = Curve(func(c(u) + (Column(F"+(k+1)+") - Row(F"+(k+1)+"), Row(F"+k+"))), u, 0, 4)", k, Lk))
Execute(Zip("D"+k+" = Curve(func(c(u) + (Column(E"+(k+1)+") - Row(E"+(k+1)+"), Row(E"+k+"))), u, 0, 4)", k, Lk))
Execute(Zip("C"+k+" = Curve(func(c(u) + (Column(D"+(k+1)+") - Row(D"+(k+1)+"), Row(D"+k+"))), u, 0, 4)", k, Lk))
Execute(Zip("B"+k+" = Curve(func(c(u) + (Column(C"+(k+1)+") - Row(C"+(k+1)+"), Row(C"+k+"))), u, 0, 4)", k, Lk))
Execute(Zip("A"+k+" = Curve(func(c(u) + (Column(B"+(k+1)+") - Row(B"+(k+1)+"), Row(B"+k+"))), u, 0, 4)", k, Lk))
Execute(Zip("ShowLabel(A"+k+", false)", k, Lk))
Execute(Zip("ShowLabel(B"+k+", false)", k, Lk))
Execute(Zip("ShowLabel(C"+k+", false)", k, Lk))
Execute(Zip("ShowLabel(D"+k+", false)", k, Lk))
Execute(Zip("ShowLabel(E"+k+", false)", k, Lk))
Execute(Zip("ShowLabel(F"+k+", false)", k, Lk))
A = (1, 0.5, 0.5)
B = (0.5, 0.5, 0.5)
C = (0.75, 1, 0.666)
D = (0.8, 1, 0.333)
Red(x) = x(A) + x(B) * cos(2pi(x(C)*x+x(D)))
Green(x) = y(A) + y(B) * cos(2pi(y(C)*x+y(D)))
Blue(x) = z(A) + z(B) * cos(2pi(z(C)*x+z(D)))
SetVisibleInView(Red, 1, false)
SetVisibleInView(Green, 1, false)
SetVisibleInView(Blue, 1, false)
#Min(1, Max( 0, Red(0) ) )
#Min(1, Max( 0, Green(0) ) )
#Min(1, Max( 0, Blue(0) ) )
Execute(Zip("SetDynamicColor(A"+k+", Min(1, Max( 0, Red(0) ) ), Min(1, Max( 0, Green(0) ) ), Min(1, Max( 0, Blue(0) ) ), 1)", k, Ln))
Execute(Zip("SetDynamicColor(B"+k+", Min(1, Max( 0, Red(2/6) ) ), Min(1, Max( 0, Green(2/6) ) ), Min(1, Max( 0, Blue(2/6) ) ), 1)", k, Ln))
Execute(Zip("SetDynamicColor(C"+k+", Min(1, Max( 0, Red(3/6) ) ), Min(1, Max( 0, Green(3/6) ) ), Min(1, Max( 0, Blue(3/6) ) ), 1)", k, Ln))
Execute(Zip("SetDynamicColor(D"+k+", Min(1, Max( 0, Red(4/6) ) ), Min(1, Max( 0, Green(4/6) ) ), Min(1, Max( 0, Blue(4/6) ) ), 1)", k, Ln))
Execute(Zip("SetDynamicColor(E"+k+", Min(1, Max( 0, Red(5/6) ) ), Min(1, Max( 0, Green(5/6) ) ), Min(1, Max( 0, Blue(5/6) ) ), 1)", k, Ln))
Execute(Zip("SetDynamicColor(F"+k+", Min(1, Max( 0, Red(6/6) ) ), Min(1, Max( 0, Green(6/6) ) ), Min(1, Max( 0, Blue(6/6) ) ), 1)", k, Ln))
ShowGrid(false)
ShowAxes(false)
SetBackgroundColor("Black")
CenterView((0,0))