home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast2.iso / astrnomy / de118i.zip / ECONST.C < prev    next >
C/C++ Source or Header  |  1992-05-08  |  2KB  |  46 lines
  1. /*                            econst.c    */
  2. /*  e type constants used by high precision check routines */
  3.  
  4. #include "ehead.h"
  5. /* 0.0 */
  6. unsigned short ezero[NE] = {
  7. 0, 0000000,0000000,0000000,0000000,0000000,};
  8. extern unsigned short ezero[];
  9. /* 5.0E-1 */
  10. unsigned short ehalf[NE] = {
  11. 0, 0000000,0000000,0000000,0100000,0x3ffe,};
  12. extern unsigned short ehalf[];
  13. /* 1.0E0 */
  14. unsigned short eone[NE] = {
  15. 0, 0000000,0000000,0000000,0100000,0x3fff,};
  16. extern unsigned short eone[];
  17. /* 2.0E0 */
  18. unsigned short etwo[NE] = {
  19. 0, 0000000,0000000,0000000,0100000,0040000,};
  20. extern unsigned short etwo[];
  21. /* 3.2E1 */
  22. unsigned short e32[NE] = {
  23. 0, 0000000,0000000,0000000,0100000,0040004,};
  24. extern unsigned short e32[];
  25. /* 6.93147180559945309417232121458176568075500134360255E-1 */
  26. unsigned short elog2[NE] = {
  27. 0xc9e4,0x79ab,0150717,0013767,0130562,0x3ffe,};
  28. extern unsigned short elog2[];
  29. /* 1.41421356237309504880168872420969807856967187537695E0 */
  30. unsigned short esqrt2[NE] = {
  31. 0x597e,0x6484,0174736,0171463,0132404,0x3fff,};
  32. extern unsigned short esqrt2[];
  33. /* 2/sqrt(PI) =
  34.  * 1.12837916709551257389615890312154517168810125865800E0 */
  35. unsigned short eoneopi[NE] = {
  36. 0x71d5,0x688d,0012333,0135202,0110156,0x3fff,};
  37. extern unsigned short eoneopi[];
  38. /* 3.14159265358979323846264338327950288419716939937511E0 */
  39. unsigned short epi[NE] = {
  40. 0xc4c6,0xc234,0020550,0155242,0144417,0040000,};
  41. extern unsigned short epi[];
  42. /* 5.7721566490153286060651209008240243104215933593992E-1 */
  43. unsigned short eeul[NE] = {
  44. 0xd1be,0xc7a4,0076660,0063743,0111704,0x3ffe,};
  45. extern unsigned short eeul[];
  46.