Lines Matching refs:n

173 	my ($b,$n,$d) = @_;
175 	$n = bint($n);
178 	return scalar (($n << $b)+$d-bint(1))/$d;
183 	my($b,$n,$d) = @_;
185 	$n = bint($n);
188 	$d = $d/bgcd($n, $d);
193 	my($b,$n,$d) = @_;
197 	$n = bint($n);
201 		$m = fmul($s,$n,$d);
228 	my($n, $d) = @_;
229 	my $g = bgcd($n, $d);
230 	return ($n/$g, $d/$g);
358 			my $n = shift(@values);
360 			print "\t\t", perlvals($n,$d), ",\n";