Lines Matching refs:cplx
76 my $z = cplx( 1, 1);
87 my $z = cplx( 1, 1);
100 my $z = cplx( 1, 1);
314 \$z = cplx('2+3i');
323 print "not " unless \$z == cplx(0,3);
339 print "not " unless \$z == cplx(2,3);
368 my \$z0 = cplx();
431 print (abs(atan2(0, cplx(0, 1))) < $eps ? "ok $test\n" : "not ok $test\n");
435 print (abs(atan2(cplx(0, 1), 0) - \$pip2) < $eps ? "ok $test\n" : "not ok $test\n");
439 print (abs(atan2(cplx(0, 1), cplx(0, 1)) - \$pip4) < $eps ? "ok $test\n" : "not ok $test\n");
443 …print (abs(atan2(cplx(0, 1), cplx(1, 1)) - cplx(0.553574358897045, 0.402359478108525)) < $eps ? "o…
500 my \$za = cplx(ref \$z0 ? \@{\$z0->cartesian} : (\$z0, 0));
504 my \$zb = cplx(\$z1r, \$z1i);