Trailing-Edge
-
PDP-10 Archives
-
decuslib20-04
-
decus/20-0113/comp6.bas
There are 2 other files named comp6.bas in the archive. Click here to see a list.
00020C0=0
00030C1=1
00040C2=2
00050C7=7
00070 FILES RFILE1,RFILE2,RFILE3
00110RESTORE#1
00111 INPUT# 1,K,J,I
00120IF J=0 THEN 190
00130I=J
00140GOTO 270
00150PRINT "REENTER. INPUT MUST NUMBER OF AVAILABLE MODULE OR '0'.";
00160INPUT I
00170I=INT(I)
00180RETURN
00190PRINT L$
00200PRINT " COMPONENT 6. MULTI-CATEGORY MODELS"
00210PRINT
00220PRINT " 1. MULTINOMIAL MODEL (DIRICHLET PRIOR)"
00230PRINT " *2. MULTINOMIAL MODEL (MIXED DIRICHLET PRIOR)"
00240PRINT " *3. MULTINOMIAL MODEL (VARIABLE WEIGHTED PRIOR)"
00250GOSUB 550
00260IF I=C0 THEN 470
00270IF I=C1 THEN 320
00280PRINT "REENTER. INPUT MUST BE NUMBER OF AVAILABLE MODEL OR '0'.";
00290I=INT(I)
00300INPUT I
00310GOTO 260
00320PRINT L$
00330RESTORE#1
00331 INPUT# 1,I1,I2,I3
00340SCRATCH#1
00341 PRINT # 1,I1,C1,I3
00350PRINT " MULTINOMIAL MODEL (DIRICHLET PRIOR)"
00360PRINT
00370PRINT " 1. PRIOR DISTRIBUTION"
00380PRINT " 2. POSTERIOR DISTRIBUTION"
00390GOSUB 490
00400IF I=C0 THEN 190
00410IF I=C1 THEN 450
00420IF I=C2 THEN 460
00430GOSUB 150
00440GOTO 400
00450CHAIN "CMODG"
00460CHAIN "CMODH"
00470SCRATCH#1
00471 PRINT # 1,-99,0,0
00480CHAIN "cmontr"
00490PRINT
00500PRINT " * NOT YET AVAILABLE"
00510PRINT
00520PRINT "IF YOU WANT AN AVAILABLE MODULE TYPE ITS NUMBER, ELSE '0'.";
00530INPUT I
00540RETURN
00550PRINT
00560PRINT " * NOT YET AVAILABLE"
00570PRINT
00580PRINT "IF YOU WANT AN AVAILABLE MODEL TYPE ITS NUMBER ELSE '0'.";
00590INPUT I
00600RETURN
09999 END