NumericalRecipes_Dist.cpp
上传用户:szb0815
上传日期:2007-06-13
资源大小:338k
文件大小:1k
源码类别:

生物技术

开发平台:

C++ Builder

  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #include <stdexcept>
  4. #pragma hdrstop
  5. #include "NumericalRecipes.h"
  6. /* Many parts of this program use routines from the Numerical Recipes library.
  7. The Numerical Recipes library does not permit distribution of their code. In order
  8. for Cluster to run and compile properly you must obtain and insert the following
  9. Numerical Recipes routines. I am working to rewrite all of this with public domain
  10. libraries. You can get NR routines from www.nr.com. Many academic institutions
  11. have site licenses. If you have questions about this, please contact me at
  12. eisen@genome.stanford.edu. If your institution has a license, I am happy to send
  13. you a copy of the intact version of this file */
  14. /* Routines needed:
  15. betacf
  16. betai
  17. crank
  18. erfcc
  19. gammln
  20. kendl1
  21. kstwo
  22. probks
  23. pythag
  24. select
  25. sort
  26. sort2
  27. spear
  28. svdcmp
  29. as well as all of the routines in nrutil.c
  30. */
  31. //---------------------------------------------------------------------------
  32. #pragma package(smart_init)
  33. #define USE 1
  34. #undef IGNORE
  35. /* Trap sqrt domain errors and set value to 0 */
  36. int std::_matherr (struct math_exception *a)
  37. {
  38.   if (a->type == DOMAIN)
  39.     if (!strcmp(a->name,"sqrt")) {
  40.       a->retval = 0;
  41.     return 1;
  42.     }
  43.   return 0;
  44. }