HP 50g Guia Del Usuario página 831

Como ejemplo, escriba el programa siguiente que genera 11 gráficos que
demuestran un círculo centrado en el centro de la pantalla de los gráficos y
que aumenta el radio por un valor constante en cada gráfico subsiguiente.
«
RAD
131 R B 64 R B PDIM
0 100 XRNG 0 100 YRNG
1 11 FOR j
ERASE
(50., 50.) '5*(j-1)'
0 '2*π' NUM ARC
PICT RCL
NEXT
11 ANIMATE
»
Almacenar este programa en un variable llamado PANIM (inglés, Plot
Para activar el programa presione J (si es necesario) @PANIM.
ANIMation).
Le tomará a la calculadora más de un minuto para generar los gráficos y para
comenzar la animación. Por lo tanto, sea realmente paciente. Usted verá el
símbolo del reloj de arena en la parte superior de la pantalla antes de producir
la animación. La animación se asemeja a la ondulación producida por un
guijarro que cae en la superficie del agua quieta, aparece en la pantalla. Para
detener la animación, presionar $.
Los 11 gráficos generados por el programa todavía están disponibles en la
pantalla. Si usted desea recomenzar la animación, utilizar simplemente:
11 ANIMATE. (La función ANIMATE está disponible usando „°L
@) G ROB L @ANIMA).
parar la animación una vez más.
enumerado en el nivel 1 de la pantalla. Presione ƒ para borrar el número
de la pantalla.
NUM
La animación será recomenzada.
Comenzar programa
Cambiar unidades
radianes
Ajustar PICT 131×64 píxel
Rangos x,y a 0-100
Lazo con j = 1 .. 11
Borrar PICT actual
Centros de círculos (50,50)
Dibujar centros r = 5(j-1)
PICT a la pantalla
Finalizar lazo FOR-NEXT
Animar
Terminar programa
Note que el número 11 todavía será
de ángulos
Presione $ para
Página 22-30
a