Hurgando en las entrañas de GeoGebra Propuestas de Josep Lluís Cañadilla y Bernat Ancochea

Ejemplo de guión - Crea un punto A. - Accede a sus propiedades. al apartado Programa de guion | Al clic. - Escribe el siguiente guion: B=(3,2) s=Segmento(A,B) Colores[s,”red”] - Cierra la ventana de propiedades. - Clica sobre el punto A. Listas, pero que muy listas - Crea un botón con rótulo “Crear 2000 puntos” con este guion: m=1 Ejecuta[Secuencia["P"+i+"=("+i+","+i+")",i,0,2000]] - Crea un botón con rótulo “Crear lista de 2000 puntos” con este guion: n=1 Lista=Secuencia[(i,i+1),i,0,2000] El bucle “for” - Crea los siguientes objetos numéricos: suma=1 producto=1 factor=2 iteraciones=7 guion1=0 - Crea un botón con rótulo “Ejecutar iteración” con este guion: Ejecuta[Secuencia[“RunUpdateScript[guion1]”,k,1,iteraciones]] - Accede a las propiedades de guion1. En Al actualizar escribe el siguiente guion: suma=suma+factor producto=producto*factor

Trucos (I) - Crea un punto A. Activa el rastro del punto A. - Crea un botón con rótulo “Borrar rastro” con este guion: ZoomAcerca[1] Trucos (II) - Dibuja un punto y una recta que no pase por dicho punto. - Inserta una casilla de entrada sin objeto vinculado con el rótulo “Grosor”. - Accede a las propiedades de la casilla de entrada y escribe el siguiente guion en Al actualizar: TamañoPunto[A,%0/2] GrosorLínea[a,%0] Trucos (III) - Crea tres valores lógicos: Op1, Op2, Op3. - Accede a las propiedades de Op1 y en Al actualizar escribe el siguiente guion: Valor[Op1, True] Valor[Op2, False] Valor[Op3, False] - De forma análoga, no igual, introduce el guion correspondiente en Op2 y Op3. Trucos (IV) - Activa la Hoja de cálculo. - En la línea de entrada introduce: dado=AleatorioEntre[1,6] - Clica con el botón derecho sobre el objeto dado. Selecciona “Registro en la hoja de cálculo”. Activa “Límite de Fila 10”. Utiliza la tecla F9 del teclado para generar números aleatorios. Observa que lo hace de uno en uno y cuando pasa de 10, se muestran los 10 últimos. - Inserta un botón con rótulo “Registra” y guion: ActualizaConstrucción[10]

Misión I: Recuento del enemigo El objetivo de esta misión es crear una tabla de frecuencias en la hoja de cálculo a partir de los datos introducidos mediante una casilla de entrada. En la primera columna aparecerán el listado de los datos según el orden de entrada, en la segunda columna los datos ordenados de menor a mayor, en la tercera los valores, en la cuarta las frecuencias absolutas y en la quinta los porcentajes. Finalmente añadiremos un botón para borrar los datos. Crea los objetos siguientes: L={} Lordenado=Ordena[L] x_i=Único[Lordenado] n_i=Frecuencia[Lordenado] p_i=n_i / Longitud[L] 100 N=Longitud[L] n=Longitud[x_i] dt=?

Lista que contendrá los datos La lista de datos ordenada Lista con los diferentes valores de la lista Lista con las frecuencias absolutas Lista con los porcentajes Número de datos Cantidad de valores diferentes

Crea el texto: “Introduce los datos uno a uno” y sitúalo en la parte superior izquierda de la ventana gráfica. Crea una casilla de entrada con el título Dato y con Objeto vinculado: dt. Sitúala debajo del texto anterior. En Al clic introduce el siguiente guion: Valor[L,Añade[L,dt]] Ejecuta[{"SetValue[A"+N+",dt]"}] Ejecuta[Secuencia["B"+i+"="+Elemento[Lordenado,i],i,1,N]] Ejecuta[Secuencia["C"+i+"="+Elemento[x_i,i],i,1,n]] Ejecuta[Secuencia["D"+i+"="+Elemento[n_i,i],i,1,n]] Ejecuta[Secuencia["E"+i+"="+Elemento[p_i,i],i,1,n]] dt=?

Introduce datos en la casilla de entrada y comprueba cómo se va creando la tabla de frecuencias. Inserta un botón para borrar los datos. En Al clic introduce el siguiente guion: Ejecuta[Secuencia["Delete[A"+i+"]",i,1,N]] Ejecuta[Secuencia["Delete[B"+i+"]",i,1,N]] Ejecuta[Secuencia["Delete[C"+i+"]",i,1,n]] Ejecuta[Secuencia["Delete[D"+i+"]",i,1,n]] Ejecuta[Secuencia["Delete[E"+i+"]",i,1,n]] L={} Comprueba que funciona todo correctamente.

Mejoras: piensa como añadir una columna con la frecuencia absoluta acumulada.

Misión II: Identificación de los primos El objetivo de esta misión es insertar un botón que cree 100 casillas de control que identifiquen los números primos.

Crea los siguientes objetos: columna=0 fila =0 guion1=1 guion2=1

