10X$=SYS(CHR$(7)):R$=LEFT(X$,7):L$=RIGHT(X$,8) 20 REM************************************************************* 30 REM CMONTR CMONTR CMONTR CMONTR CMONTR 40 REM *********************************************************** 50 REM 60 REM MONITOR CONTROLLER 70 REM 80 REM *********************************************************** 90 REM *********************************************************** 100 REM *********************************************************** 110 DIM M(111) 120 MAT M=ZER 125 M(0)=0 130 DIM #1,A1(111),A2(111),A3(111) 140 OPEN R$ AS FILE 1 170 REM ********************************************************** 180 REM 190 REM K=MODULE NUMBER 200 REM J=MODEL NUMBER 210 REM I=COMPONENT NUMBER 220 REM 230 REM SETTINGS FOR K,J,I IF COMING FROM 'RSTRT' (RESTART) 240 REM K=0 IF AT LEAST A NEW MODULE IS REQUESTED 250 REM J=0 IF AT LEAST A NEW MODEL IS REQUESTED 260 REM I=0 IF A NEW COMPONENT IS REQUESTED 270 REM 280 REM K=9999 IF COMING FROM 'CEXPLN' (EXPLANATION) 290 REM 300 K=A1(0):J=A1(1):I=A1(2) 310 IF K=9999 THEN 660 320 IF I=0 THEN 6420 330 IF J=0 THEN 1160 340 IF K=0 THEN 6460 350 REM 360 REM ******************************************************* 370 REM 380 REM VALUE OF K DETERMINES THE MODULE FOR CHAIN 390 REM 400 IF K>7 THEN 430 410 ONK GOTO 5860,5940,5960,5980,6000,6020,6040 420 CLOSE 1: CHAIN "CERROR" 430 K=K-7 440 IF K>7 THEN 470 450 ONK GOTO 6060,6080,6100,6120,5880,5900,6240 460 CLOSE 1: CHAIN "CERROR" 470 K=K-7 480 IF K>7 THEN 510 490 ONK GOTO 5920,6140,6160,6180,6200,6220,500 500 CLOSE 1: CHAIN "CERROR" 510 K=K-7 520 IF K>7 THEN 550 530 ONK GOTO 5840,6260,6280,6300,6320,6340,6360 540 CLOSE 1: CHAIN "CERROR" 550 K=K-7 560 ONK GOTO 6380,6390 570 CLOSE 1: CHAIN "CERROR" 580 REM *************************************************** 590 REM 600 REM I8 CONTAINS THE OPTION INDEX FROM CEXPLN 610 REM 620 REM I8=1 LISTING OF COMPONENTS WANTED 630 REM I8=2 LISTING 640 REM I8=3 GO DIRECTLY TO COMPONENT 650 REM 660MAT A3=M 670 I8=J 680MAT A2=M 690A1(0)=0:A1(1)=0:A1(2)=0:A1(3)=0:A1(4)=0:A1(5)=0 700 ONI8 GOTO 910,910,760 710 REM 720 REM ******************************************************** 730 PRINT 740 PRINT "TYPE THE NUMBER OF THE COMPONENT YOU WANT."; 750 INPUT I 760 IF I <> -9999 THEN 1260 770 GOSUB 790 780 GOTO 740 790 PRINT 810A$="THE -9999 RESTART OPTION IS NOT AVAILABLE AT THIS POINT. IF YOU" 811PRINT USING A$ 830A$="WANT A RESTART USE THE PANIC BUTTON OPTION." 831PRINT USING A$ 840 PRINT 850 RETURN 860 GOTO 750 870 REM ********************************************************* 880 REM 890 REM 900 REM 910 PRINT L$ 912 Z9=0 920 PRINT " COMPONENTS OF THE CADA MONITOR" 940 PRINT " COMPONENT 1. BINARY MODELS" 950 PRINT " COMPONENT 2. COMPARISON OF TWO PROPORTIONS" 960 PRINT " COMPONENT 3. UNIVARIATE NORMAL MODELS" 970 PRINT " COMPONENT 4. COMPARISON OF TWO MEANS-NORMAL MODELS" 980 PRINT " COMPONENT 5. COMPARISON OF TWO STANDARD DEVIATIONS" 990 PRINT " COMPONENT 6. MULTI-CATEGORY MODELS" 1000 PRINT "*COMPONENT 7. SIMPLE REGRESSION AND CORRELATION" 1002IF Z9<>0 THEN 1010 1004Z9=1 1006 GOTO 1090 1010 PRINT " COMPONENT 8. UTILITIES AND EXPECTED UTILITIES" 1020 PRINT " COMPONENT 9. SIMULTANEOUS ESTIMATION OF PROPORTIONS" 1030 PRINT "*COMPONENT 10. MULTIPLE REGRESSION AND CORRELATION" 1040 PRINT "*COMPONENT 11. SIMULTANEOUS ESTIMATION OF MEANS" 1050 PRINT "*COMPONENT 12. SIMULTANEOUS ESTIMATION OF REGRESSION" 1060 PRINT "*COMPONENT 13. SIMULTANEOUS ESTIMATION OF MEANS-2 WAY LAYOUT" 1070 PRINT " COMPONENT 14. DESCRIPTIVE AND SUFFICIENT STATISTICS" 1080 PRINT " COMPONENT 15. EVALUATION OF PROBABILITY DISTRIBUTIONS" 1085 Z9=0 1090 PRINT "*COMPONENT NOT YET AVAILABLE" 1110 PRINT "IF YOU WANT AN EXPLANATION OF THE CADA MONITOR TYPE '99'." 1115PRINT"IF YOU WANT A LISTING OF THE OTHER COMPONENTS TYPE '66'." 1120PRINT"TO RUN A COMPONENT TYPE ITS NUMBER. TO EXIT TYPE '0'."; 1140 INPUT I 1150 IF I=0 THEN 6920 1152 IF I<>66 THEN 1160 1154IF Z9=0 THEN 910 1156 PRINT L$ 1158 GOTO 1002 1160 IF I <> 99 THEN 1220 1170 REM 1180 REM 99 TELLS CEXPLN ENTRY VIA CBCADA RATHER THAN START 1190 REM 1200A1(0)=99:A1(1)=0:A1(2)=0:A1(3)=0:A1(4)=0:A1(5)=0 1210 CLOSE 1: CHAIN "CEXPLN" 1220 IF I <> -9999 THEN 1260 1230 PRINT "THE '-9999' RESTART OPTION IS NOT AVAILABLE AT THIS POINT." 1240 PRINT "USE PANIC BUTTON OPTION IF YOU WANT TO RESTART." 1250 GOTO 1140 1260 A1(0)=0:A1(1)=0:A1(2)=I 1270 MAT A2=M 1275 A2(0)=0 1276 A3(0)=0 1280 MAT A3=M 1290 IF I=7 THEN 1350 1300 IF I=10 THEN 1350 1310 IF I=11 THEN 1350 1320 IF I=12 THEN 1350 1330 IF I=13 THEN 1350 1340 GOTO 1490 1350 PRINT 1360 PRINT "THIS COMPONENT IS NOT YET AVAILABLE AS INDICATED BY THE *" 1370 PRINT "PRECEDING ITS NUMBER IN THE LISTING OF COMPONENTS." 1380 PRINT 1390 PRINT "IF YOU WANT A LISTING OF THE COMPONENTS TYPE '77'." 1400PRINT"IF YOU WANT A COMPONENT TYPE ITS NUMBER." 1410PRINT"IF YOU WANT TO EXIT CADA TYPE '0'."; 1420 INPUT I 1430 IF I=0 THEN 6920 1440 IF I=77 THEN 910 1450 GOTO 1160 1460 REM 1470 REM 1480 REM 1490 IF I <> 14 THEN 1840 1500 PRINT L$ 1510 REM ********************************************************** 1520 REM 1530 REM AT THE BEGINNING OF EACH OF THE COMPONENT SEGMENTS 1540 REM THE MODULE (NOT YET KNOWN), THE MODEL (ALSO NOT YET 1550 REM KNOWN EXCEPT IF THERE IS BUT ONE) AND THE COMPONENT 1560 REM (KNOWN) ARE STORED. 1570 REM 1580 REM WHEN THE MODEL IS SELECTED THEN IT IS STORED. 1590 REM THE MODULE NUMBER IS NOT STORED UNTIL AFTER THE CHAIN 1600 REM TO THE MODULE. 1610 REM 1620 REM 1630 I1=A1(0):I2=A1(1):I3=A1(2) 1640 A1(1)=1 1650 PRINT " COMPONENT 14. DESCRIPTIVE AND SUFFICIENT STATISTICS" 1670 GOTO 1710 1680REM 1690A$="---------------------------------------------------------------" 1691PRINT USING A$ 1700 RETURN 1710 PRINT " 1. ENTRY OF UNIVARIATE DATA - STATISTICAL COMPUTATIONS" 1720 PRINT " 2. ENTRY OF BIVARIATE DATA - STATISTICAL COMPUTATIONS" 1730 PRINT " *3. ENTRY OF MULTIVAR. DATA - STATISTICAL COMPUTATIONS" 1740 PRINT " *4. DATA FILE CATALOGUE" 1750 PRINT " *5. DATA DISPLAY - GRAPHICS" 1760 PRINT " *6. DATA REDUCTION - MEANS, VARIANCES, AND COVARIANCES" 1770 PRINT " *7. DATA REDUCTION - STURDY STATISTICS" 1780 GOSUB 1910 1790 IF I=2 THEN 5840 1800 IF I=0 THEN 6410 1810 IF I=1 THEN 5860 1820 GOSUB 2710 1830 GOTO 1790 1840 IF I <> 15 THEN 2250 1850 I1=A1(0):I2=A1(1):I3=A1(2) 1860 PRINT L$ 1870 A1(1)=1 1880 PRINT " COMPONENT 15. EVALUATION OF PROBABILITY DISTRIBUTIONS" 1890 GOSUB 1680 1900 GOTO 1980 1910REM 1920 PRINT " * NOT YET AVAILABLE" 1930REM 1940REM 1950 PRINT "IF YOU WANT AN AVAILABLE MODULE TYPE ITS NUMBER ELSE '0'."; 1960 INPUT I 1970 RETURN 1980 PRINT " 1. NORMAL" 1990 PRINT " 2. STUDENT'S T" 2000 PRINT " 3. INVERSE CHI" 2010 PRINT " 4. INVERSE CHI-SQUARE" 2020 PRINT " 5. CHI-SQUARE" 2030 PRINT " 6. BETA" 2040 PRINT " 7. BEHRENS FISHER" 2050 PRINT " *8. PARETO" 2060 PRINT " *9. F" 2070 PRINT " *10. BINOMIAL" 2100 GOSUB 1910 2110 IF I=0 THEN 6410 2120 IF I=4 THEN 6260 2130 IF I=5 THEN 6280 2140 IF I=9 THEN 2230 2150 IF I=1 THEN 6240 2160 IF I=2 THEN 5880 2170 IF I=3 THEN 5900 2180 IF I=6 THEN 6120 2190 IF I=7 THEN 5920 2200 IF I=10 THEN 2230 2230 GOSUB 2710 2240 GOTO 2110 2250 IF I <> 1 THEN 2760 2260 PRINT L$ 2270 PRINT " COMPONENT 1. BINARY MODELS" 2280 GOSUB 1680 2290 PRINT " 1. BETA BINOMIAL MODEL" 2300 PRINT " *2. MIXED BETA BINOMIAL MODEL" 2310 PRINT " *3. BETA NEGATIVE BINOMIAL MODEL" 2320 PRINT " *4. MIXED BETA NEGATIVE BINOMIAL MODEL" 2330 GOSUB 2350 2340 GOTO 2420 2350 GOSUB 1680 2360 PRINT " * NOT YET AVAILABLE" 2370 GOSUB 1680 2380 PRINT 2390 PRINT "IF YOU WANT AN AVAILABLE MODEL TYPE ITS NUMBER ELSE '0'."; 2400 INPUT I 2410 RETURN 2420 IF I=0 THEN 6410 2430 IF I=1 THEN 2470 2440 PRINT "REENTER. INPUT MUST BE 0 OR NUMBER OF AVAILABLE MODEL." 2450 INPUT I 2460 GOTO 2420 2470 PRINT L$ 2480 A1(1)=1 2500 PRINT " BETA BINOMIAL MODEL" 2510 GOSUB 1680 2520 PRINT " 1. PRIOR DISTRIBUTION ON PROPORTION (PI)" 2530 PRINT " *2. PREPOSTERIOR ANALYSIS" 2540 PRINT " 3. POSTERIOR DISTRIBUTION ON PI" 2550 PRINT " 4. POSTERIOR INTERVALS FOR PI" 2560 GOSUB 1910 2570 IF I=0 THEN 2260 2580 IF I=2 THEN 2620 2590 IF I=1 THEN 2640 2600 IF I=3 THEN 2640 2610 IF I=4 THEN 2640 2620 GOSUB 2710 2630 GOTO 2570 2640 REM 2650 A1(1)=1:A1(0)=I 2660 IF I=1 THEN 5940 2670 IF I=3 THEN 5960 2680 IF I=4 THEN 6120 2690 REM 2700 GOTO 2740 2710 PRINT "REENTER. INPUT MUST BE NUMBER OF AVAILABLE MODULE OR '0'." 2720 INPUT I 2730 RETURN 2740 IF I=0 THEN 2260 2750 GOTO 2660 2760 IF I <> 5 THEN 3020 2770 PRINT L$ 2780 PRINT " COMPONENT 5. COMPARISON OF TWO ST. DEVIATIONS" 2790 GOSUB 1680 2800 PRINT " 1. INDEPENDENT INVERSE CHI DISTRIBUTED ST. DEVIATIONS" 2810 PRINT " *2. NON-INDEPENDENTLY DISTRIBUTED ST. DEVIATIONS" 2820 GOSUB 2350 2830 IF I=0 THEN 6410 2840 IF I=1 THEN 2850 2841PRINT"REENTER MUST BE 0 OR AVAILABLE MODEL." 2842 INPUT I 2845 GOTO 2830 2850 PRINT L$ 2860 A1(1)=1 2870 PRINT #1,1;I1,1,I3 2880 PRINT " INDEPENDENT INVERSE CHI DISTRIBUTED ST. DEVIATIONS" 2890 GOSUB 1680 2900 PRINT " 1. ENTRY OF DISTRIBUTIONS" 2910 PRINT " 2. COMPARISON OF TWO ST. DEVIATIONS" 2920 GOSUB 1680 2930 PRINT 2940 PRINT "IF YOU WANT THIS MODEL TYPE '1' ELSE '0'."; 2950 INPUT I 2960 IF I=0 THEN 2770 2970 IF I=1 THEN 6400 2980 IF I=2 THEN 6400 2990 PRINT "REENTER. INPUT MUST BE 0 OR NUMBER OF AVAILABLE MODEL." 3000 INPUT I 3010 GOTO 2960 3020 IF I <> 2 THEN 3300 3022 PRINT L$ 3030 PRINT " COMPONENT 2. COMPARISON OF TWO PROPORTIONS" 3040 GOSUB 1680 3050 PRINT " 1. INDEPENDENT BETA DISTRIBUTED PROPORTIONS" 3060 PRINT " *2. NON-INDEPENDENTLY DISTRIBUTED PROPORTIONS" 3070 GOSUB 2350 3080 IF I=1 THEN 3130 3090 IF I=0 THEN 6410 3100 PRINT "REENTER. INPUT MUST BE 0 OR NUMBER OF AVAILABLE MODEL." 3110 INPUT I 3120 GOTO 3080 3130 PRINT L$ 3140REM 3150 A1(1)=1 3160 PRINT " INDEPENDENT BETA DISTRIBUTED PROPORTIONS" 3170 GOSUB 1680 3180 PRINT " 1. ENTRY OF DISTRIBUTIONS" 3190 PRINT " 2. COMPARISON OF PROPORTIONS" 3200 GOSUB 1680 3210 PRINT 3220 PRINT "IF YOU WANT THIS MODEL TYPE '1' ELSE '0'."; 3230 INPUT I 3240 IF I=1 THEN 6380 3250 IF I=2 THEN 6380 3260 IF I=0 THEN 3022 3270 PRINT "REENTER. INPUT MUST BE 0 OR NUMBER OF AVAILABLE MODULE." 3280 INPUT I 3290 GOTO 3240 3300 IF I <> 3 THEN 3720 3310 PRINT L$ 3320 PRINT " COMPONENT 3. UNIVARIATE NORMAL MODELS" 3330 GOSUB 1680 3340 PRINT " 1. TWO PARAMETER NORMAL(NATURAL CONJUGATE PRIORS)" 3350 PRINT " *2. TWO PARAMETER NORMAL(MIXED NATURAL CONJUGATE PRIORS)" 3360 GOSUB 2350 3370 IF I=0 THEN 6410 3380 IF I=1 THEN 3420 3390 PRINT "REENTER. INPUT MUST BE 0 OR NUMBER OF AVAILABLE MODEL." 3400 INPUT I 3410 GOTO 3370 3420 PRINT L$ 3430 A1(1)=1 3450 PRINT " TWO PARAMETER NORMAL (NATURAL CONJUGATE PRIORS)" 3460 GOSUB 1680 3470 PRINT " 1. PRIOR DISTRIBUTION ON STANDARD DEVIATION (SIGMA)" 3480 PRINT " 2. PRIOR DISTRIBUTION ON MEAN (MU)" 3490 PRINT " *3. PREPOSTERIOR ANALYSIS" 3500 PRINT " 4. POSTERIOR DISTRIBUTIONS ON MU AND SIGMA" 3510 PRINT " 5. POSTERIOR INTERVALS FOR MU" 3520 PRINT " 6. POSTERIOR INTERVALS FOR SIGMA" 3530 GOSUB 1910 3540 IF I=0 THEN 3310 3550 IF I=3 THEN 3680 3560 IF I=1 THEN 3620 3570 IF I=2 THEN 3620 3580 IF I=5 THEN 3620 3590 IF I=4 THEN 3620 3600 IF I=6 THEN 3620 3610 GOTO 3680 3620 REM 3630 IF I=1 THEN 5980 3640 IF I=2 THEN 6000 3650 IF I=4 THEN 6020 3660 IF I=5 THEN 5880 3670 IF I=6 THEN 5900 3680 PRINT "REENTER. INPUT MUST BE 0 OR NUMBER OF AVAILABLE MODULE." 3690 INPUT I 3700 IF I=0 THEN 3310 3710 GOTO 3630 3720 IF I <> 4 THEN 4020 3730 PRINT L$ 3740 A1(1)=1 3760 PRINT " COMPONENT 4. COMPARISON OF TWO NORMAL MEANS" 3770 GOSUB 1680 3780 PRINT " 1. INDEPENDENT 'T' POSTERIOR DISTRIBUTIONS" 3790 PRINT " *2. DEPENDENT 'T' POSTERIOR DISTRIBUTIONS" 3800 GOSUB 2350 3810 IF I=0 THEN 6410 3820 IF I=1 THEN 3870 3830 PRINT 3840 PRINT "REENTER. INPUT MUST BE NUMBER OF AVAIABLE MODEL OR '0'." 3850 INPUT I 3860 GOTO 3810 3870 PRINT L$ 3880 PRINT " INDEPENDENT 'T' POSTERIOR DISTRIBUTIONS" 3890 GOSUB 1680 3900 PRINT " 1. ENTRY OF 'T' DISTRIBUTIONS" 3910 PRINT " 2. EVALUATION OF POSTERIOR" 3920 GOSUB 1930 3930 IF I=0 THEN 3730 3940 IF I=1 THEN 3970 3950 IF I=2 THEN 3970 3960 GOTO 4000 3970 REM 3980 IF I=1 THEN 6040 3990 IF I=2 THEN 5920 4000 GOSUB 2710 4010 GOTO 3930 4020 IF I <> 6 THEN 4320 4030 PRINT L$ 4040 PRINT " COMPONENT 6. MULTI-CATEGORY MODELS" 4050 GOSUB 1680 4060 PRINT " 1. MULTINOMIAL MODEL (DIRICHLET PRIOR)" 4070 PRINT " *2. MULTINOMIAL MODEL (MIXED DIRICHLET PRIOR)" 4080 PRINT " *3. MULTINOMIAL MODEL (VARIABLE WEIGHTED PRIOR)" 4090 GOSUB 2350 4100 IF I=0 THEN 6410 4110 IF I=1 THEN 4150 4120 PRINT "REENTER. INPUT MUST BE 0 OR NUMBER OF AVAILABLE MODEL." 4130 INPUT I 4140 GOTO 4100 4150 PRINT L$ 4160A1(1)=1 4180 PRINT " MULTINOMIAL MODEL (DIRICHLET PRIOR)" 4190 GOSUB 1680 4200 PRINT " 1. PRIOR DISTRIBUTION" 4210 PRINT " 2. POSTERIOR DISTRIBUTION" 4220 GOSUB 1930 4230 IF I=0 THEN 4030 4240 IF I=1 THEN 4270 4250 IF I=2 THEN 4270 4260 GOTO 4300 4270 REM 4280 IF I=1 THEN 6140 4290 IF I=2 THEN 6160 4300 GOSUB 2710 4310 GOTO 4230 4320 IF I <> 7 THEN 4600 4330 GOTO 4600 4340 PRINT L$ 4350 A1(1)=1 4370 PRINT " SIMPLE REGRESSION AND CORRELATION" 4380 GOSUB 1680 4390 PRINT " 1. LINEAR REGRESSION" 4400 PRINT "*2. CORRELATION" 4410 GOSUB 2350 4420 IF I=0 THEN 6410 4430 IF I=1 THEN 4460 4440 PRINT "REENTER. INPUT MUST BE 0 OR NUMBER OF AVAILABLE MODEL" 4450 GOTO 4410 4460 PRINT L$ 4470 PRINT " LINEAR REGRESSION" 4480 GOSUB 1680 4490 PRINT " 1. PRIOR DISTRIBUTION" 4500 PRINT " 2. POSTERIOR DISTRIBUTION" 4510 GOSUB 1910 4520 IF I=0 THEN 6410 4530 IF I<1 THEN 4580 4540 IF I>2 THEN 4580 4550 REM 4560 IF I=1 THEN 6180 4570 IF I=2 THEN 6200 4580 GOSUB 2720 4590 GOTO 4520 4600 IF I <> 8 THEN 5320 4610 PRINT L$ 4620 A1(1)=1 4640 PRINT " COMPONENT 8. UTILITIES AND EXPECTED UTILITIES" 4650 GOSUB 1680 4660 PRINT " 1. NINE-POINT UNIVARIATE UTILITY" 4670 PRINT " *2. VARIABLE N-POINT UNIVARIATE UTILITY" 4680 PRINT " *3. BIVARIATE UTILITY" 4690 PRINT " 4. NORMAL OGIVE UTILITY" 4700 PRINT " *5. EXPONENTIAL UTILITIES" 4710 PRINT " *6. STUDENT'S T UTILITIES" 4720 PRINT " *7. NINE-POINT EXPECTED UTILITY" 4730 PRINT " 8. PIECEWISE EXPECTED UTILITY" 4740 PRINT " *9. EXPECTED UTILITY-NORMAL APPROXIMATION" 4750 PRINT " *10. EXPECTED UTILITY-EXPONENTIAL DISTRIBUTIONS" 4760 PRINT " *11. EXPECTED UTILITY-STUDENT'S T DISTRIBUTION" 4770 GOSUB 2350 4780 IF I=0 THEN 6410 4790 IF I=8 THEN 4990 4800 IF I=1 THEN 5160 4810 IF I=4 THEN 4840 4820 GOSUB 2710 4830 GOTO 4780 4840 PRINT L$ 4850 A1(1)=4 4870 PRINT " NORMAL OGIVE UTILITY" 4880 GOSUB 1680 4890 PRINT " 1. FITTING NORMAL OGIVE FUNCTION" 4900 PRINT " 2. EXPECTED UTILITY" 4910 GOSUB 1680 4920 GOSUB 1940 4930 IF I=0 THEN 4610 4940 IF I=1 THEN 6340 4950 IF I=2 THEN 6360 4960 PRINT "REENTER. INPUT MUST BE 0 OR NUMBER OF AVAILABLE MODULE." 4970 INPUT I 4980 GOTO 4930 4990 PRINT L$ 5000 A1(1)=8 5020 PRINT " PIECEWISE EXPECTED UTILITY" 5030 GOSUB 1680 5040 PRINT " 1. ENTRY OF THE POINT UTILITIES" 5050 PRINT " 2. EXPECTED UTILITY" 5060 GOSUB 1680 5070 PRINT 5080 PRINT "IF YOU WANT THIS MODEL TYPE '1' ELSE '0'."; 5090 INPUT I 5100 IF I=1 THEN 6300 5110 IF I=2 THEN 6300 5120 IF I=0 THEN 4610 5130 PRINT 5140 PRINT "REENTER. INPUT MUST BE 0 OR 1." 5145 INPUT I 5150 GOTO 5100 5160 PRINT L$ 5170 A1(1)=1 5190 PRINT " NINE-POINT UNIVARIATE UTILITY" 5200 GOSUB 1680 5210 PRINT " 1. UTILITY ASSESSMENT-LEAST SQUARES FIT" 5220 PRINT " 2. EXPECTED UTILITY" 5230 GOSUB 1680 5240 GOSUB 1940 5250 IF I=0 THEN 4610 5260 IF I=1 THEN 6220 5270 IF I=2 THEN 6300 5280 PRINT 5290 PRINT"REENTER INPUT MUST BE 0 OR NUMBER OF AVAILABLE MODULE." 5300 INPUT I 5305 GOTO 5250 5310 PRINT L$ 5320 IF I <> 9 THEN 5750 5330 PRINT L$ 5340 A1(1)=1 5360 PRINT " COMPONENT 9. SIMULTANEOUS ESTIMATION OF PROPORTIONS" 5370 GOSUB 1680 5380 PRINT " 1. ARC-SINE TRANSFORMATION (EQUAL GROUP SIZES)" 5390 PRINT " 2. ARC-SINE TRANSFORMATION (UNEQUAL GROUPS SIZES)" 5400 PRINT " *3. LOGISTIC TRANSFORMATION" 5410 PRINT " *4. STANDARDIZING TRANSFORMATION" 5420 GOSUB 2350 5430 IF I=1 THEN 5490 5440 IF I=0 THEN 6410 5450 IF I=2 THEN 5620 5460 PRINT "REENTER. INPUT MUST BE 0 OR NUMBER OF AVAILABLE MODEL." 5470 INPUT I 5480 GOTO 5430 5490 PRINT L$ 5500 A1(1)=1 5510 PRINT " ARC-SINE TRANSFORMATION (EQUAL GROUP SIZES)" 5520 GOSUB 1680 5530 PRINT " 1. PRIOR DISTRIBUTION" 5540 PRINT " 2. POSTERIOR DISTRIBUTIONS" 5550 GOSUB 1930 5560 IF I=1 THEN 6060 5570 IF I=0 THEN 5330 5580 IF I=2 THEN 6100 5590 PRINT "REENTER. INPUT MUST BE 0 OR NUMBER OF AVAILABLE MODULE." 5600 INPUT I 5610 GOTO 5560 5620 PRINT L$ 5630 A1(1)=2 5640 PRINT " ARC-SINE TRANSFORMATION (UNEQUAL GROUP SIZES)" 5650 GOSUB 1680 5660 PRINT " 1. PRIOR DISTRIBUTION" 5670 PRINT " 2. POSTERIOR POINT ESTIMATES" 5680 GOSUB 1930 5690 IF I=0 THEN 5330 5700 IF I=1 THEN 6060 5710 IF I=2 THEN 6080 5720 PRINT "REENTER. INPUT MUST BE 0 OR NUMBER OF AVAILABLE MODULE." 5730 INPUT I 5740 GOTO 5690 5750 PRINT 5760 IF K=9999 THEN 5810 5770 PRINT "REENTER. INPUT MUST BE 0 99 OR NUMBER OF AVAILABLE" 5780 PRINT "COMPONENT." 5790 PRINT 5800 GOTO 1380 5810 PRINT "REENTER. COMPONENT IS NOT AVAILABLE." 5820 A1(0)=66:A1(1)=0:A1(2)=0 5830 CLOSE 1: CHAIN "CEXPLN" 5840 CLOSE 1: CHAIN "CMODM" 5850 REM SUFFICIENT STAT FOR LINEAR REGRESSION" 5860 CLOSE 1: CHAIN "CMOD1" 5870 REM--SUFF. STAT. 5880 CLOSE 1: CHAIN "CMODC" 5890 REM--STUDENT'S T DISTRIBUTION 5900 CLOSE 1: CHAIN "CMODD" 5910 REM--INVERSE CHI DISTRIBUTION 5920 CLOSE 1: CHAIN "CMODF" 5930 REM--BEHRENS FISHER DISTRIBUTION" 5940 CLOSE 1: CHAIN "CMOD2" 5950 REM--FASP FOR BETA BINOMIAL ANALYSIS 5960 CLOSE 1: CHAIN "CMOD3" 5970 REM--POSTERIOR FOR BETA BINOMIAL ANALYSIS 5980 CLOSE 1: CHAIN "CMOD4" 5990 REM--PRIOR ON SIGMA 6000 CLOSE 1: CHAIN "CMOD5" 6010 REM--PRIOR ON MU 6020 CLOSE 1: CHAIN "CMOD6" 6030 REM--POSTERIOR TWO PARAMETER NORMAL 6040 CLOSE 1: CHAIN "CMOD7" 6050 REM--COMPAIRISON OF TWO NORMAL MEANS 6060 CLOSE 1: CHAIN "CMOD8" 6070 REM--PRIOR PROPORTIONS 6080 CLOSE 1: CHAIN "CMOD9" 6090 REM--PROPOR 6100 CLOSE 1: CHAIN "CMODA" 6110 REM--MARGINAL PROPORTIONS 6120 CLOSE 1: CHAIN "CMODB" 6130 REM--BETA DISTRIBUTION 6140 CLOSE 1: CHAIN "CMODG" 6150 REM--PRIOR FOR MULTINOMIAL 6160 CLOSE 1: CHAIN "CMODH" 6170 REM--POSTERIOR MULTINOMIAL 6180 CLOSE 1: CHAIN "CMODI" 6190 REM--PRIOR REGRESSION 6200 CLOSE 1: CHAIN "CMODJ" 6210 REM--POSTERIOR FOR REGRESSION 6220 CLOSE 1: CHAIN "CMODK" 6230 REM--UTILITY 6240 CLOSE 1: CHAIN "CMODE" 6250 REM--NORMAL DISTRIBUTION 6260 CLOSE 1: CHAIN "CMODN" 6270 REM--INVERSE CHI SQUARE DISTRIBUTION 6280 CLOSE 1: CHAIN "CMODO" 6290 REM--CHI SQUARE DISTRIBUTION 6300 CLOSE 1: CHAIN "CMODP" 6310 REM--PIECEWISE EXPECTED UTILITY 6320 REM CMODL CAN ONLY BE REACHED FROM CMODK 6330 REM--NORMAL OGIVE EXPECTED UTILITY 6340 CLOSE 1: CHAIN "CMODR" 6350 REM -- EXPECTED UTILITY NORMAL OGIVE FIT 6360 CLOSE 1: CHAIN "CMODS" 6370 REM -- COMPARISON OF INDEPENDENT PROPORTIONS 6380 CLOSE 1: CHAIN "CMODT" 6390 REM -- COMPARISON OF STANDARD DEVIATION 6400 CLOSE 1: CHAIN "CMODU" 6410 PRINT L$ 6420 MAT A2=M 6430 MAT A3=M 6440 PRINT L$ 6450 GOTO 1390 6460 IF I=14 THEN 1500 6470 REM--MODULES FOR COMP14 6480 IF I=15 THEN 1850 6490 REM--MODULES FOR COMP15 6500 IF I>6 THEN 6520 6510 ONI GOTO 6550,6580,6610,6640,6670,6700 6520 I=I-6 6530 ONI GOTO 6730,6760,6810,6840,6860,6880,6900 6540 CLOSE 1: CHAIN "CERROR" 6550 REM--MODELS FOR COMP1 6560 ONJ GOTO 2470 6570 CLOSE 1: CHAIN "CERROR" 6580 REM--MODELS FOR COMP2 6590 ONJ GOTO 3130 6600 CLOSE 1: CHAIN "CERROR" 6610 REM--MODELS FOR COMP3 6620 ONJ GOTO 3420 6630 CLOSE 1: CHAIN "CERROR" 6640 REM--MODELS FOR COMP4 6650 ONJ GOTO 3870 6660 CLOSE 1: CHAIN "CERROR" 6670 REM--MODELS FOR COMP5 6680 ONJ GOTO 2850 6690 CLOSE 1: CHAIN "CERROR" 6700 REM--MODELS FOR COMP6 6710 ONJ GOTO 4150 6720 CLOSE 1: CHAIN "CERROR" 6730 REM--MODELS FOR COMP7 6740 ONJ GOTO 4340 6750 CLOSE 1: CHAIN "CERROR" 6760 REM--MODELS FOR COMP8 6770 IF J=1 THEN 5160 6780 IF J=8 THEN 4990 6790 IF J=4 THEN 4840 6800 CLOSE 1: CHAIN "CERROR" 6810 REM--MODELS FOR COMP9 6820 ONJ GOTO 5310 6830 CLOSE 1: CHAIN "CERROR" 6840 REM--MODELS FOR COMP10 6850 CLOSE 1: CHAIN "CERROR" 6860 REM--MODELS FOR COMP11 6870 CLOSE 1: CHAIN "CERROR" 6880 REM--MODELS FOR COMP12 6890 CLOSE 1: CHAIN "CERROR" 6900 REM--MODELS FOR COMP13 6910 CLOSE 1: CHAIN "CERROR" 6920 KILL R$ 6930 END