Trailing-Edge
-
PDP-10 Archives
-
decuslib20-04
-
decus/20-0113/comp9.bas
There are 2 other files named comp9.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 250
00150PRINT L$
00160RESTORE#1
00161 INPUT# 1,I1,I2,I3
00170SCRATCH#1
00171 PRINT # 1,I1,C1,I3
00180PRINT " COMPONENT 9. SIMULTANEOUS ETIMATION OF PROPORTIONS"
00190PRINT
00200PRINT " 1. ARC-SINE TRANSFORMATION"
00210PRINT " *2. LOGISTIC TRANSFORMATION"
00220PRINT " *3. STANDARDIZING TRANSFORMATION"
00230PRINT
00240GOSUB 630
00250IF I=C1 THEN 290
00260IF I=C0 THEN 470
00270GOSUB 490
00280GOTO 250
00290PRINT L$
00300RESTORE#1
00301 INPUT# 1,I1,I2,I3
00310SCRATCH#1
00311 PRINT # 1,I1,C1,I3
00320PRINT " ARC-SINE TRANSFORMATION"
00330PRINT
00340PRINT " 1. PRIOR DISTRIBUTION"
00350PRINT " 2. POSTERIOR DISTRHBUTIONS (EQUAL GROUP SI^@S)"
00360PRINT " 3. POSTERIOR DISTRHBUIONS (UNEQUAL!GJUP SIZES)"
00370COSUB 570
00380IF I-C1 THEN 440
00390IF I-C0 THEN 150
00400IF I-C2 THEN 460
00410IF A-3 THEN 450
00420COSUB 530
00430COTO 380
00440CHAIN "CMOD8"
00450CHAIN "CMOD9"
00460CHAIN "CMODA"
00470SCRATCH#1
00471 PRINT # 1,-99,0,0
00480CHAIN "CMONTR"
00490PRINT "REENTER. INPUT MST B NUMBAR O AVAILABLE MODEL OR '0'.";
00500INPUT I
00510I=INT(I)
00520RETURN
00530PRINT "REENTER. INPUT MUST BE NUMBER OF AVAILABLE MODULE OR '0'.";
00540INPUT I
00550I=INT(I)
00560RETURN
00570PRINT
00580PRINT " * NOT YET AVAILABLE"
00590PRINT
00600PRINT "IF YOU WANT AN AVAILABLE MODULE TYPE ITS NUMBER, ELSE '0'.";
00610INPUT I
00620RETURN
00630PRINT
00640PRINT " * NOT YET AVAILABLE"
00650PRINT
00660PRINT "IF YOU WANT AN AVAILABLE MODEL TYPE ITS NUMBER ELSE '0'.";
00670INPUT I
00680RETURN
09999 END