Lines Matching refs:F

26 |		Define F = sgn * 2**k * 1.xxxx1, i.e. the first 5 significant bits
28 |		to be u = (X-F) / (1 + X*F).
32 |	Step 4. Return arctan(F) + poly, arctan(F) is fetched from a table of values
275 |--ARE ONLY 8 TIMES 16 = 2^7 = 128 |F|'S. SINCE ATAN(-|F|) IS
276 |-- -ATAN(|F|), WE NEED TO STORE ONLY ATAN(|F|).
283 	movel		#0x00000000,XFRACLO(%a6)	| ...LOCATION OF X IS NOW F
286 	fmulx		X(%a6),%fp1		| ...FP1 IS X*F, NOTE THAT X*F > 0
287 	fsubx		X(%a6),%fp0		| ...FP0 IS X-F
288 	fadds		#0x3F800000,%fp1		| ...FP1 IS 1 + X*F
289 	fdivx		%fp1,%fp0			| ...FP0 IS U = (X-F)/(1+X*F)
291 |--WHILE THE DIVISION IS TAKING ITS TIME, WE FETCH ATAN(|F|)
292 |--CREATE ATAN(F) AND STORE IT IN ATANF, AND
297 	andil		#0x00007800,%d0	| ...4 VARYING BITS OF F'S FRACTION