Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-06 - 43,50422/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