Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-04 - decus/20-0113/comp7.bas
There are 2 other files named comp7.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$
00160PRINT "     COMPONENT 7. SIMPLE LINEAR REGRESSION AND CORRELATION"
00170PRINT
00180PRINT "     1. LINEAR REGRESSION"
00190PRINT "    *2. CORRELATION"
00200GOSUB 580
00210IF I=C0 THEN 420
00220IF I=C1 THEN 250
00230GOSUB 440
00240GOTO 210
00250PRINT L$
00260SCRATCH#1
00261  PRINT #  1,0,1,7
00270PRINT "          LINEAR REGRESSION"
00280PRINT
00290PRINT "     1. PRIOR DISTRIBUTION"
00300PRINT "     2. POSTERIOR DISTRIBUTIONS ON RESIDUAL STD. DEV. AND SLOPE"
00310PRINT "     3. POSTERIOR PREDICTIVE DISTRIBUTIONS"
00320GOSUB 520
00330IF I=C0 THEN 420
00340IF I=C1 THEN 390
00350IF I=C2 THEN 400
00360IF I=3 THEN 410
00370GOSUB 480
00380GOTO 330
00390CHAIN "CMOD65"
00400CHAIN "CMOD66"
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
09999 END