Trailing-Edge
-
PDP-10 Archives
-
decuslib20-04
-
decus/20-0113/comp4.bas
There are 2 other files named comp4.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 150
00130I=J
00140GOTO 250
00150PRINT L$
00160PRINT " COMPONENT 4. BINARY MODELS"
00170PRINT
00180PRINT " 1. BETA BINOMIAL MODEL"
00190PRINT " *2. MIXED BETA BINOMIAL MODEL"
00200PRINT " 3. BETA PASCAL MODEL"
00210PRINT " *4. MIXED PASCAL MODEL"
00220PRINT " 5. COMPARISON OF TWO PROPORTIONS"
00230PRINT " *6. GAMMA POISSON MODEL"
00240GOSUB 1300
00250IF I=C0 THEN 1210
00260IF I=C1 THEN 660
00270IF I=3 THEN 490
00280IF I=5 THEN 880
00290PRINT "REENTER. INPUT MUST BE 0 OR NUMBER OF AVAILABLE MODEL."
00300INPUT I
00310GOTO 250
00320PRINT L$
00330RESTORE#1
00331 INPUT# 1,I1,I2,I3
00340SCRATCH#1
00341 PRINT # 1,I1,6,I3
00350PRINT " GAMMA/POISSON MODEL"
00360PRINT
00370PRINT " 1. PRIOR DISTRIBUTION ON LAMBDA(INTENSITY)"
00380PRINT " *2. PREPOSTERIOR ANALYSIS"
00390PRINT " *3. POSTERIOR DISTRIBUTION ON LAMBDA"
00400PRINT " *4. PREDICTIVE DISTRIBUTIONS"
00410PRINT " 5. POSTERIOR INTERVALS FOR LAMBDA"
00420GOSUB 1230
00430IF I=C0 THEN 150
00440IF I=5 THEN 1170
00450IF I=C1 THEN 1190
00460IF I=3 THEN 1200
00470GOSUB 850
00480GOTO 430
00490PRINT L$
00500RESTORE#1
00501 INPUT# 1,I1,I2,I3
00510SCRATCH#1
00511 PRINT # 1,I1,3,I3
00520PRINT " BETA PASCAL MODEL"
00530PRINT
00540PRINT " 1. PRIOR DISTRIBUTION ON PROPORTION (PI)"
00550PRINT " *2. PREPOSTERIOR ANALYSIS"
00560PRINT " 3. POSTERIOR DISTRIBUTION ON PI"
00570PRINT " 4. PREDICTIVE DISTRIBUTIONS"
00580PRINT " 5. POSTERIOR INTERVALS FOR PI"
00590GOSUB 1230
00600IF I=C0 THEN 150
00610IF I<0 THEN 640
00620IF I>5 THEN 640
00630 ONI GOTO 1120,640,1140,1150,1160
00640GOSUB 850
00650GOTO 600
00660PRINT L$
00670RESTORE#1
00671 INPUT# 1,I1,I2,I3
00680SCRATCH#1
00681 PRINT # 1,I1,C1,I3
00690PRINT " BETA BINOMIAL MODEL"
00700PRINT
00710PRINT " 1. PRIOR DISTRIBUTION ON PROPORTION (PI)"
00720PRINT " 2. PREPOSTERIOR ANALYSIS"
00730PRINT " 3. POSTERIOR DISTRIBUTION ON PI"
00740PRINT " 4. PREDICTIVE DISTRIBUTIONS"
00750PRINT " 5. POSTERIOR INTERVALS FOR PI"
00760GOSUB 1230
00770IF I=C0 THEN 150
00780IF I=C1 THEN 990
00790IF I=C2 THEN 1130
00800IF I=3 THEN 1000
00810IF I=4 THEN 1110
00820IF I=5 THEN 1090
00830GOSUB 850
00840GOTO 770
00850PRINT "REENTER. INPUT MUST BE NUMBER OF AVAILABLE MODULE OR '0'.";
00860INPUT I
00870RETURN
00880PRINT L$
00890PRINT " COMPARISON OF TWO PROPORTIONS"
00900PRINT
00910PRINT " 1. INDEPENDENT BETA DISTRIBUTED PROPORTIONS"
00920PRINT " *2. NON-INDEPENDENTLY DISTRIBUTED PROPORTIONS"
00930GOSUB 1230
00940SCRATCH#1
00941 PRINT # 1,I,5,4
00950IF I=C1 THEN 1100
00960IF I=C0 THEN 150
00970GOSUB 850
00980GOTO 950
00990CHAIN "CMOD2"
01000CHAIN "CMOD3"
01010CHAIN "CMOD4"
01020CHAIN "CMOD5"
01030CHAIN "CMOD6"
01040CHAIN "CMOD2A"
01050CHAIN "CMOD7"
01060CHAIN "CMOD8"
01070CHAIN "CMOD9"
01080CHAIN "CMODA"
01090CHAIN "CMODB"
01100CHAIN "CMODT"
01110CHAIN "CMODX"
01120CHAIN "CMODAA"
01130CHAIN "CMODAB"
01140CHAIN "CMODAC"
01150CHAIN "CMODY"
01160CHAIN "CMODB"
01170CHAIN "CMOD57"
01180CHAIN "CMOD31"
01190CHAIN "CMOD58"
01200CHAIN "CMOD59"
01210SCRATCH#1
01211 PRINT # 1,-99,0,0
01220CHAIN "CMONTR"
01230PRINT
01240PRINT " * NOT YET AVAILABLE"
01250PRINT
01260PRINT "IF YOU WANT AN AVAILABLE MODULE TYPE ITS NUMBER, ELSE '0'.";
01270INPUT I
01280I=INT(I)
01290RETURN
01300PRINT
01310PRINT " * NOT YET AVAILABLE"
01320PRINT
01330PRINT "IF YOU WANT AN AVAILABLE MODEL TYPE ITS NUMBER ELSE '0'.";
01340INPUT I
01350I=INT(I)
01360RETURN
09999 END