Lines Matching refs:and
32 $eps = 1e-10; # results in Cray UNICOS, and occasionally also
79 print 'not ' unless Re($z) == 2 and Im($z) == 3;
89 print 'not ' unless (abs($z) - 3 * sqrt(2)) < $eps and
90 (arg($z) - pi / 4 ) < $eps and
91 (Re($z) - 3 ) < $eps and
102 print 'not ' unless (arg($z) + 3 / 4 * pi) < $eps and
103 (abs($z) - sqrt(2) ) < $eps and
104 (Re($z) + 1 ) < $eps and
378 if (@args > 2 and $baop) { # binary assignment ops
396 push @script, qq(print "not " unless (\$zbr == \$z1r and \$zbi == \$z1i););