Números Complejos, Aplicaciones

Exploramos las operaciones básicas de los números complejos en el contexto del dibujo y la animación en dos dimensiones. Usamos el lenguaje de programación Logo y LogoFE.

El dibujo de un automovil se puede representar como un conjunto de trazos. Al final de cada trazo es necesario levantar el lápiz. Cada trazo se puede representar por los puntos por donde pasa. Cada punto se puede representar como un número complejo. La siguiente es la presentación del dibujo de un auto. Cada línea de código siguiente representa un trazo:

haz "auto [
 [[-16 -4] [-12 -4] [-8 0] [-8 4] [-12 8] [-16 8] [-20 4] [-20 0] [-16 -4]]
 [[32 0] [32 12] [20 16] [16 24] [-20 24] [-28 12] [-28 0] [-20 0]]
 [[8 0] [8 4] [12 8] [16 8] [20 4] [20 0] [16 -4] [12 -4] [8 0]]
 [[0 12] [0 22] [14 22] [18 16] [18 12] [0 12]]
 [[-22 12] [-4 12] [-4 22] [-18 22] [-22 12]]
 [[32 10] [34 10] [34 6] [32 6]]
 [[-8 0] [8 0]]
 [[20 0] [32 0]]
]

El primer punto del primero trazo es -16-4i, que en LogoFE se representa simplemente como [-16 -4].

Usaremos el procedimiento dibujaTrazo para dibujarlos. Primero levantamos el lápiz y luego, vamos pasando por cada uno de los puntos del trazo ya con el lápiz abajo.

para dibujaTrazo :puntos
subelapiz
paracada :puntos [ponpos ? bajalapiz] 
fin

Para dibujar el auto completo debemos dibujar varios trazos. Luego de dibujarlos ponemos la tortuga en el centro de la pantalla, para tener una referencia de la posición 0+0i:

borrapantalla
paracada :auto [dibujaTrazo ?]
subelapiz centro

Imagen: auto 1

Luce mejor si ocultamos la tortuga:

borrapantalla ocultatortuga
paracada :auto [dibujaTrazo ?]

Imagen: auto 2

Si a los puntos del auto, considerados como números complejos, les restamos 200 + 0i, logramos desplazar hacia la izquierda el auto 200 unidades.

muestra primero :auto
[[-16 -4] [-12 -4] [-8 0] [-8 4] [-12 8] [-16 8] [-20 4] [-20 0] [-16 -4]]

muestra primero primero :auto
[-16 -4]

muestra restacomp dista [200 0] primero primero :auto
[-216 -4]

muestra impon [restacomp dista [200 0]] primero :auto
[[-216 -4] [-212 -4] [-208 0] [-208 4] [-212 8] [-216 8] [-220 4] [-220 0] [-216 -4]]

muestra impon [impon [restacomp dista [200 0]]] :auto
[[[-216 -4] [-212 -4] [-208 0] [-208 4] [-212 8] [-216 8] [-220 4] [-220 0] [-216 -4]]
 [[-168 0] [-168 12] [-180 16] [-184 24] [-220 24] [-228 12] [-228 0] [-220 0]]
 [[-192 0] [-192 4] [-188 8] [-184 8] [-180 4] [-180 0] [-184 -4] [-188 -4] [-192 0]]
 [[-200 12] [-200 22] [-186 22] [-182 16] [-182 12] [-200 12]]
 [[-222 12] [-204 12] [-204 22] [-218 22] [-222 12]]
 [[-168 10] [-166 10] [-166 6] [-168 6]]
 [[-208 0] [-192 0]]
 [[-180 0] [-168 0]]
]
borrapantalla muestratortuga 
paracada impon [impon [restacomp dista [200 0]]] :auto [dibujaTrazo ?] 
subelapiz centro 

Imagen: resta numeros complejos

Podemos mover el auto horizontalmente si a cada número complejo le sumamos un número complejo de la forma x + 0i, de tal manera que x vaya desde -200 hasta 200 en pasos de 10 en 10:

desde [-200 200 10] [
 borrapantalla 
 paracada impon [impon [sumacomp lista (lista :x 0)]] :auto [dibujaTrazo ?] 
 subelapiz centro 
]

Imagen: suma numeros complejos

Y si con sumas y restas de números complejos podemos mover objetos en el plano cartesiano. Con multiplicaciones podemos agrandar o empequeñecer objetos. Por ejemplo, si a los números que representan un objeto les multiplicamos por un número de la forma x + 0i, de tal manera que x vaya desde 0.1 hasta 2.0 en pasos de 0.1 en 0.1, podemos hacer un efecto de magnificación:

