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