Lines Matching refs:pi
90 (arg($z) - pi / 4 ) < $eps and
100 $z->arg(-3 / 4 * pi);
102 print 'not ' unless (arg($z) + 3 / 4 * pi) < $eps and
114 my $pi = cplx(pi, 0);
115 my $pii = cplx(0, pi);
116 my $pip2 = cplx(pi/2, 0);
222 print "not " unless "\$j" eq "[1,2pi/3]";
479 [2,0]:[2,pi]:(0,0)
486 [2,pi/2]:[2,-(pi)/2]
495 [2,pi]:[3,pi]
500 [2,2*pi/3]:(1,0):[2,2*pi/3]
512 [4,pi]:[2,pi/2]:[2,pi/2]
513 [2,pi/2]:[4,pi]:[0.5,-(pi)/2]
531 [1,pi/2]:0
536 [1,pi/2]:1
544 [-2,0]:pi
549 [2,pi/2]:[2,-(pi)/2]
578 [-1, 0]:"[1,pi]"
579 [1, pi/3]:"[1,pi/3]"
580 [6, -2*pi/3]:"[6,-2pi/3]"
581 [0.5, -9*pi/11]:"[0.5,-9pi/11]"