Google
 

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