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