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
276 |--ARE ONLY 8 TIMES 16 = 2^7 = 128 |F|'S. SINCE ATAN(-|F|) IS
277 |-- -ATAN(|F|), WE NEED TO STORE ONLY ATAN(|F|).
284 	movel		#0x00000000,XFRACLO(%a6)	| ...LOCATION OF X IS NOW F
287 	fmulx		X(%a6),%fp1		| ...FP1 IS X*F, NOTE THAT X*F > 0
288 	fsubx		X(%a6),%fp0		| ...FP0 IS X-F
289 	fadds		#0x3F800000,%fp1		| ...FP1 IS 1 + X*F
290 	fdivx		%fp1,%fp0			| ...FP0 IS U = (X-F)/(1+X*F)
292 |--WHILE THE DIVISION IS TAKING ITS TIME, WE FETCH ATAN(|F|)
293 |--CREATE ATAN(F) AND STORE IT IN ATANF, AND
298 	andil		#0x00007800,%d0	| ...4 VARYING BITS OF F'S FRACTION