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

ANEXO VII

ESTRATEGIAS MIXTAS

También es posible el análisis de estrategias mixtas del tipo de las que en el capitulo 6 califiqué de monomórficas. Esa tarea la he realizado mediante el programa que listo a continuación. No he comentado los resultados en el cuerpo de la tesis por considerar que desviaban la atención de los temas que me interesaban especialmente. Sin embargo presentaré en el anexo VII algunas gráficas realizadas por este programa.

En el programa "MIXTAS" la dificultad principal estribaba en estimación de la matriz de pagos. Los elementos de la submatriz de estrategias simples hay que introducirlos uno a uno. Los elementos correspondientes a las filas o columnas de las estrategias mixtas son estimados por las líneas 290 a 450. El programa prevé la posibilidad de considerar simultáneamente hasta cinco estrategias simples y un número indeterminado de estrategias mixtas.






PROGRAMA "MIXTAS"

10 REM *********** MIXTAS ********************
20 INPUT "CUANTAS ESTRATEGIAS SIMPLES? ",Nl
30 INPUT "CUANTAS ESTRATEGIAS MIXTAS? ",N2
40 N=Nl+N2
50 DIM M(N,N)
60 DIM P1<N2,Nl>
70 DIM P(N)
80 DIM AS(N)
90 AS = "PHESG"
100 FOR S=Nl+l TO N
110 AS(S)=CHRS(76+S-Nl)
120 NEXT
130 FOR S=l TO N
140 PRINT UCUAL SERA EL PORCENTAJE INICIAL DE U,AS(S,S),
150 INPUT P(S) .
160 NEXT
170 FOR Sl=l TO Nl
180 FOR S2=1 TO Nl
190 PRINT "CUAL ES EL PAGO ( u,AS<Sl,Sl>," , ",AS(S2,S2),U ) u 200 INPUT M(Sl,S2)
210 NEXT
220 NEXT
230 FOR Sl=l TO N2
240 FOR S=l TO Nl
250 ,UCON QUE PROBABILIDAD u.AS(Sl+Nl,Sl+Nl),U JUGARA U,AS(S,S), 260 INPUT Pl(Sl,S)
270 NEXT
280 NEXT
290 FOR Sl= 1 TO Nl
300 FOR S2= 1 TO N2
310 FOR S3=1 TO Nl
320 M(Sl,Nl+S2)=M(Sl.Nl+S2)+M(Sl.S3)*Pl(S2,S3)/100
330 M(Nl+S2.S1)=M(Nl+S2,Sl)+M(S3,Sl)*Pl(S2,S3)/100
340 NEXT 350 NEXT 360 NEXT
370 REM *********SUBMATRIZ **********
380 FOR Sl=Nl+1 TO N
390 FOR S2=Nl+1 TO N
400 FOR S3=1 TO Nl
410 M(Sl.S2)=M(Sl,S2)+M(Sl,S3)*Pl(S2-Nl,S3)/100
420 NEXT 430 NEXT 440 NEXT
450 GOTO 630
460 PRINT Cl "LA MATRIZ DE PAGOS ES :00
470 PRINT Cl
480 PRINT Cl
490 FOR S=l TO N
500 PRINT Cl TAB (10*S). AS(S,S),
510 NEXT
520 PRINT Cl
530 PRINT Cl
540 FOR Sl=l TO N
550 PRINT Cl AS(Sl,Sl),
560 FOR S2=1 TO N
570 SS=STRS(M(Sl.S2»
580 PRINT Cl TAB (10*S2), %9E2, M(Sl,S2).
590 NEXT
600 PRINT Cl
610 PRINT Cl
620. NEXT
630 INPUT "INCIDENCIA? u, I
640 INPUT "PRESENTACION? mEC, EXP O ESP) ", GS
650 X=9
660 IF G$=uDECu THEN GOSUB 1070
670 IF G$=uEXpu THEN GOSUB 1290
680 IF G$=uESpu THEN  GO5UB 1720
690 MOVE 0,114.5
700 GPRINT GS,
710 GPRINT u; M = u,
720 FOR S=l TO Nl
730 GPRINT u +u,P1<l.S),AS(S,S).
740 NEXT
750 MOVE 1.109.5
760 GPRINT "PORCENTAJES INICIALES: "
770 FOR S=l TO N
780 GPRINT AS(S,S),u=",INT (P(S»,"; ",
790 NEXT
800 GPRINT "1=".1
810 REM ************COMBATE ***********
820 FOR S=l TO N
830 E=O
840 FOR Z=l TO N
850 E=E+M(S,Z)*P(Z)
860 NEXT .
870 IF G$="ESP" THEN GOSUB 1970
880 E<S)=P(S)*(l+E/I)
890 NEXT
900 FOR S=l TO N
910 P(S)=P(S)+E(S)
920 IF P(5)<0 THEN P(S)=O
930 NEXT
940 REM **** CALCULO DE PORCENTAJES*******
950 P6=0
960 FOR 5=1 TO N
970 P6=P6+P(5)
980 NEXT
990 FOR 5=1 TO N
1000 P(S)=P(5)*100/P6
1010 NEXT
1020 X=X+.25
1030 IF X>159 THEN GOTO 1610
1040 IF G$="DEC" THEN GOTO 1230
1050 IF G$="EXP" THEN GOTO 1540
1060 IF G$="ESP"THEN GOTO 810
1070 REH ***** PREPARACION DECIMAL *****
1080 HYBRID
1090 AXIS 15,7.5, 9, 30
1100 FOR S=l TO 10
1110 FOR Y=l TO 10
1120 POINT 9+15*S,30+7.5*Y
1130 NEXT
1140 NEXT
1150 FOR S=l TO 10
1160 S$=STR$(S*10)
1170 MOVE 6-2*LEN(S$) , 27+7.5*S
1180 GPRINT S*10
1190 MOVE S*15,25
1200 GPRINT S*60
1210 NEXT
1220 RETURN
1230 REM *** PRESENTACION DECIMAL **************
1240 FOR S=l TO N
1250 Y=30+P(S)*.75
1260 POINT X,Y
1270 NEXT
1280 GOTO 810
1290 REM ********* PREPARACION EXPONENCIAL ***************
1300  HYBRID
1310 AXIS 15,0,9,30
1320 FOR K=5 TO 10
1330 MOVE 8,30+(2-K)*75/1024
1340 DRAW 10,30+(2-K)*75/1024
1350 FOR S=l TO 10
1360 POINT 9+15*S,30+(2-K)*75/1024
1370 NEXT
1380 NEXT
1390 MOVE 0,102
1400 GPRINT 100
1410 MOVE 2,65
1420 GPRINT 10
1430 MOVE 4,47
1440 GPRINT 1
1450 MOVE 2,37
1460 GPRINT "0.1"
1470 MOVE 0,32
1480 GPRINT "0.01"
1490 FOR S=l TO 10
1500 MOVE 1+S*15,24
1510 GPRINT S*60
1520 NEXT
1530 RETURN
1540 REM ******* PRESENTACION EXPONENCIAL ************
1550 FOR S=l TO N
1560
1570 IF P(S)<>O THEN Y=30+(2-(8+(LOG(P(S»/LOG(10»»*75/1024
1580 POINT X,Y
1590 NEXT
1600 GOTO 810
1610 REM *********FINAL **************
1620 MOVE 0,20
1630 FOR S=l TO N
1640 GPRINT AS(S,S),"=",%9E2,P(S),"; "
1650 NEXT
1660 END
1670 DATA 1,0,1,0,0
1680 DATA 2,-10,-10,2,2
1690 DATA 1,-10,1,-10,2
1700 DATA 2,0,-10,-10,0
1710 DATA 2,0,0,2,1
1720 REM
1730 REM ************ PRE ESP **********************
1740 HYBRID
1750 AXIS 15,4,9,76
1760 FOR S=l TO 10
1770 FOR Y=O TO 18 STEP 2
1780 POINT 9+15*S,36 +4*Y
1790 NEXT
1800 NEXT
1810 FOR S= -10 TO O STEP 2
1820 SS=STR$ (S)
1830 MOVE 6-2*LEN(S$) , 73+S*4
1840 GPRINT S
1850 NEXT
1860 FOR S=O TO 2 STEP.5
1870 S$=STR$ (S)
1880 MOVE 6-2*LEN(S$) , 73+S*16
1890 GPRINT S
1900 NEXT
1910 FOR S= 60 TO 600 STEP 60
1920 S$ = 8TR$ (S)
1930 MOVE 9+ S/4 -2*LEN (8S),30
1940 GPRINT S
1950 NEXT
1960 RETURN
1970 IF P(S) = O THEN RETURN
1980 IF E>O THEN POINT X, 76 + E*.16
1990 IF E<O THEN POINT X, 76 + E*.04
2000 RETURN