Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-06 - 43,50422/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