C-FOCAL,1969

01.90 C     FOCAL ROUTINE TO FIND "H", THE MEASURE OF NOISE

02.10 S H=0;S CS=0
02.20 A !!!"TOTAL SUM FREQ=",SF;T !!"RET. TO 3.1 AFTER C/C",!!
02.30 C SF=TOTAL SUM FREQ;H= AVER # BIN QUES.; AF=SCORE FREQ.
02.40 A !"F= ",AF
02.50 S CS=CS+AF;S PR=AF/SF;I (PR)4.1,2.52,2.51
02.51 S LP=FLOG(PR)/FLOG(2);G 2.6
02.52 S LP=0
02.60 S PL=(-PR)*(LP);S H=H+PL;G 2.4

03.10 I (CS-SF)4.1,3.2,4.1
03.20 T !!"AVER. # BIN. QUES. (H)",H," BITS",!!

04.10 T !!!!"FREQ. INPUT ERR";Q
*8|~?