---

Beta.h

//   -*- C++ -*-
/*****************************************************************************
 *
 *   |_|_|_  |_|_    |_    |_|_|_  |_                C O M M U N I C A T I O N
 * |_        |_  |_  |_  |_        |_                          N E T W O R K S
 * |_        |_  |_  |_  |_        |_                                C L A S S
 *   |_|_|_  |_    |_|_    |_|_|_  |_|_|_|_                      L I B R A R Y
 *
 * $Id: Beta.h,v 1.4 2002/02/01 08:46:12 spee Exp $
 *
 * CNClass: CNBeta --- CNBeta distributed random numbers
 *
 *****************************************************************************
 * Copyright (C) 1992-2002   Communication Networks
 *                           Aachen University of Technology
 *                           D-52056 Aachen
 *                           Germany
 *                           Email: cncl-adm@comnets.rwth-aachen.de
 *****************************************************************************
 * This file is part of the CN class library. All files marked with
 * this header are free software; you can redistribute it and/or modify
 * it under the terms of the GNU Library General Public License as
 * published by the Free Software Foundation; either version 2 of the
 * License, or (at your option) any later version.  This library is
 * distributed in the hope that it will be useful, but WITHOUT ANY
 * WARRANTY; without even the implied warranty of MERCHANTABILITY or
 * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Library General Public
 * License for more details.  You should have received a copy of the GNU
 * Library General Public License along with this library; if not, write
 * to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139,
 * USA.
 *****************************************************************************/

#ifndef __Beta_h
#define __Beta_h 


#include <CNCL/Class.h>
#include <CNCL/Param.h>

#include <CNCL/Random.h>                // Base class

extern CNClassDesc CN_BETA;     // CNClass CNBeta description



class CNBeta : public CNRandom
{
protected:
    long pr1, pr2;

public:
    virtual double operator()() ;

    /****** Constructors ******************************************************/
public:
    CNBeta() ;
    CNBeta(CNParam *param);
    CNBeta(long a, long b, CNRNG *gen);

    /****** Member functions required by CNCL *********************************/
public:
    virtual CNClassDesc class_desc() const      // CNClass description
    {
        return CN_BETA;
    };
            
    virtual bool is_a(CNClassDesc desc) const
    {
        return desc == CN_BETA ? TRUE : CNRandom::is_a(desc);
    };
        
    static CNBeta *cast_from_object(CNObject *obj)
    {
#   ifdef NO_TYPE_CHECK
        return (CNBeta *)obj;
#   else
        return (CNBeta *)( !obj || obj->is_a(CN_BETA)
               ? obj : fatal_type(obj->class_desc(), CN_BETA) );
#   endif
    }
    
    static CNObject *new_object(CNParam *param = NIL)
    { return param ? new CNBeta(param) : new CNBeta; }
    
    virtual void print(ostream &strm = cout) const;
    virtual void dump (ostream &strm = cout) const;
};

#endif 

---