7 - UN PROGRAMA EN GBASIC

7-e. Presentación de Resultados en Pantalla.

Si la forma de presentación elegida es la decimal, esta  tarea la realizara la siguiente subrutina.

4000 FOR S = 1 TO 5
4010 Y = 30 + P(S) * .75

Para la estimación de la ordenada debe recordarse que el origen estaba en Y = 30, que el eje tiene 150 puntos y que cada valor de Y equivale a dos puntos. La abcisa X había quedado  fijada en la línea 3170.

4020 POINT X
4030 WRlTE &1 , Y
4040 NEXT
4050 RETURN

La línea 4030 archivará en el disco el valor estimado de Y.

La presentación de tipo exponencial requiere la adaptación  de los porcentajes a la escala logarítmica.

5000 FOR S = 1 TO 5
5010 IF P(S) < 1E-63 THEN NEXT

La mayor precisión con la que puede operar el procesador es con un exponencial de 64 dígitos. Si intentásemos estimar el logaritmo de un número inferior, el ordenador nos daría un mensaje de error y detendría la ejecución del programa.

5020 Y = 30+(2^(8+(LOG(P(S))/LOG(10))))*75 /1024
5030 POINT X, Y
5040 WRITE &1, Y
5050 NEXT

A la subrutina de presentación de las tasas de crecimiento se accede desde la línea 3190. La estimación de Y variará según que T(S) sea positivo o negativo ya que las ordenadas del primer y del segundo cuadrante están a diferentes escalas. Recuérdese que el origen de coordenadas se había fijado en la línea 1500 en el valor de Y = 76.

6000 FOR S = 1 TO 5
6005 IF T(S) > 0 THEN Y = 76 + T(S) * .16
6010 IF T(S) < 0 THEN Y = 76 + T(S) * .04
6020 POINT X, Y
6030 WRITE &1, Y
6040 NEXT
6050  RETURN

Para la presentación de las eficacias diferenciales se utiliza (en este ejemplo) el mismo campo de coordenadas que para las tasas de crecimiento. Las eficacias diferenciales, D(S), serán la diferencia entre las tasas de crecimiento y su media ponderada que había quedado estimada en la línea 3050.

7000 FOR S = 1 TO 5
7010 D(S) = T(S) - M
7020 IF D(S) > 0 THEN Y = 76 + D(S) * .16
7030 IF D(S) <0 THEN Y = 76 + D(S) * .04
7040 POINT X, Y 
7050 WRITE &1, Y
7060 NEXT
7070 RETURN

 

7-f. Finalización del Programa.

Cuando el proceso de resoluci6n que se inicia en línea la 3000 se haya realizado seiscientas veces, la línea 3205 conducirá al procesador a la rutina de finalización de la línea 10000.

La tarea de esta rutina consiste en escribir en la línea inferior de la zona gráfica de la pantalla los porcentajes finales correspondientes a las distintas estrategias, cerrar el fichero del disco y dejar al ordenador preparado para realizar una copia de la pantalla en la impresora o cualquier otro programa.

10000 MOVE 0, 20
10010 FOR S = 1 TO 5
10020 GPRINT A$(S,S), " =", P(S), "; ".
10030 NEXT
10040 CLOSE  &1
10050 END