You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

78 lines
2.8 KiB

/***************************************************************************
*
* _random.cc - member function definitions for template class
* __rw_random_generator
*
* $Id: _random.cc 172106 2011-11-02 17:04:12Z statham $
*
***************************************************************************
*
* Copyright (c) 1994
* Hewlett-Packard Company
*
* Permission to use, copy, modify, distribute and sell this software
* and its documentation for any purpose is hereby granted without fee,
* provided that the above copyright notice appear in all copies and
* that both that copyright notice and this permission notice appear
* in supporting documentation. Hewlett-Packard Company makes no
* representations about the suitability of this software for any
* purpose. It is provided "as is" without express or implied warranty.
*
***************************************************************************
*
* Copyright (c) 1994-2001 Rogue Wave Software, Inc. All Rights Reserved.
*
* This computer software is owned by Rogue Wave Software, Inc. and is
* protected by U.S. copyright laws and other laws and by international
* treaties. This computer software is furnished by Rogue Wave Software,
* Inc. pursuant to a written license agreement and may be used, copied,
* transmitted, and stored only in accordance with the terms of such
* license and with the inclusion of the above copyright notice. This
* computer software or any other copies thereof may not be provided or
* otherwise made available to any other person.
*
* U.S. Government Restricted Rights. This computer software is provided
* with Restricted Rights. Use, duplication, or disclosure by the
* Government is subject to restrictions as set forth in subparagraph (c)
* (1) (ii) of The Rights in Technical Data and Computer Software clause
* at DFARS 252.227-7013 or subparagraphs (c) (1) and (2) of the
* Commercial Computer Software--Restricted Rights at 48 CFR 52.227-19,
* as applicable. Manufacturer is Rogue Wave Software, Inc., 5500
* Flatiron Parkway, Boulder, Colorado 80301 USA.
*
**************************************************************************/
_RWSTD_NAMESPACE_BEGIN (__rw)
template <unsigned _SIZE>
void __rw_random_generator<_SIZE>::seed (unsigned long __seed)
{
unsigned long __k = 1;
_C_table [_C_SIZE - 1] = __seed;
_RWSTD_C::size_t __i;
for (__i = 0; __i != _C_SIZE - 1; ++__i) {
_RWSTD_C::size_t __ii = 21 * __i % _C_SIZE;
_C_table [__ii] = __k;
__k = __seed - __k;
__seed = _C_table [__ii];
}
for (__i = 0; __i != 4; ++__i) {
for (_RWSTD_C::size_t __ii = 0; __ii != _C_SIZE; ++__ii)
_C_table [__i] =
_C_table [__i] - _C_table [(__i + 31) % _C_SIZE];
}
_C_index1 = 0U;
_C_index2 = _C_SIZE * 2UL / 3UL - 1UL;
}
_RWSTD_NAMESPACE_END // __rw