Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-04 - decus/20-0113/comp3.bas
There are 2 other files named comp3.bas in the archive. Click here to see a list.
00020  Q$="A1"
00030REM CMONTR
00040C0=0
00050C1=1
00060C2=2
00070C7=7
00090  FILES RFILE1,RFILE2,RFILE3
00130RESTORE#1
00131  INPUT#  1,K,J,I
00140RESTORE#1
00141  INPUT#  1,I1,I2,I3
00150PRINT L$
00160SCRATCH#1
00161  PRINT #  1,I1,C1,I3
00170PRINT "     COMPONENT 3. EVALUATION OF PROBABILITY DISTRIBUTIONS"
00180PRINT
00190PRINT "  1. NORMAL                     15. GAMMA "
00200PRINT "  2. STUDENT'S T               *16. MULTIVARIATE NORMAL"
00210PRINT "  3. INVERSE CHI               *17. MULTIVARIATE T"
00220PRINT "  4. INVERSE CHI-SQUARE        *18. DIRICHLET"
00230PRINT "  5. CHI-SQUARE                *19. ROBUST NORMAL"
00240PRINT "  6. BETA                      *20. EXPONENTIAL POWER"
00250PRINT "  7. BEHRENS FISHER            *21. DOUBLE EXPONENTIAL"
00260PRINT "* 8. PARETO                    *22. DOUBLE F"
00270PRINT "  9. SNEDECOR'S F              *23. WISHART"
00280PRINT " 10. BINOMIAL"
00290PRINT " 11. PASCAL"
00300PRINT " 12. BETA BINOMIAL"
00310PRINT " 13. BETA PASCAL"
00320PRINT " 14. POISSON"
00330GOSUB 800
00340I=INT(I)
00350IF I=C0 THEN 690
00360IF I<0 THEN 420
00370IF I>10 THEN 390
00380  ONI  GOTO 490,440,450,500,510,480,460,420,620,560
00390I=I-10
00400IF I>5 THEN 420
00410  ONI  GOTO 570,580,590,600,680
00420GOSUB 750
00430GOTO 350
00440CHAIN "CMODC"
00450CHAIN "CMODD"
00460CHAIN "CMODF"
00470CHAIN "CMODA"
00480CHAIN "CMODB"
00490CHAIN "CMODE"
00500CHAIN "CMODN"
00510CHAIN "CMODO"
00520CHAIN "CMODR"
00530CHAIN "CMODS"
00540CHAIN "CMODT"
00550CHAIN "CMODU"
00560CHAIN "CMODV"
00570CHAIN "CMODW"
00580CHAIN "CMODX"
00590CHAIN "CMODY"
00600CHAIN "CMOD55"
00610CHAIN "CMOD16"
00620CHAIN "CMODZ"
00630CHAIN "CMODAA"
00640CHAIN "CMODAB"
00650CHAIN "CMODAC"
00660CHAIN "CMODY"
00670CHAIN "CMODB"
00680CHAIN "CMOD57"
00690SCRATCH#1
00691  PRINT #  1,-99,0,0
00700CHAIN "CMONTR"
00710PRINT "REENTER.  INPUT MUST BE NUMBER OF AVAILABLE MODEL OR '0'.";
00720INPUT I
00730I=INT(I)
00740RETURN
00750PRINT "REENTER.  INPUT MUST BE NUMBER OF AVAILABLE DISTRIBUTION OR '0'.";
00760INPUT I
00770I=INT(I)
00780RETURN
00790PRINT "IF YOU WANT AN AVAILABLE DISTRIBUTIONS TYPE ITS NUMBER, ELSE '0'.";
00800PRINT
00810PRINT "     * NOT YET AVAILABLE"
00820PRINT
00830PRINT "IF YOU WANT A DISTRIBUTION TYPE ITS NUMBER, ELSE '0'.";
00840INPUT I
00850RETURN
00860PRINT
00870PRINT "     * NOT YET AVAILABLE"
00880PRINT
00890PRINT "IF YOU WANT A DISTRIBUTION TYPE ITS NUMBER, ELSE '0'.";
00900INPUT I
00910RETURN
09999 END