Trailing-Edge
-
PDP-10 Archives
-
decuslib20-04
-
decus/20-0113/comp8.bas
There are 2 other files named comp8.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 150
00130I=J
00140GOTO 220
00150PRINT L$
00160 PRINT " COMPONENT 8. UTILITIES AND EXPECTED UTILITIES"
00170PRINT
00180 PRINT " 1. NINE-POINT UNIVARIATE UTILITY"
00182 PRINT " *2. VARIABLE N-POINT UNIVARIATE UTILITY"
00184 PRINT " *3. BIVARIATE UTILITY"
00186 PRINT " 4. NORMAL OGIVE UTILITY"
00188 PRINT " *5. EXPONENTIAL UTILITY"
00190 PRINT " *6. STUDENT'S T UTILITIES"
00192 PRINT " *7. NINE-POINT EXPECTED UTILITY"
00194 PRINT " 8. PIECEWISE EXPECTED UTILITY"
00196 PRINT " *9. EXPECTED UTILITY-NORMAL APPROXIMATION"
00198 PRINT " *10. EXPECTED UTILITY-EXPONENTIAL DISTRIBUTIONS"
00199 PRINT " *11. EXPECTED UTILITY-STUDENT'S T DISTRIBUTION"
00200 GOSUB 580
00210IF I=C0 THEN 420
00220IF I=C1 THEN 250
00222 IF I=4 THEN 800
00224 IF I=8 THEN 700
00230GOSUB 440
00240GOTO 210
00250PRINT L$
00260SCRATCH#1
00261 PRINT #1,0,1,8
00270 PRINT " NINE-POINT UNIVARIATE UTILITY"
00280PRINT
00290 PRINT " 1. UTILITY ASSESSMENT-LEAST SQUARES FIT"
00300 PRINT " 2.EXPECTED UTILITY"
00320GOSUB 520
00330 IF I=0 THEN 250
00340 IF I=1 THEN 390
00350IF I=C2 THEN 400
00370GOSUB 480
00380GOTO 330
00390 CHAIN"CMODK"
00400 CHAIN "CMODP"
00410CHAIN "CMOD67"
00420SCRATCH#1
00421 PRINT # 1,-99,0,0
00430CHAIN "cmontr"
00440PRINT "REENTER. INPUT MUST BE NUMBER OF AVAILABLE MODEL OR '0'.";
00450INPUT I
00460I=INT(I)
00470RETURN
00480PRINT "REENTER. INPUT MUST BE NUMBER OF AVAILABLE MODULE OR '0'.";
00490INPUT I
00500I=INT(I)
00510RETURN
00520PRINT
00530PRINT " * NOT YET AVAILABLE"
00540PRINT
00550PRINT "IF YOU WANT AN AVAILABLE MODULE TYPE ITS NUMBER, ELSE '0'.";
00560INPUT I
00570RETURN
00580PRINT
00590PRINT " * NOT YET AVAILABLE"
00600PRINT
00610PRINT "IF YOU WANT AN AVAILABLE MODEL TYPE ITS NUMBER ELSE '0'.";
00620INPUT I
00630RETURN
00700 PRINT L$
00710 SCRATCH #1
00715 PRINT #1,0,8,8
00720 PRINT " PIECEWISE EXPECTED UTILITY"
00730PRINT
00740 PRINT " 1. ENTRY OF POINT UTILITIES"
00750 PRINT " 2. EXPECTED UTILITY"
00760 GOSUB 520
00765 IF I=0 THEN 250
00770 IF I=1 THEN 400
00780 IF I=2 THEN 400
00790 GOSUB 480
00800 PRINT L$
00805 SCRATCH#1
00810 PRINT#1,0,4,8
00820 PRINT " NORMAL OGIVE UTILITY"
00830 PRINT
00840 PRINT " 1. FITTING NORMAL OGIVE FUNCTION"
00850PRINT " 2. EXPECTED UTILITY"
00860 GOSUB 520
00870 IF I=0 THEN 150
00880 IF I=1 THEN 900
00890 IF I=2 THEN 910
00892 GOSUB 480
00894 GOTO 870
00900 CHAIN "CMODR"
00910 CHAIN "CMODS"
09999 END