7 - UN PROGRAMA EN GBASIC

7-b. Introducción de Datos.

Las primeras líneas sirven para reservar en la memoria del ordenador el espacio necesario para: la matriz de pagos a la que se llamará "M" y que tendrá una dimensión de cinco por cinco; el vector de porcentajes "P" que estará destinado a conservar el porcentaje que en cada momento represente cada una de las cinco estrategias sobre el total; el vector "E" que contendrá el valor del juego que corresponda a cada estrategia en cada momento; el vector "T" para las tasas de crecimiento de cada tipo de empresa; y el vector "D" para sus eficacias darwinianas.

10 DIM M(5,5)
20 DIM P(5)
30 DIM E(5)
40 DIM T(5)
50 DIM D(5)
60 A$ = "PHESG"

La línea 60 introduce una cadena de 'caracteres formada por las iniciales de las cinco estrategias que serán utilizadas para presentar en pantalla los porcentajes de partida y resultados finales.

Las siguientes líneas introducen en la matriz M los valores  de la matriz de pagos.

100 FOR MI = 1 TO 5
110 FOR M2 = 1 TO 5
120 READ M(M1,M2)
130 NEXT
140 NEXT
150 DATA 1, 0, 1, 0, 0
160 DATA 2,-10,-10, 2, 2
170 DATA 1,-10, 1,-10, 2
180 DATA 2, 0,-10,-10, 0
190 DATA  2, 0, 0, 2, 1
 

 A continuación el ordenador preguntará al usuario los porcentajes iniciales de cada una de las estrategias y asignará los valores que se introduzcan al vector "P".
 
200 INPUT "PORCENTAJE INICIAL DE PALOMAS?", P(1)
210 INPUT "PORCENTAJE INICIAL DE HALCONES?", P(2)
220 INPUT "PORCENTAJE INICIAL DE GATOS?", P(3)
230 INPUT "PORCENTAJE INICIAL DE SERPIENTES?", P(4)
240 INPUT "PORCENTAJE INICIAL DE GALLOS?", P(5 )

En las líneas siguientes se pide el valor de incidencia, "I"; el tipo de presentación (decimal, exponencial, de tasas de crecimiento o de eficacias diferenciales) que se conservará en la variable de cadena "G$"; y el nombre "F$" que se debe asignar al fichero que conservará en el disco los resultados.

250 INPUT "VALOR DE INCIDENCIA?", I
260 INPUT "PRESENTACION? (DEC, EXP, TAS O EDE), G$
270 INPUT "NOMBRE DEL FICHERO?", F$

Las siguientes líneas crean el fichero F$ en el disco y guardan en él el tipo de presentación, el valor de incidencia y los porcentajes iniciales de cada una de las estrategias.

300 CREATE F$, 100
310 OPEN &1, F$
320 WRITE &1, G$, I, P(1). P(2), P(3), P(4), P(5)