Lines Matching refs:AMB
31 my ($A,$B,$As,$Bs,$ADB,$AMB,$la,$lb);
61 ($ADB,$AMB) = $A->copy()->bdiv($B);
62 # print "# ($A / $B, $A % $B ) = $ADB $AMB\n";
65 "# tried $ADB * $B + $two*$AMB - $AMB\n"
66 unless ok ($ADB*$B+$two*$AMB-$AMB,$As);
71 ($ADB,$AMB) = $B->copy()->bdiv($A);
72 #print "check: $ADB $AMB";
74 "# tried $ADB * $A + $two*$AMB - $AMB\n"
75 unless ok ($ADB*$A+$two*$AMB-$AMB,$Bs);
76 # print " +$two * $AMB = ",$ADB * $A + $two * $AMB,"\n";
77 # print " -$AMB = ",$ADB * $A + $two * $AMB - $AMB,"\n";