home *** CD-ROM | disk | FTP | other *** search
/ NeXTSTEP 3.3 (Developer) / NeXT_Developer-3.3.iso / NextDeveloper / Headers / g++ / Erlang.h < prev    next >
Encoding:
C/C++ Source or Header  |  1995-02-06  |  1.9 KB  |  70 lines
  1. // This may look like C code, but it is really -*- C++ -*-
  2. /* 
  3. Copyright (C) 1988 Free Software Foundation
  4.     written by Dirk Grunwald (grunwald@cs.uiuc.edu)
  5.  
  6. This file is part of the GNU C++ Library.  This library is free
  7. software; you can redistribute it and/or modify it under the terms of
  8. the GNU Library General Public License as published by the Free
  9. Software Foundation; either version 2 of the License, or (at your
  10. option) any later version.  This library is distributed in the hope
  11. that it will be useful, but WITHOUT ANY WARRANTY; without even the
  12. implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
  13. PURPOSE.  See the GNU Library General Public License for more details.
  14. You should have received a copy of the GNU Library General Public
  15. License along with this library; if not, write to the Free Software
  16. Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  17. */
  18. #ifndef _Erlang_h
  19. #ifdef __GNUG__
  20. #pragma interface
  21. #pragma cplusplus
  22. #endif
  23. #define _Erlang_h 1 
  24.  
  25. #include <Random.h>
  26.  
  27. class Erlang: public Random {
  28. protected:
  29.     double pMean;
  30.     double pVariance;
  31.     int k;
  32.     double a;
  33.     void setState();
  34. public:
  35.     Erlang(double mean, double variance, RNG *gen);
  36.  
  37.     double mean();
  38.     double mean(double x);
  39.     double variance();
  40.     double variance(double x);
  41.  
  42.     virtual double operator()();
  43.  
  44. };
  45.  
  46.  
  47. inline void Erlang::setState() {
  48.   k = int( (pMean * pMean ) / pVariance + 0.5 );
  49.   k = (k > 0) ? k : 1;
  50.   a = k / pMean;
  51. }
  52.  
  53. inline Erlang::Erlang(double mean, double variance, RNG *gen) : Random(gen)
  54. {
  55.   pMean = mean; pVariance = variance;
  56.   setState();
  57. }
  58.  
  59. inline double Erlang::mean() { return pMean; }
  60. inline double Erlang::mean(double x) {
  61.   double tmp = pMean; pMean = x; setState(); return tmp;
  62. };
  63.  
  64. inline double Erlang::variance() { return pVariance; }
  65. inline double Erlang::variance(double x) {
  66.   double tmp = pVariance; pVariance = x; setState(); return tmp;
  67. }
  68.  
  69. #endif
  70.