¿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 V
PROGRAMA "MODELO CONTINUO"



En el programa "MODELO CONTINUO", modificando las líneas 120 y 130, se pueden variar el valor del recurso objeto del conflicto y los costes producidos en los conflictos. Como puede comprobarse ello presenta la complicación de que sea el propio ordenador el que estime la matriz de pagos, tarea que realiza en las líneas 140 a 180. Esto me ha permitido realizar diversos experimentos para analizar la influencia que tenían estas variables sobre la evolución de los acontecimientos. No he presentado estos análisis en el cuerpo de la tesis, ya que no varían fundamentalmente con los casos considerados.


PROGRAMA "MODELO CONTINUO"

10 REM
20 REM              MODELO CONTINUO
30 REM
40 REM ***** MATRIZ DE PAGOS ********
50 DIM H(5,5)
60 AS="PHESG"
70 DIM P(5)
80 DIM T(5)
90 DIM E(5)
100 DIM V(5)
110 DIM D(5)
120 V=2
130 C=22
140 M(l,l)=V/2; M(l,2)=0;M(l,3)=V/2; M(l,4)=0; M(l,5)=0
150 M(2,l)=V ; M(2,2)=(V-C)/2 ; M(2,3)=(V-C)/2 ; M(2,4)=V ; M(2,5)=V 160 M(3,l)=V/2 ; M(3,2)=(V-C)/2 ; M(3,3)=V/2 ; M(3,4)=(V-C)/2 ; M(3,5)=V 170 M(4,l)=V ; M(4,2)=0 ; M(4,3)=(V-C)/2 ; M(4,4)=(V-C)/2 ; M(4,5)=0 180 M(5,l)=V ; M(5,2)=0 ; M(5,3)=0 ; M(5,4)=V ; M(5,5)=V/2


190 REM ****** ENTRADA DE DATOS ********
200 INPUT "PORCENTAJE DE PALOMAS? ", P(1)
210 INPUT "PORCENTAJE DE HALCONES? ", P(2)
220 INPUT "PORCENTAJE DE GATOS? ", P(3)
230 INPUT "PORCENTAJE DE SERPIENTES? ", P(4)
240 INPUT "PORCENTAJE DE GALLOS? ", P(5)
250 INPUT" INCIDENCIA? ", I
260 INPUT "NOMBRE DEL FICHERO? ", F$
270 INPUT "PRESENTACION? (DEC, EXP, TAS, O EDE) ", G$
280 X=9
290 IF GS="DEC" THEN GOSUB 690
300 IF GS="EXP" THEN GOSUB 910
310 IF GS="TAS" THEN GOSUB 1220
320 IF GS = "EDE" THEN GOSUB 1220
330 MOVE 0,114.5
340 GPRINT FS, "; PRESENTACION ",GS, "; INCIDENCIA=" , 1
350 MOVE 1,109.5
360 GPRINT "PORCENTAJES INICIALES: ",
370 FOR S=l TO 5
380 GPRINT AS(S,S),"=",P(S),"; ",
390 NEXT



400 REM ************COMBATE ***********
410 FOR S=l TO 5
420 E=O .
430 FOR Z=l TO 5
440 E=E+H(5,Z)*P(Z)
450 NEXT
460 V(S) = E * P(5) I 100
470 V = V + V(5)
480 T(S) = E
490 E(S)=P(5)*(1+E/I)
500 NEXT
510. IF G$ = "TAS" THEN GOSUB 1410
520 IF G$="EDE" THEN GOSUB 1500
530 V=O
540 FOR 5=1 TO 5
550 P(S)=P(S)+E(S)
560 IF P(5)<0 THEN P(S)=O
570 NEXT
 

580 REM **** CALCULO DE PORCENTAJES *****
590 P6=P(1)+P(2)+P(3)+P(4)+P(5)
600 FOR S=l TO 5
610 P(S)=P(S)*100/P6
620 NEXT
630 X=X+.25
640 IF X>159 THEN GOTO 1560
650 IF G$="DEC" THEN GOTO 850
660 IF G$="EXP" THEN GOTO 1160
670 IF G$="TAS"THEN GOTO 400
680 IF G$ = "EDE" THEN GOTO 400
 

690 REM ***** PREPARACION DECIMAL *****
700 HYBRID ,
710 AXIS 15,7.5, 9, 30
720 FOR S=l TO 10
730 FOR Y=l TO 10
740 POINT 9+15*5,30+7.5*Y
750 NEXT
760 NEXT
770 FOR S=l TO 10
780 SS=5TRS(5*10)
790 MOVE 6-2*LEN(5$) , 27+7.5*5
800 GPRINT 5*10
810 MOVE 5*15,25
820 GPRINT 5*60
830 NEXT
840 RETURN
 

850 REM *** PRESENTACION DECIMAL **************
860 FOR 5=1 TO 5
870 Y=30+P(5)*.75
880 POINT X,Y
890 NEXT
900 GOTO 400




910 REM ********* PREPARACION EXPONENCIAL ***************
920 HYBRID
930 AXIS 15,0,9,30
940 FOR N=5 TO 10
950 MOVE 6,30+(2-N)*75/1024
960 DRAW 10,30+(2-N)*75/1024
970 FOR S=l TO 10
980 POINT 9+15*S,30+(2-N)*75/1024
990 NEXT
1000 NEXT
1010 MOVE 0,102
1020 GPRINT 100
1030 MOVE 2,65 1040 GPRINT 10 1050 MOVE 4,47
1060 GPRINT 1
1070 MOVE 2,37
1080 GPRINT "0.1"
1090 MOVE 0.32
1100 GPRINT "0.01"
1110 FOR S=l TO 10
1120 MOVE 1+S*15,24
1130 GPRINT S*60
1140 NEXT
1150 RETURN


1160 REM ******* PRESENTACION EXPONENCIAL ************
1170 FOR S=l TO 5
1180 Y=30+(2-(8+(LOG(P(S»/LOG(10»»*75/1024
1190 POINT X, y
1200 NEXT
1210 GOTO 400


1220 REM ************ PRE ESP **********************
1230 HYBRID
1240 AXIS-15.10,9,76
1250 FOR S=l TO 10
1260 FOR Y=-2 TO 4 STEP .5
1270 POINT 9+15*S,36 + 20 * Y
1280 NEXT
1290 NEXT
1300 FOR S= -10 TO O STEP 2
1310 SS=STRS (S)
1320 MOVE 6-2*LEN(SS). 73 + S * 4
1330 GPRINT S
1340 NEXT
1350 FOR S = O TO 2 STEP .5
1360 SS=STR$ (S)
1370 MOVE 6-2*LEN(S$). 73 + S * 16
1380 GPRINT S
1390 NEXT
1400 RETURN




1410 REM ********** PRESENTACION ESPERANZAS *************
1420 FOR S = 1 TO 5
1430 IF T(S) > O THEN Y = 76 + T(S) * .2
1440 IF T(S) < O THEN Y = 76 + T(S) * .2
1450 POINT X,Y
1460 NEXT
1470 POINT X, 76 + V * .2
1480 RETURN


1490 REM ******** PREPARACION EDE ************
1500 REM  ****** PRESENTACION EDE **************
1510 FOR S = 1 TO 5
1520 D(S) = T(S) - V
1530 POINT X, 76 + D(S) * .2
1540 NEXT
1550 RETURN


1560 REM ********* FINAL **************
1570 MOVE 0,20
1580 FOR S=l TO 5
1590 GPRINT AS(S,S)," =",P(S),"; "
1600 NEXT
1610 END


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