[code]n = Slider(0, 10, 1, 1, 170, false, true, false, false)[br][br]N = Sequence(k, k, 0, (2*n+1)^3-1)[br][br]A = Zip(Mod(m, 2*n+1)-n, m, N)[br]B = Zip(Mod(floor(m/(2*n+1)), 2*n+1)-n, m, N)[br]C = Zip(Mod(floor(m/(2*n+1)^2), 2*n+1)-n, m, N)[br][br]LP = RemoveUndefined( Zip( If( b^2-4*a*c < 0 , 1/(2*(a + ί * 0))*(-(b + ί * 0) + ( (b + ί * 0)^2-4*(a + ί * 0)*(c + ί * 0) )^(1/2) ) ) , a, A, b, B, c, C) )[br][br]LN = RemoveUndefined( Zip( If( b^2-4*a*c < 0 , 1/(2*(a + ί * 0))*(-(b + ί * 0) - ( (b + ί * 0)^2-4*(a + ί * 0)*(c + ί * 0) )^(1/2) ) ) , a, A, b, B, c, C) )[br][br]Execute(Sequence("A"+k+" = Element(LP, "+k+")", k, 1, Length(LP)))[br]Execute(Sequence("B"+k+" = Element(LN, "+k+")", k, 1, Length(LN)))[br][br]Execute(Sequence("ShowLabel(A"+k+", false)", k, 1, Length(LP)))[br]Execute(Sequence("ShowLabel(B"+k+", false)", k, 1, Length(LN)))[br][br]Execute(Sequence("SetPointSize(A"+k+", 2)", k, 1, Length(LP)))[br]Execute(Sequence("SetPointSize(B"+k+", 2)", k, 1, Length(LN)))[br][br]Execute(Sequence("SetPointStyle(A"+k+", 10)", k, 1, Length(LP)))[br]Execute(Sequence("SetPointStyle(B"+k+", 10)", k, 1, Length(LN)))[br][br][br]H(x, y) = (π -atan2(y,-x)) / (2π)[br][br]Execute(Sequence("SetDynamicColor(A"+k+", H(x(A"+k+"), y(A"+k+")), 1, 1)", k, 1, Length(LP)))[br]Execute(Sequence("SetDynamicColor(B"+k+", H(x(B"+k+"), y(B"+k+")), 1, 1)", k, 1, Length(LN)))[br][br]ShowGrid( false )[br]ShowAxes( false )[br]CenterView((0,0))[/code]