Crea un botón: botón1 con el siguiente guion en Al clic. fila=1 Ejecuta[Secuencia["RunUpdateScript[guion1]",k,1,10]] Inserta el siguiente guion en Al actualizar de guion1. columna=1 Ejecuta[Secuencia["RunUpdateScript[guion2]",k,1,10]] fila=fila+1 Inserta el siguiente guion en Al actualizar de guion2. Ejecuta[{"cv"+fila+"_"+columna+"=Checkbox["+TextoDeCódigo[{34}]+((fila1)*10+columna)+ TextoDeCódigo[{34}]+"]"}] Ejecuta[{"SetCoords[cv"+fila+"_"+columna",50*columna,35*fila]"}] Ejecuta[{"SetValue[cv"+fila+"_"+columna+",IsPrime["+((fila-1)*10+columna)+"]]"}] columna=columna+1 Clica sobre el botón y comprueba que al cabo de unos segundos aparecen las casillas de control con los números primos identificados. Mejoras: El hecho de crear 100 nuevos objetos del tipo Casilla de control ralentiza bastante la creación de la construcción, más si pensamos en aumentar hasta 1.000. Busca alguna alternativa más rápida.

Misión III: El espía Tartaglia El objetivo de esta misión es crear un triángulo numérico de Tartaglia interactivo. Para situar las casillas de control en el lugar preciso utilizaremos los guiones. Crea los siguientes objetos: guion1 = 1 guion2 = 1 i=1 j=1 A=(0,0) B=(350,50) lista1=Secuencia[Secuencia[A + k (0, -1.5) + j (1, 0), j, -k, k, 2], k, 0, 6] lista2=Secuencia[Secuencia[Secuencia[Vector[Elemento[Elemento[lista1, j], n], Elemento[Elemento[lista1, j + 1], k + n]], k, 0, 1], n, 1, j], j, 1, 6]

Crea un botón: botón1 con el siguiente guion en Al clic. i=0 Ejecuta[{"Sequence[RunUpdateScript[guion1],k,0,6]"}] Insertar el siguiente guion en Al actualizar de guion1. j=0 Ejecuta[{"Sequence[RunUpdateScript[guion2],k,0,i]"}] i=i+1 Insertar el siguiente guion en Al actualizar de guion2. Ejecuta[{"valor"+i+"a"+j+"=?"}] Ejecuta[{"cde"+i+"a"+j+"=InputBox[valor"+i+"a"+j+"]"}] Ejecuta[{"SetCoords[cde"+i+"a"+j+",x(B)+50*x(Element[Element[lista1,i+1],j+1]),y(B)50*y(Element[Element[lista1,i+1],j+1])]"}] j=j+1

Clica sobre el botón. Accede a las propiedades de los objetos. Selecciona todas las casillas de entrada. En Estilo | Longitud de la casilla de entrada pon 2. En Básico, desactiva Etiqueta visible. Desplaza el contenido de la vista gráfica para una buena disposición de flechas y casillas. Mejoras: Consigue que el color del contenido de la casilla de entrada sea verde si el número es correcto y rojo si no lo es.

Misión IV: Encontrar la fórmula El objetivo de esta misión es crear una actividad interactiva autopuntuable para la determinación por parte del alumno de la fórmula de la función g(x), resultado de una translación de la función f(x). Utilizaremos los guiones para comprobar la respuesta, actualizar la puntuación y reiniciar la actividad.

Abre el fichero formula.ggb y analiza los objetos siguientes y en este orden:  f1, f, g, texto1  correcto, texto2  listaCodigosAdmitidos, listaCodigosRespuesta, validacion, texto3  Respuesta (guion),  BotónComprobar (guion)  BotónCambiarFuncion  BotonIniciarPuntuacion

Misión V: La gráfica oculta El objetivo de esta misión es crear una lupa que al pasarla por una gráfica ésta se ve ampliada en la segunda ventana gráfica. Utilizaremos los guiones para crear el efecto lupa.

Abre el fichero lupa.ggb. Desplaza el punto A y observa. Después desplaza el punto B y observa. Seguidamente sitúa el punto A en origen de coordenadas. ¿Qué nos descubre la segunda vista gráfica? Investiga cómo se consigue el efecto lupa.

Guiones en los botones botón Comprobar Si[correcto==1 ∧ ¬corregido ,Valor[contadorBien,contadorBien+1]] Si[correcto==1,Visibilidad[botónComprobar,2,False]] Si[correcto==1,Visibilidad[botónCambiarFuncion,2,True]] Si[correcto==0,Visibilidad[resp,1,True]] corregido=True

botón IniciarPuntuacion contadorFunciones=0 contadorBien=0 corregido=False Visibilidad[botónCambiarFuncion,2,False] Visibilidad[botónComprobar,2,True] Visibilidad[texto3,2,False] Visibilidad[resp,1,False] Valor[aF,AleatorioEntre[1,Longitud[f1]]] Valor[p,AleatorioEntre[-5,5]] Valor[q,AleatorioEntre[-5,5]] resp(x)=? respTxt=""

botón CambiarFuncion Valor[aF,AleatorioEntre[1,Longitud[f1]]] Valor[p,AleatorioEntre[-5,5]] Valor[q,AleatorioEntre[-5,5]] resp(x)=? contadorFunciones=contadorFunciones+1 Visibilidad[botónCambiarFuncion,2,False] Visibilidad[botónComprobar,2,True] corregido=False

Campo de texto Respuesta Visibilidad[texto3,2,¬validacion] Visibilidad[botónComprobar,2,validacion] Ejecuta[{"resp(x)="+respTxt}] listaCodigosAdmitidos: TextEnUnicode["0123456789+-*/^xsencoqrtl()²³"] listaCodigosRespuesta: TextEnUnicode["" + respTxt]

http://wiki.geogebra.org/es/Comandos_de_Guiones_-_Scripting http://wiki.geogebra.org/es/Introducci%C3%B3n_a_Guiones_GeoGebraScript http://wiki.geogebra.org/en/Tutorial:Introduction_to_GeoGebraScript https://tube.geogebra.org/material/show/id/1519