Lines Matching refs:bits
34 sub bits ($) {
35 # Takes a small integer and returns the number of one-bits in it.
37 my $bits = sprintf "%o", $_[0];
38 while (length $bits) {
39 $total += (0,1,1,2,1,2,2,3)[chop $bits]; # Oct to bits
48 my($dev, $bits); # Number of one bits
65 $bits += bits($n * 256); # Don't be greedy; 8 is enough
177 # Calculating absoulute standard deviation for number of bits set
178 # (eight bits per rep)
179 $dev = abs ($bits - $reps * 4) / sqrt($reps * 2);