�C�mo citar estas
tesis doctorales?

�C�mo poner un
enlace a esta p�gina?

 



 

BIOECONOM�A

Juan Carlos Mart�nez Coll

  

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


 


Volver al �ndice de la tesis doctoral Bioeconom�a

Volver al men� de Tesis Doctorales

Volver a la Enciclopedia y Biblioteca de Econom�a EMVI


Google

Web www.eumed.net