Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-06 - 43,50422/comp5.bas
There are 2 other files named comp5.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 300
00130I=J
00140GOTO 390
00150PRINT "REENTER.  INPUT MUST BE NUMBER OF AVAILBLE MODULE OR '0'.";
00160INPUT I
00170I=INT(I)
00180RETURN
00190PRINT L$
00200PRINT "     COMPARISON OF TWO STANDARD DEVIATIONS"
00210PRINT
00220PRINT "     1. INDEPENDENT INVERSE CHI DISTRIBUTED ST. DEVIATIONS"
00230PRINT "    *2. NON-INDEPENDENTLY DISTRIBUTED ST. DEVIATIONS"
00240GOSUB 900
00250IF I=C0 THEN 300
00260SCRATCH#1
00261  PRINT #  1,I,4,5
00270IF I=C1 THEN 870
00280GOSUB 150
00290GOTO 250
00300PRINT L$
00310PRINT "     COMPONENT 5. UNIVARIATE NORMAL MODELS"
00320PRINT
00330PRINT "     1. TWO PARAMETER NORMAL(NATURAL CONJUGATE PRIORS)"
00340PRINT "    *2. TWO PARAMETER NORMAL (MIXED PRIORS)"
00350PRINT "     3. COMPARISON OF TWO NORMAL MEANS"
00360PRINT "     4. COMPARISON OF TWO STANDARD DEVIATIONS"
00370GOSUB 960
00380IF I=C0 THEN 880
00390IF I>4 THEN 420
00400IF I<0 THEN 420
00410  ONI  GOTO 450,420,650,190
00420PRINT "REENTER.  INPUT BE NUMBER OF AVAILABLE MODEL OR '0'.";
00430INPUT I
00440GOTO 380
00450PRINT L$
00460RESTORE#1
00461  INPUT#  1,I1,I2,I3
00470SCRATCH#1
00471  PRINT #  1,I1,C1,I3
00480PRINT "     TWO PARAMETER NORMAL (NATURAL CONJUGATE PRIORS)"
00490PRINT
00500PRINT "     1. PRIOR DISTRIBUTION ON STANDARD DEVIATION (SIGMA)"
00510PRINT "     2. PRIOR DISTRIBUTION ON MEAN (MU)"
00520PRINT "     3. PREPOSTERIOR ANALYSIS"
00530PRINT "     4. POSTERIOR DISTRIBUTIONS ON MU AND SIGMA"
00540PRINT "     5. POSTERIOR INTERVALS FOR MU"
00550PRINT "     6. POSTERIOR INTERVALS FOR SIGMA"
00560GOSUB 900
00570IF I=C0 THEN 300
00580IF I<0 THEN 620
00590IF I>6 THEN 620
00600SCRATCH#1
00601  PRINT #  1,I,C1,I3
00610  ONI  GOTO 810,820,840,830,760,770
00620PRINT "REENTER.  INPUT MUST BE NUMBER OF AVAILABLE MODULE OR '0'.";
00630INPUT I
00640GOTO 570
00650PRINT L$
00660PRINT "     COMPARISON OF TWO NORMAL MEANS"
00670PRINT
00680PRINT "     1. INDEPENDENT 'T' POSTERIOR DISTRIBUTIONS"
00690PRINT "    *2. DEPENDENT 'T' POSTERIOR DISTRIBUTIONS"
00700GOSUB 900
00710IF I=C0 THEN 300
00720SCRATCH#1
00721  PRINT #  1,1,3,5
00730IF I=C1 THEN 850
00740GOSUB 150
00750GOTO 710
00760CHAIN "CMODC"
00770CHAIN "CMODD"
00780CHAIN "CMODF"
00790CHAIN "CMOD2"
00800CHAIN "CMOD3"
00810CHAIN "CMOD4"
00820CHAIN "CMOD5"
00830CHAIN "CMOD6"
00840CHAIN "CMOD2A"
00850CHAIN "CMOD7"
00860CHAIN "CMODT"
00870CHAIN "CMODU"
00880SCRATCH#1
00881  PRINT #  1,-99,0,0
00890CHAIN "CMONTR"
00900PRINT
00910PRINT "     * NOT YET AVAILABLE"
00920PRINT
00930PRINT "IF YOU WANT AN AVAILABLE MODULE TYPE ITS NUMBER, ELSE '0'.";
00940INPUT I
00950RETURN
00960PRINT
00970PRINT "     * NOT YET AVAILABLE"
00980PRINT
00990PRINT "IF YOU WANT AN AVAILABLE MODEL TYPE ITS NUMBER ELSE '0'.";
01000INPUT I
01010RETURN
09999 END