Lines Matching refs:atan
6355 #--ENTRY POINT FOR ATAN(X), HERE X IS FINITE, NON-ZERO, AND NOT NAN'S
6374 #--THE IDEA IS ATAN(X) = ATAN(F) + ATAN( [X-F] / [1+XF] ).
6375 #--SO IF F IS CHOSEN TO BE CLOSE TO X AND ATAN(F) IS STORED IN
6376 #--A TABLE, ALL WE NEED IS TO APPROXIMATE ATAN(U) WHERE
6379 #--ATAN(U) IS A VERY SHORT POLYNOMIAL AND THE INDEXING TO
6383 #--ATAN(X) DIRECTLY WILL NEED TO USE A RATIONAL APPROXIMATION
6391 #--ARE ONLY 8 TIMES 16 = 2^7 = 128 |F|'S. SINCE ATAN(-|F|) IS
6392 #-- -ATAN(|F|), WE NEED TO STORE ONLY ATAN(|F|).
6406 #--WHILE THE DIVISION IS TAKING ITS TIME, WE FETCH ATAN(|F|)
6407 #--CREATE ATAN(F) AND STORE IT IN ATANF, AND
6417 asr.l &7,%d1 # INDEX INTO TBL OF ATAN(|F|)
6419 add.l %d1,%a1 # ADDRESS OF ATAN(|F|)
6422 mov.l (%a1)+,ATANFLO(%a6) # ATANF IS NOW ATAN(|F|)
6425 or.l %d1,ATANF(%a6) # ATANF IS NOW SIGN(F)*ATAN(|F|)
6431 #--U IN FP0, WE ARE NOW READY TO COMPUTE ATAN(U) AS
6450 fadd.x %fp1,%fp0 # ATAN(U), FP1 RELEASED
6455 fadd.x ATANF(%a6),%fp0 # ATAN(X)
6467 #--ATAN(X) BY X + X*Y*(B1+Y*(B2+Y*(B3+Y*(B4+Y*(B5+Y*B6)))))
6511 #--|X| < 2^(-40), ATAN(X) = X
6521 #--RETURN SIGN(X)*PI/2 + ATAN(-1/X).
6525 #--APPROXIMATE ATAN(-1/X) BY
6597 #--ENTRY POINT FOR ATAN(X) FOR DENORMALIZED ARGUMENT
6625 # asin(X) = atan( x / z ). #
6656 #--ASIN(X) = ATAN( X / SQRT( (1-X)(1+X) ) )
6690 #--|X| < 2^(-40), ATAN(X) = X
6726 # acos(X) = 2 * atan( sqrt(z) ). #
6749 #--ACOS(X) = 2 * ATAN( SQRT( (1-X)/(1+X) ) )
6762 bsr satan # ATAN(SQRT([1-X]/[1+X]))
6766 fadd.x %fp0,%fp0 # 2 * ATAN( STUFF )
8706 # atan(X) := sgn / (+0). #
Indexes created Sat Oct 25 16:10:12 GMT 2025