haz "hormiga [
 [[4 36] [12 28] [28 24] [44 24] [56 36] [56 44] [44 56] [28 56] [12 52] [4 44]]
 [[-20 32] [0 32] [4 36] [4 44] [0 48] [-20 48] [-28 44] [-28 36] [-20 32]]
 [[-28 36] [-36 28] [-44 28] [-48 32] [-52 48] [-44 56] [-32 52] [-28 44]]
 [[-40 36] [-40 44] [-44 44] [-44 40] [-40 36]]
 [[-40 0] [-32 8] [-32 20] [-20 32]]
 [[-16 32] [-8 20] [-8 8] [0 0]]
 [[-4 32] [0 24] [16 8] [20 0]]
 [[-48 48] [-68 56] [-72 28]]
 [[-44 56] [-52 64] [-60 36]]
 [[36 28] [32 40] [36 52]]
 [[48 28] [44 36] [48 48]]
 [[28 56] [20 40] [24 28]]
]
desde [0.1 2.0 0.1] [
 borrapantalla 
 paracada impon [impon [multicomp lista (lista :x 0)]] :hormiga [dibujaTrazo ?] 
 subelapiz centro 
]

Imagen: efecto magnificacion

A continuación mostramos los números complejos que usamos en este efecto de magnificación y sus respectivas magnitudes y ángulos:

[Real Imaginario] --> [Magnitud Angulo]

desde [0.1 2 0.1] [(escribe lista :x 0 "--> recpol lista :x 0)]
[0.1 0] --> [0.1 0]
[0.2 0] --> [0.2 0]
[0.3 0] --> [0.3 0]
[0.4 0] --> [0.4 0]
[0.5 0] --> [0.5 0]
[0.6 0] --> [0.6 0]
[0.7 0] --> [0.7 0]
[0.8 0] --> [0.8 0]
[0.9 0] --> [0.9 0]
[1 0] --> [1 0]
[1.1 0] --> [1.1 0]
[1.2 0] --> [1.2 0]
[1.3 0] --> [1.3 0]
[1.4 0] --> [1.4 0]
[1.5 0] --> [1.5 0]
[1.6 0] --> [1.6 0]
[1.7 0] --> [1.7 0]
[1.8 0] --> [1.8 0]
[1.9 0] --> [1.9 0]

Vemos que la magnitud es idéntica a la parte real de cada complejo. Esto no debería sorprendernos, ya que la parte imaginaria es nula en cada número. También vemos el ángulo siempre es 0. La magnitud varía y el ángulo es constante.

Podemos hacer lo contrario, es decir, variar el ángulo de los números pero mantener constante la magnitud:

[Magnitud Angulo] <-- [Real Imaginario]

desde [ang 0 -90 -10] [(escribe lista 1 :ang "<-- polrec lista 1 :ang)]
[1 0] <-- [1 0]
[1 -10] <-- [0.984807753012208 -0.17364817766693]
[1 -20] <-- [0.939692620785908 -0.342020143325669]
[1 -30] <-- [0.866025403784439 -0.5]
[1 -40] <-- [0.766044443118978 -0.642787609686539]
[1 -50] <-- [0.642787609686539 -0.766044443118978]
[1 -60] <-- [0.5 -0.866025403784439]
[1 -70] <-- [0.342020143325669 -0.939692620785908]
[1 -80] <-- [0.17364817766693 -0.984807753012208]
[1 -90] <-- [6.1257422745431e-17 -1]

Al utilizar estos números complejos para multiplicarlos por los números complejos que representan un martillo obtenemos un efecto de rotación:

haz "martillo [
 [[-12 -16] [-8 -20] [8 -20] [12 -16] [12 52] [8 56] [-8 56] [-12 52] 
 [-12 -16]] [[-8 56] [-8 124]] [[8 124] [8 56]] [[-40 128] [-40 124] 
 [-36 124] [-24 132] [-16 132] [-12 128] [-8 124] [8 124] [12 128] [20 128] 
 [24 124] [32 124] [32 148] [24 148] [20 144] [12 144] [8 148] [-8 148] 
 [-20 144] [-40 128]]
]
desde [ang 0 -90 -10] [
 borrapantalla 
 paracada impon [impon [multicomp lista polrec lista 1 :ang]] :martillo [dibujaTrazo ?] 
 subelapiz centro 
]

Imagen: efecto giro

1. Licencia

Este es un documento libre.

Autor: Daniel Ajoy

Licencia Creative Commons
Esta obra está bajo una Licencia Creative Commons Atribución-CompartirIgual 3.0 Unported.

2. Preguntas, Dudas, Comentarios, Peticiones

Síguenos en Facebook

3. Enlaces

Lenguaje de Programación Logo

Proyectos de Matemáticas de Planos Cartesianos

Figuras en el Mapa Cartesiano

Dibujos de Planos Cartesianos


Generado con PureJoy. Creación: 11:49 - Dec 15, 2017. Última Modificación: 17:12 - Apr 02, 2023