Lines Matching refs:z
75 my $z = cplx( 1, 1);
76 $z->Re(2);
77 $z->Im(3);
78 print "# $test Re(z) = ",$z->Re(), " Im(z) = ", $z->Im(), " z = $z\n";
79 print 'not ' unless Re($z) == 2 and Im($z) == 3;
86 my $z = cplx( 1, 1);
87 $z->abs(3 * sqrt(2));
88 print "# $test Re(z) = ",$z->Re(), " Im(z) = ", $z->Im(), " z = $z\n";
89 print 'not ' unless (abs($z) - 3 * sqrt(2)) < $eps and
90 (arg($z) - pi / 4 ) < $eps and
91 (Re($z) - 3 ) < $eps and
92 (Im($z) - 3 ) < $eps;
99 my $z = cplx( 1, 1);
100 $z->arg(-3 / 4 * pi);
101 print "# $test Re(z) = ",$z->Re(), " Im(z) = ", $z->Im(), " z = $z\n";
102 print 'not ' unless (arg($z) + 3 / 4 * pi) < $eps and
103 (abs($z) - sqrt(2) ) < $eps and
104 (Re($z) + 1 ) < $eps and
105 (Im($z) + 1 ) < $eps;
310 my \$z = cplx('2+3i');
311 print "not " unless \$z == Math::Complex->make(2,3);
318 my \$z = Math::Complex->make('3i');
319 print "not " unless \$z == cplx(0,3);
326 my \$z = cplxe('[2,3]');
327 print "not " unless \$z == Math::Complex->emake(2,3);
334 my \$z = Math::Complex->emake('[2]');
335 print "not " unless \$z == cplxe(2);
353 my ($op, $z, @args) = @_;
362 if (defined $z) {
392 check($test, '\$z0 $op= \$z1', \$za, \$z$#args, $args);
445 my ($test, $try, $got, $expected, @z) = @_;
458 my $args = (@z == 1) ? "z = $z[0]" : "z0 = $z[0], z1 = $z[1]";