Crear un zoom dinámico

Podemos usar el comando ZoomAcerca para convertir un deslizador en un zoom dinámico, tanto de acercamiento como de alejamiento, alrededor de un punto A cualquiera, siguiendo las siguientes instrucciones. (Nota: esto anulará las diversas herramientas de zoom y desplazamiento.)

Para ello, creamos un deslizador k con paso 0.01, y en el Campo de Entrada introducimos las siguientes instrucciones:

f: x²     A = Punto[f]     q = 1/2^k

E1 = CopiaObjetoLibre[Esquina[1]]

E3 = CopiaObjetoLibre[Esquina[3]]

sx = x(E3 - E1)/2     sy = y(E3 - E1)/2

ZoomAcerca[x(A)-sx q, y(A)-sy q, x(A)+sx q, y(A)+sy q]

Por último, ocultamos E1 y E3.

zoom_dinamico.ggb

Crear botones de zoom

Podemos usar los comandos ZoomAcerca y ZoomAleja para crear sendos botones de zoom sobre un punto.

Si A es un punto de la gráfica de una función, la acción ZoomAcerca[2, A], una vez asociada a un botón, permite acercarnos rápida y cómodamente a A. Podemos así apreciar cómo la gráfica se "rectifica" en las inmediaciones de A (si la función es derivable en ese punto), según nos acercamos. Otro botón con la acción ZoomAleja[2, A] nos permitirá retroceder:

f: x²     A = Punto[f]

Botón["A +"] crea un botón con el subtítulo "A +"

En su pestaña  Guión  Al clic, escribimos ZoomAcerca[2,A] y pulsamos OK.

Botón["A -"] crea un botón con el subtítulo "A -"

En su pestaña  Guión  Al clic, escribimos ZoomAleja[2,A] y pulsamos OK.
 

botones_zoom.ggb