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 VI

PROGRAMA "HPB"

10 REM **************** H P B B A S *******************
20 REM ***** MATRIZ DE PAGOS ********
30 DIM M(3,3)
40 A$="PHB"
50 DIM P(3)
60 DIM T(3)
70 DIM E( 3)
80 DIM D(3)
90 FOR Ml = 1 TO 3
100 FOR M2 = 1 TO 3
110 READ M(Ml,M2)
120 NEXT
130 NEXT
140 DATA 2, 0, 1
150 DATA l0, -5, 2.5
160 DATA 6, -2.5, 5
170 REM ****** ENTRADA DE DATOS ********
180 INPUT "PORCENTAJE DE PALOMAS? ", P(1)
190 INPUT "PORCENTAJE DE HALCONES? ", P(2)
200 INPUT "PORCENTAJE DE BURGUESES? ", P( 3)
210 INPUT" I NC IDENC lA? ", I
220 INPUT "NOMBRE DEL FICHERO? ", FS
230 INPUT "PRESENTACION? mEC, EXP, TAS O EDE)", GS
240 X=9
250 IF G$="DEC" THEN GOSUB 620
260 IF G$="EXP" THEN GOSUB 840
270 IF G$="TAS" THEN GOSUB 1150
280 IF G$="EDE" THEN GOSUB 1150
290 MOVE 0,114.5
300 GPRINT F$, "; PRESENTACION ",G$, "; INCIDENCIA=",I
310 MOVE 1,109.5
320 GPRINT "PORCENTAJES INICIALES: ",
330 FOR S=l TO 3
340 GPRINT A$(S,S),"=",P(S),"; ",
350 NEXT
360 REM ************COMBATE ***********
370 FOR S=l TO 3
380 E=O
390 FOR Z=l TO 3
400 E=E+M(S,Z)*P(Z)
410 NEXT
420 T(S) = E
430 E(S)=P(S)*(l+E/I)
440 NEXT
450 IF G$="TAS" THEN GOSUB 1290
460 IF GS = "EDE" THEN GOSUB 1390
470 FOR S=l TO 3
480 P(S)=P(S)+E(S)
490 IF P(S)(O THEN P(S)=O
500 NEXT

I510 REM **** CALCULO DE PORCENTAJES
520 P6=P(1)+P(2)+P(3)
530 FOR S=l TO 3
540 P(S)=P(S)*100/P6
550 NEXT
560 X=X+.25
570 IF X>159 THEN GOTO 1480
580 IF G$="DEC" THEN GOTO 780
590 IF G$="EXP" THEN GOTO 1090
600 IF G$="TAS"THEN GOTO 360
610 IF G$="EDE"THEN GOTO 360
620 REM ***** PREPARACION DECIMAL *****
630' HYBRID
640 AXIS 15,7.5, 9, 30
650 FOR S=l TO 10
660 FOR Y=l TO 10
670 POINT 9+15*S,30+7.5*Y
680 NEXT
690 NEXT
700 FOR S=l TO 10
710 SS=STRS(S*10)
720 MOVE 6-2*LEN(SS), 27+7.5*S
730 GPRINT S*10
740 MOVE S*15,25
750 GPRINT S*60
760 NEXT
770 RETURN
780 REM *** PRESENTACION DECIMAL **************
790 FOR S=l TO 3
800 Y=30+P(S>*.75
810 POINT X,Y
820 NEXT
830 GOTO 360
840 REM ********* PREPARACION EXPONENCIAL ***************
850 HYBRID
860 AXIS 15,0,9,30
870 FOR N=5 TO 10
880 MOVE 8,30+(2_N>*75/1024
890 DRAW 10,30+(2_N)*75/1024
900 FOR S=l TO 10
910 POINT 9+15*?,30+(2_N)*75/1024
920 NEXT
930 NEXT
940 MOVE 0,102
950 GPRINT 100
960 MOVE 2,65
970 GPRINT 10
980 MOVE 4,47
990 GPRINT 1
1000 MOVE 2,37
1010 GPRINT "0.1"
1020 MOVE 0,32
1030 GPRINT "0.01"
1040 FOR 5=1 TO 10
1050 MOVE 1+S*15,24
1060 GPRINT S*60
1070 NEXT
1080 RETURN
1090 REM ******* PRESENTACION EXPONENCIAL ************
1100 FOR S=l TO 3
1110 Y=30+(2_(8+(LOG(P(S»/LOG(10»»*75/1024
1120 POINT X,Y
1130 NEXT
1140 GOTO 360
1150 REM ************ PRE TAS **********************
1160 HYBRID
1170 AXIS 15, 8,9,66
1180 FOR S=l TO 10
1190 FOR Y=O TO 10
1200 POINT 9+15*S,26 + 8*Y
1210 NEXT
1220 NEXT
1230 FOR S= -5 TO 5
1240 S$=STR$ (S)
1250 MOVE 6-2*LEN(S$) , 64+S*8
1260 GPRINT S
1270 NEXT
1280 RETURN
1290 REM
1300 REM PRESENTACION TAS
1310 REM
1320 FOR S = 1 TO 3
1330 y = 66 + T(S>*.08
1340 POINT X,Y
1350 NEXT
1360 D= (T(1)*P(1)+T(2>*P(2)+T(3)*P(3»/100
1370 POINT X, 66 + D * .08
1380 RETURN
1390 REM
1400 REM PRESENTACION EDE
1410 REM
1420 D=(T(1)*P(1)+T(2)*P(2)+T(3)*P(3»/100
1430 FOR S = 1 TO 3
1440 D(S)=T(S)-D
1450 POINT X,D(S>*.08 +66
1460 NEXT
1470 RETURN
1480 REM ********* FINAL ***************
1490 MOVE O, 2 O
1500 FOR S=l TO 3
1510 GPRINT AS(S,S)," =",P(S)."; "
1520 NEXT
1530 END