Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap4_198111 - decus/20-0113/cmod73.bas
There are 2 other files named cmod73.bas in the archive. Click here to see a list.
00010REM***************************************************************
00020REM ************************************************************
00030REM
00040REM     CMOD73     CMOD73      CMOD73     CMOD73     CMOD73
00050REM
00060REM ************************************************************
00070  FILES RFILE1,RFILE2,RFILE3
00080RESTORE#1
00090  INPUT#  1,I1,I2,I3
00100SCRATCH#1
00110  PRINT #  1,0,I2,I3
00120GOTO 170
00130PRINT L$
00140PRINT "CMOD           CONTENTS"
00150PRINT "----------------------------------------------------"
00160RETURN
00170GOSUB 130
00180PRINT "2.     BETA PRIOR"
00190PRINT "2A.    PREPOSTERIOR FOR TWO PARAMETER NORMAL"
00200PRINT "3.     BETA POSTERIOR"
00210PRINT "4.     PRIOR FOR TWO PARAMETER NORMAL ST. DEVIATION"
00220PRINT "5.     PRIOR FOR TWO PARAMETER NORMAL MEAN"
00230PRINT "6.     POSTERIOR FOR TWO PARAMETER NORMAL"
00240PRINT "7.     ENTRY OF TWO T DISTRIBUTIONS FOR COMP. OF MEANS"
00250PRINT "8.     SPECIFYING TYPICAL PRIOR M-GROUP PROPORTIONS"
00260PRINT "9.     POSTERIOR M-GROUP PROPORTIONS USING ARC-SINE."
00270PRINT "10.    DATA MANAGEMENT MODUES"
00280PRINT "11.    DATA CREATION"
00290PRINT "12.    DATA ENTRY."
00300PRINT "13.    DATA REDUCTION SUMMARY STATISTICS"
00310PRINT "14.    DATA GRAPHS AND TABULAR DISPLAYS"
00320PRINT "15.    DATA TRANSFORMATIONS"
00330GOSUB 1170
00335IF O1=1THEN 170
00340GOSUB 130
00350PRINT "16.    DATA GROUPING"
00360PRINT "17.    DATA FILING."
00370PRINT "18.    DATA FILE #1 ITBS SCHOOL 1"
00380PRINT "19.    DATA FILE #2 ITBS SCHOOL 14"
00390PRINT "20.    SET UP SYSTEM DATA FILES"
00400PRINT "21.    DATA FILE #3 ESAA PILOT STUDY DATA."
00410PRINT "22.    CONSENSUS PREPOSTERIOR-GEORGE WOODWORTH"
00420PRINT "30.    DATA RETRIEVAL(INTERMEDIATE STEP)"
00430PRINT "31.    DATA FILE ENTRY"
00440PRINT "42.    BIVARIATE PLOTS"
00450PRINT "43.    HISTOGRAMS"
00460PRINT "55.    EVALUATION OF POISSON"
00470PRINT "57.    EVALUATION OF GAMMA"
00480PRINT "58.    PRIOR FOR POISSON"
00490PRINT "61.    DATA GROUPING"
00500PRINT "62.    SIMULTANEOUS ESTIMATION EQUAL SLOPE MODEL"
00510GOSUB 1170
00515IFO1=1THEN 170
00520GOSUB 130
00530PRINT "64.    ADVERSARY PREPOSTERIOR FOR TWO-PARAMETER NORMAL"
00540PRINT "65.    PRIOR FOR SIMPLE LINEAR REGRESSION"
00550PRINT "66.    POSTERIOR FOR BETA AND SIGMA"
00560PRINT "67.    POSTERIOR FOR INTERCEPT AND N+1 LINEAR REGRESSION"
00570PRINT "71.    DATA TRANSFORMATION"
00580PRINT "72.    TEMPORARY DATA FILE(INTERMEDIATE STEP)"
00590PRINT "73.    LISTINGOF CMOD'S"
00600PRINT "75.    SET UP FOR 2*2 ANOVA"
00610PRINT "76.    PRIOR FOR SIMULTANEOUS ESTIMATION OF MEANS LINDLEY"
00620PRINT "77.    POSTERIOR ANALYSIS SIMULTANEOUS ESTIMATION OF MEANS"
00630PRINT "78.    MULTIPLE LINEAR REGRESSION DATA ENTRY"
00640PRINT "79.    MULTIPLE LINEAR REGRESSION ALL POSSIBLE COMBINATIONS"
00650PRINT "80.    PREDICTIVE DISTRIBUTIONS MULTIPLE REGRESSION"
00660PRINT "81.    MULTIPLE REGRESSION PREDICTED SCORES"
00670PRINT "82.    MULTIPLE REGRESSION REGRESSION COEFFICIENTS"
00680PRINT "83.    INFORMATION BASED ON MULTIPLE REGRESSION PREDICTORS"
00690GOSUB 1170
00700GOSUB 130
00705IF O1=1THEN170
00710PRINT "84.    MULTIPLE REGRESSION HDR"
00720PRINT "85.    ALL PREDICTION COMBINATIONS MULTIPLE REGRESSION"
00730PRINT "86.    INTERMEDIATE MODULE ANOVA- MARGINAL DISTRIBUTIONS"
00740PRINT "87.    INTERMEDIATE MODULE ANOVA- LINEAR COMBINATIONS"
00750PRINT "88.    INTERMEDIATE MODULE ANOVA- PAIRWISE COMPARISONS"
00760PRINT "89.    SET UP FOR 3 BY 3 ANOVA"
00770PRINT "90.    QUOTA FREE SELECTION"
00780PRINT "91.    RESTRICTED SELECTION- ASSESING UTILITY"
00790PRINT "92.    RESTRICTED SELECTION- FINDING CUT SCORES"
00800PRINT "93.    22 COLLEGE DATA SET"
00810PRINT "94.    PRE-SIMULTANEOUS ESTIMATION MODULE"
00820PRINT "84.    MULTIPLE REGRESSION HDR"
00830PRINT "85.    ALL PREDICTION COMBINATIONS MULTIPLE REGRESSION"
00840PRINT "A.     POSTERIOR ANALYSIS FOR M-GROUP PROPORTIONS ARC-SINE"
00850PRINT "AA.    BETA BINOMIAL PRIOR"
00860PRINT "AB.    POSTERIOR BETA BINOMIAL"
00870GOSUB 1170
00875IFO1=1THEN170
00880GOSUB 130
00890PRINT "AC.    COMBINES PRIOR AND DATA FOR BETA BINOMIAL"
00900PRINT "B.     BETA DISTRIBUTION"
00910PRINT "C.     STUDENTS T DISTRIBUTION"
00920PRINT "D.     INVERSE CHI DISTRIBUTION"
00930PRINT "E.     NORMAL DISTRIBUTION"
00940PRINT "F.     BEHRENS FISHER DISTRIBUTION"
00950PRINT "G.     PRIOR FOR MULTINOMIAL DIRICHLET"
00960PRINT "H.     POSTERIOR MULTINOMIAL"
00970PRINT "K.     NINE POINT LEAST SQUARE UTILITY"
00980PRINT "L.     NORMAL FIT LEAST SQUARE UTILITY"
00990PRINT "N.     INVERSE CHI SQUARE"
01000PRINT "O.     CHI SQUARE"
01010PRINT "OF.    TWO T'S FOR BEHRENS FISHER(INTERMEDIATE STEP)"
01020PRINT "P.     PIECWISE EXPECTED UTILITY"
01030PRINT "Q.     NINE POINT UNIVARIATE UTILITY-LEAST SQUARE"
01040PRINT "R.     FITTING NORMAL OGIVE FUNCTION"
01050GOSUB 1170
01055IF O1=11THEN170
01060GOSUB 130
01070PRINT "S.     EXPECTED UTILITY USING NORMAL OFIVE"
01080PRINT "T.     COMPARISON OF TWO PROPORTIONS-INDEPENDENT BETAS"
01090PRINT "U.     COMPARISON OF TWO STANDARD DEVIATIONS"
01100PRINT "V.     EVALUATION OF BINOMIAL DISTRIBUTION"
01110PRINT "W.     EVALUATION PASCAL DISTRIBUTION"
01120PRINT "X.     BETA BINOMIAL"
01130PRINT "Y.     PASCAL DISTRIBUTION"
01140PRINT "Z.     EVALUATION OF A F-DISTRIBUTION"
01150PRINT "-------------------------------------------------------"
01160GOTO 1210
01170PRINT "------------------------------------------------------"
01180PRINT "TYPE '66' FOR NEXT PAGE, '0' TO EXIT, '1' TO RELIST CMODS.";
01190GOSUB 1260
01200RETURN
01210PRINT "TYPE '0' TO EXIT, '1' TO RELIST CMODS.";
01220GOSUB 1340
01230IF O1=1THEN1330
01240IF O1=0 THEN 1320
01250GOTO 1210
01260GOSUB 1340
01270IFO1=1THEN1330
01280IF O1=66 THEN 1330
01290IF O1=0 THEN 1320
01300PRINT "INPUT MUST BE '0' OR '66'."
01310GOTO 1260
01320CHAIN "CEXPLN"
01330RETURN
01340REM--SUBROUTINE THAT DETERMINES IF RESTART HAS BEEN REQUESTED.
01350INPUT O1
01360IF O1=-9999 THEN 1380
01370RETURN
01380CHAIN "RSTRT"
01390REM*************END ROUTINE
01400END