Locomotive Basic: Gráfica de una función (2)

Ejemplo mejorado de cómo dibujar en pantalla la gráfica de una función

Lenguaje: Locomotive Basic

Categoría: Gráficos

' Fuente procedente de ErrorDeSintaxis.es 

' Ejemplo mejorado de cómo dibujar en pantalla 

'  la gráfica de una función 

' Lenguaje: Locomotive Basic 

' Nivel: Básico 

' Disponible desde 05/08/2011 

' Aportado por Nacho 

10 ' Representacion mejorada de funciones
20 ' Ejemplo para y = 2x2 - 3x - 4
30 '
40 ' Preparacion de pantalla
50 MODE 1:INK 0,0:BORDER 0:PAPER 0:PEN 1:INK 1,26:CLS
60 ' Valores iniciales
70 ' Escala Y negativa porque en los CPC el 0 esta abajo
80 escalaX = 20: escalaY = -10
90 centroX = 320: centroY = 200: incremX = 0.05
100 ' Dibujo los ejes
110 PLOT centroX, 0: DRAW centroX, 399: ' Eje vertical
120 inicioMarcasY = centroY MOD escalaY: ' Marcas en el eje vertical
130 FOR i = inicioMarcasY TO 399 STEP ABS(escalaY)
140   PLOT centroX-10,i: DRAW centroX+10,i
150 NEXT i
160 PLOT 0,centroY: DRAW 639,centroY: ' Eje horizontal
170 inicioMarcasX = centroX MOD escalaX
180 FOR i = inicioMarcasX TO 639 STEP escalaX
190   PLOT i,centroY-10: DRAW i,centroY+10
200 NEXT i
210 ' Dibujo la funcion en si
220 FOR x = -10 TO 10 STEP incremX
230   y = 2*x*x - 3*x - 4
240   PLOT x*escalaX + centroX, y*escalaY + centroY
250 NEXT x