Mapas multicolores
Aquí dispones de varias imágenes generadas con la técnica del color dinámico. Son imágenes exportadas desde GeoGebra en formato gráfico. Luego de cada una de ellas, se encuentra la asignación de color dinámico dada al punto P. Para obtener este tipo de imágenes con buena resolución es necesario variar P con un deslizador automático para que, lentamente, recorra toda la pantalla. Ejemplo 1 Se consideran los puntos M, N, Q y T, y la recta r:
ColorDinámico[P, Si[abs(Distancia[P, M] - Distancia[P, N]) < 2, 1, (1 + x(P)) / 3 + sin(y(P))], Si[Distancia[P, Q] < 3, 1, x(P) / 3 + sin(y(P))], Si[Distancia[P, r] > Distancia[P, T], 1, (2 + x(P)) / 3 + sin(y(P))]]
Ejemplo 2
Se han definido las funciones f(x)=exp(x/3); g(x)=3 ln(x); h(x)=-x-2
ColorDinámico[P, e^(-(y(P) - f(x(P)))²), e^(-(y(P) - g(x(P)))²), e^(-(y(P) - h(x(P)))²)]
Ejemplo3
ColorDinámico[P, e^(-(x(P) - floor(B2))² - (y(P) - floor(D2))²), e^(-(x(P) - floor(B2))² - (y(P) - floor(D2))²), 0]
Ejemplo 4
Se consideran dos puntos E y F.
ColorDinámico[P, (1 + sin(3 Distancia[P, E])) / 2, (1 + sin(3 Distancia[P, F])) / 2, 1]
Ejemplo 5
ColorDinámico[P, e^(-abs(abs(Distancia[P, (-2, 0)] - Distancia[P, (2, 1)]) - 2))
, 0.5 + atan(x(P)) / π, 0.5 + atan(y(P)) / π]
Ejemplo 6
Se consideran los puntos B, C y D.
ColorDinámico[P, e^(-abs(Angulo[B, P, C] - Angulo[C, P, D]))
, e^(-abs(Angulo[B, P, C] - Angulo[D, P, B])), e^(-abs(Angulo[B, P, D] - Angulo[C, P, D]))]
Ejemplo 7
Se consideran los puntos B, C y D.
ColorDinámico[P, e^(-abs(Angulo[B, P, C] - π / 3) 3), e^(-abs(Angulo[C, P, D] - π / 3) 3), e^(-abs(Angulo[D, P, B] - π / 3) 3)]
Ejemplo 8
Se consideran los puntos B, C y D
ColorDinámico[P, 1 - e^(-abs(Angulo[B, P, C] - π / 3) 3), 1 - e^(-abs(Angulo[C, P, D] - π / 3) 3)
, 1 - e^(-abs(Angulo[D, P, B] - π / 3) 3)]
Ejemplo 9
Se considera el hexágono BCDEFG
ColorDinámico[P, (1 - (1 - e^(-abs(3 (Angulo[B, P, C] - π / 5)))) (1 - e^(-abs(3 (Angulo[C, P, D] - π / 5)))) (1 - e^(-abs(3 (Angulo[D, P, E] - π / 5)))))², (1 - (1 - e^(-abs(3 (Angulo[F, P, G] - π / 5)))) (1 - e^(-abs(3 (Angulo[G, P, B] - π / 5)))) (1 - e^(-abs(3 (Angulo[B, P, C] - π / 5)))))², (1 - (1 - e^(-abs(3 (Angulo[D, P, E] - π / 5)))) (1 - e^(-abs(3 (Angulo[E, P, F] - π / 5)))) (1 - e^(-abs(3 (Angulo[F, P, G] - π / 5)))))²]
Ejemplo 10
Se consideran los puntos B y C
ColorDinámico[P, Distancia[P, B] Distancia[P, C] / 10
, Distancia[P, B] Distancia[P, C] / 6, Distancia[P, B] Distancia[P, C] / 17]
Ejemplo 11
Se consideran los puntos B y C
ColorDinámico[P, Distancia[P, B] Distancia[P, C] / 2, Distancia[P, B] + Distancia[P, C], Distancia[P, B] - Distancia[P, C]]