[size=150]#=====================================[br]# Define slider and initial settings[br]#=====================================[br]t = Slider(0, 2pi, 0.01, 1, 170, false, true, false, false)[br]L = Sequence(k, k, -10, 10)[br]size = Length(L)[br][br]#=====================================[br]# Functions[br]#=====================================[br]g(x) = (2 / (1+exp(-x)) - 1)*0.5[br]f(x, y) = 0.5 * sin(sqrt(x^2 + y^2) - t)[br][br]#=====================================[br]# Define Circles with names[br]#=====================================[br]Execute(Flatten(Sequence(Sequence("A"+k+"_"+j+" = Circle((Element(L, "+k+"), Element(L, "+j+")), abs(g( f( Element(L, "+k+"), Element(L, "+j+") ) ) ) )", k, 1, size), j, 1, size)))[br][br]#=====================================[br]# Settings and colors :)[br]#=====================================[br]Execute(Flatten(Sequence(Sequence("ShowLabel(A"+k+"_"+j+", false)", k, 1, size), j, 1, size)))[br]Execute(Flatten(Sequence(Sequence("SetDynamicColor(A"+k+"_"+j+", If(f( Element(L, "+k+"), Element(L, "+j+")) < 0, 1, 1), If(f( Element(L, "+k+"), Element(L, "+j+")) < 0, 1, 0), If(f( Element(L, "+k+"), Element(L, "+j+")) < 0, 1, 0), 1)", k, 1, size), j, 1, size)))[br][/size][size=150][br]#=====================================[br]# That's it! Enjoy! [br]#=====================================[/size]