Esta aplicación está diseñada para resolver un problema concreto y es un ejemplo de cómo se puede utilizar el comando ZIP que es más eficiente que el comando Sequence (Secuencia):
[list]
[*] Construir un polígono de un número de lados elegido por el usuario
[*] El polígono se puede mover desplazando su centro
[*] Se puede elegir un vértice concreto
[*] Se dibujan todas las diagonales que parten del vértice concreto
[/list]
[b]LA CONSTRUCCIÓN:[/b]
[list]
[*]Se definen los deslizadores:
n es un deslizador entero de 3 a 30.
R toma valores de 0.5 a 5 y es el radio del polígono regular que se desea dibujar.
k toma valores enteros de 1 a n
[*]Se genera la lista de vértices: vertices = Zip[(x(C), y(C)) + R (cos(2π / n K), sen(2π / n K)), K, Secuencia[n]]
[*]Deseamos seleccionar uno de los vértices: verticeSeleccionado = {Elemento[vertices, k]}
[*]Generamos otra lista con todos los vértices excepto el vértice seleccionado y sus dos vértices adyacentes: verticesReducidos = vertices \ Secuencia[C + (R cos(2π / n j), R sen(2π / n j)), j, k - 1, k + 1] (hacemos uso del operador \ que sirve para quitar elementos de una lista: http://wiki.geogebra.org/es/Listas)
[*]Para dibujar las diagonales que parten del vértice seleccionado hemos usado: diagonales = Aplana[Zip[Zip[Segmento[X, Y], Y, verticesReducidos], X, verticeSeleccionado]] (puede resultar complicado de entender si no se está familiarizado con el comando Zip, en cuyo caso puede usarse un procedimiento más sencillo de entender: diagonales2= Secuencia[Segmento[Elemento[verticeSeleccionado,1],Elemento[verticesReducidos,k]],k,1,n-3])
[/list]
[b]ACTIVIDAD:[/b]
Realizar esta construcción y añadir los textos necesarios para proporcionar información al usuario que utilice la aplicación.
