T E R C E R A   P A R T E

A P L I C A C I Ó N   D E L   M O D E L O

8 - EL AZAR Y LA PRODUCCIÓN

ANEXO   I I I

El programa "AZAR" que se presenta a continuación estaba preparado para realizar una gran cantidad de gráficos de forma continua y conservarlos en dos diskettes magnéticos. La capacidad de los diskettes era la única limitación al número de gráficos  que se podía trazar. Con la técnica de conservación de éste programa, en la que lo único que se guarda es la relación de ordenadas, en dos diskettes de 0,5 megabytes se pueden almacenar hasta 38 gráficos. El ordenador tardaba en realizar esa tarea varias horas. Normalmente lo dejaba funcionando por la noche y al día siguiente podía recoger los resultados.

Esta tarea la realizaba mediante el programa "LECTOR DE AZAR" que se lista a continuación. Una vez que el gráfico está completo en la pantalla, utilizando comandos del sistema operativo, procedía a algunas tareas de "limpieza". La limpieza consiste en eliminar partes sobrantes de los ejes de coordenadas, eliminar líneas de texto aparecidas en la parte no gráfica de la pantalla y que no contienen información interesante, poner el titulo y las iniciales correspondientes a cada curva, etc. La obtención de una copia en papel impreso no es posible realizarla desde GBASIC, por lo que era necesario un nuevo programa, pero esta vez ya en código máquina, proporcionado por el Centro de Cálculo de la Universidad de Málaga, y que por tanto no se puede listar.

PROGRAMA" AZAR"
 

10 REM ************** A ZAR ****************
20 REM ***** MATRIZ DE PAGOS ********
30 DIM M(5,5)
40 DIM N(5)
50 DIM P(5)
60 F=100
70"FOR M1=1 TO 5
80 N(M1) = 20
90 FOR M2=1 TO 5
100 READ M3
110 M(M1,M2)=M3
120 NEXT
130 NEXT
140 DATA 1,0,1,0,0
150 DATA 2,-10,-10,2,2
160 DATA 1,-10,1,-10,2
170 DATA 2,0,-10,-10,0
180 DATA 2,0,0,2,1

190 REM ****** ENTRADA DE DATOS ********
200 X2 = 5
210 I = 20
220 GOTO 790
230 CREATE F$, 70
240 OPEN &l,F$
250 WRlTE &1, F$,N,X2,I

260 REM ***** PREPARACION *****
270 HYBRID
280 AXIS 15,9,9,29
290 X=9
300 FOR S=l-TO 10
310 FOR Y=l TO 10
320 POINT 9+15*S,29+9*Y
330 NEXT
340 NEXT
.350 FOR S=l TO 10
360 HOVE 1, 24+9*S
370 GPRINT S*10
380 MOVE S*15,24
390 GPRINT S*15*X2
400 NEXT
410 MOVE 0,20
420 FOR S=l TO 5
430 GPRINT "; N" ,S, "=" ,N(S) ,
440 NEXT
450 GPRINT "; INCIDENCIA=" , I
460 REH **** CALCULO DE PORCENTAJES
470 N6 = N(1)+N(2)+N(3)+N(4)+N(5) 480 FOR S=l TO 5
490 P(S)=N(S)*100/N6
500 NEXT

510 REH *** PRESENTACION ***********
520 IF C<Xl THEN GOTO 610
530 X=X+.25
540 IF X>159 THEN GOTO 770
550 FOR S=l TO 5
560 Y = 29 + .9 * P(S)
570 POINT X,Y
580 WRITE Cl, y
590 NEXT
600 Xl =Xl + X2

610 REM **** ELECCION DE CONTRINCANTES ****
620 Rl = RND (RND(-1»*100
630 R2 = RND (RND(-1»*100
640 P6 = P(1)+P(2)+P(3)+P(4)+P(5) 650 FOR S=5 TO 1 STEP -1
660 IF Rl<P6 THEN A=S
670 IF R2<P6 THEN B=S
680 P6=P6-P(S)
690 NEXT

700 REM ****** COMBATE*******
710 N(A)=N{A)+M(A,B)/I
720 N(B)=N{B)+M(B,A)/I
730 IF N(A)<O THEN N(A)=O
740 IF N{B)<O THEN N(B)=O
750 LET C=C+l
760 GaTO 460
770 WRlTE Cl, N6
780 CLaSE Cl
790 F = F + 1
800 FS = "A"+ STRS(F)+" , "+STRS(2)
810 X2 = X2 + 5
820 FOR Z=l TO 5
830 N(Z) = 20
840 NEXT
850 GOTO 230




PROGRAMA" LECTOR DE AZAR"

10 REM *************LECTOR DE AZAR ****************
20 INPUT "NOHBRE DEL FICHERO A LEER? ", F$
30 OPEN &l,F$
40 READ &l, F&,N,X2,I

50 REM ***** PREPARACION *****
60 HYBRID
70 AXIS 15,9,9,29
80 X=9
90 FOR S=l TO 10
100 FOR Y=l TO 10
110 POINT 9+15*S,29+9*Y
120 NEXT
130 NEXT
140 FOR S=l TO 10
150 HOVE 1, 24+9*S
160 GPRINT S*10
170 HOVE S*15,24
180 GPRINT S*15*X2
190 NEXT
200 HOVE 0,20
210 GPRINT FS, " X2=",X2,
220 GPRINT "¡ INCIDENCIA=", I

230 REM *** PRESENTACION ***********
240 X=X+.25
250 IF X>159 THEN GOTO 310
260 FOR S=l TO 5
270 READ &l,Y
280 POINT X,Y
290 NEXT
300 GOTO 240
310 CLOSE &l