My Diaries

A Lurid Tale of Obsession, Depravity, Wits and Attempted Wit

Mon Mar 29, 1999

Ordering of Brake Controller Ratios, assuming they are ratios

Yikes, I did not expect there to be that many unique settings for brake balance. Even removing ridiculous settings and duplicates leaves a fairly large list; I am open to suggestions for better way to present it.

143 unique ratios

Here's the program...

#!/xhbin/perl5 -w

#
# special cmp routine for sort...
#  $a and $b are magic for perl sort "routines"
#
sub
ratcmp {
	local($r1) = $rats[$a];
	local($r2) = $rats[$b];
	local($cc);

	#
	# basically, compare ratios, but prefer larger front, then larger rear
	#
	$cc = ($r1 <=> $r2);
	if ($cc == 0) {
		$cc = $flist[$a] <=> $flist[$b];
		if ($cc == 0) {
			$cc = $rlist[$a] <=> $rlist[$b];
		}
	}
	return $cc;
}

$flist = ();
$rlist = ();
$rats = ();
$p = ();
$i = 0;
for ( $f = 1; $f <= 15; ++$f) {
	for ($r = 1; $r <= 15; ++$r) {
		$p[$i] = $i;
		$flist[$i] = $f;
		$rlist[$i] = $r;
		$rats[$i] = $f / ($f + $r);
		++$i;
	}
}
$nrats = $i;

#for ($i = 0; $i < $nrats; ++$i) {
#	printf("%2d%3d%3d%5.1f\n", $i, $flist[$i], $rlist[$i], $rats[$i] * 100);
#}
@sp = sort ratcmp @p;
$prev = 0;
printf("%4s%4s%4s%8s\n", "","F","R","Balance");
for ($i = 0; $i < $nrats; ++$i) {
	$pi = $sp[$i];
	printf("%4d%4d%4d%6.1f%%F\n", $i+1, $flist[$pi], $rlist[$pi], $rats[$pi] * 100);
	if ($rats[$pi] != $prev) {
		$prev = $rats[$pi];
		++$total;
	}
}

printf("\n%d unique ratios\n",$total);