random.c 353 B

12345678910111213141516171819202122232425262728293031
  1. /* $Id$ */
  2. #if !defined(EM_WSIZE)
  3. #define EM_WSIZE _EM_WSIZE
  4. #endif
  5. _randomi()
  6. {
  7. int i;
  8. _setchan(-1);
  9. printf("Random number seed (-32768 to 32767) ? ");
  10. _readint(&i);
  11. _setrand(i);
  12. }
  13. _setrand(i)
  14. int i;
  15. {
  16. srand(i);
  17. }
  18. double _rnd(d) double d;
  19. {
  20. double f; f= (int) rand();
  21. return(f/
  22. #if EM_WSIZE == 4
  23. 2147483647.0
  24. #else
  25. 32767.0
  26. #endif
  27. );
  28. }