Lines Matching refs:sgn
4931 # 5. (k is odd) Set j := (k-1)/2, sgn := (-1)**j. #
4932 # Return sgn*cos(r) where cos(r) is approximated by an #
4937 # 6. (k is even) Set j := k/2, sgn := (-1)**j. Return sgn*sin(r) #
6515 # 4. (|X| = 1) sgn := sign(X), return asin(X) := sgn * Pi/2. Exit.#
7701 # y = |X|, sgn = sign(X), and z = expm1(Y), #
7702 # sinh(X) = sgn*(1/2)*( z + z/(1+z) ). #
7712 # sgn := sign(X) #
7713 # sgnFact := sgn * 2**(16380) #
7819 # sgn := sign(X), y := 2|X|, z := expm1(Y), and #
7820 # tanh(X) = sgn*( z/(2+z) ). #
7829 # sgn := sign(X), y := 2|X|, z := exp(Y), #
7830 # tanh(X) = sgn - [ sgn*2/(1+z) ]. #
7835 # sgn := sign(X), Tiny := 2**(-126), #
7836 # tanh(X) := sgn - sgn*Tiny. #
8580 # sgn := sign(X) #
8583 # atanh(X) := sgn * (1/2) * logp1(z) #
8590 # sgn := sign(X) #
8591 # atan(X) := sgn / (+0). #
10918 and.w &0x7fff, %d1 # strip off sgn
10929 or.w %d0, %d1 # {sgn,new exp}