1  REM  ****  HP BASIC PROGRAM LIBRARY  *******************************
2  REM
3  REM        STAT06:   CALCULATES THE SIGN TEST CONFIDENCE INTERVAL
4  REM                  USING FRACTIONAL COUNTS
5  REM        36724 REV  A   10/73
6  REM
7  REM  ****  CONTRIBUTED PROGRAM  ************************************
9000  REM  STAT06--SIGN TEST AND CONFIDENCE INTERVAL
9002  DIM D[1000]
9004  PRINT "CONFIDENCE INTERVAL BY SIGN TEST, FRACTIONAL COUNT."
9006  READ N,C
9008  FOR I=1 TO N
9010  READ D[I]
9012  NEXT I
9014  LET I=1
9016  IF D[I] <= D[I+1] THEN 9030
9018  LET T=D[I]
9020  LET D[I]=D[I+1]
9022  LET D[I+1]=T
9024  IF I=1 THEN 9030
9026  LET I=I-1
9028  GOTO 9016
9030  LET I=I+1
9032  IF I<N THEN 9016
9034  LET X=INT(C)+1
9036  LET R=C+1-X
9038  LET L=D[X]*(1-R)+D[X+1]*R
9040  LET X=N-X
9042  LET U=D[X+1]*(1-R)+D[X]*R
9044  PRINT 
9046  PRINT "LOWER LIMIT IS "L,"UPPER LIMIT IS "U
9900  DATA 12,2.2,20.1,21,20.4,18.1,19,17.8
9901  DATA 20.3,19.2,21.5,19.7,20,18.2
9999  END 
