Code/Resource
Windows Develop
Linux-Unix program
Internet-Socket-Network
Web Server
Browser Client
Ftp Server
Ftp Client
Browser Plugins
Proxy Server
Email Server
Email Client
WEB Mail
Firewall-Security
Telnet Server
Telnet Client
ICQ-IM-Chat
Search Engine
Sniffer Package capture
Remote Control
xml-soap-webservice
P2P
WEB(ASP,PHP,...)
TCP/IP Stack
SNMP
Grid Computing
SilverLight
DNS
Cluster Service
Network Security
Communication-Mobile
Game Program
Editor
Multimedia program
Graph program
Compiler program
Compress-Decompress algrithms
Crypt_Decrypt algrithms
Mathimatics-Numerical algorithms
MultiLanguage
Disk/Storage
Java Develop
assembly language
Applications
Other systems
Database system
Embeded-SCM Develop
FlashMX/Flex
source in ebook
Delphi VCL
OS Develop
MiddleWare
MPI
MacOS develop
LabView
ELanguage
Software/Tools
E-Books
Artical/Document
ut0rnd.c
Package: mysql-3.23.35.tar.gz [view]
Upload User: tsgydb
Upload Date: 2007-04-14
Package Size: 10674k
Code Size: 1k
Category:
MySQL
Development Platform:
Visual C++
- /*******************************************************************
- Random numbers and hashing
- (c) 1994, 1995 Innobase Oy
- Created 5/11/1994 Heikki Tuuri
- ********************************************************************/
- #include "ut0rnd.h"
- #ifdef UNIV_NONINL
- #include "ut0rnd.ic"
- #endif
- /* These random numbers are used in ut_find_prime */
- #define UT_RANDOM_1 1.0412321
- #define UT_RANDOM_2 1.1131347
- #define UT_RANDOM_3 1.0132677
- ulint ut_rnd_ulint_counter = 65654363;
- /***************************************************************
- Looks for a prime number slightly greater than the given argument.
- The prime is chosen so that it is not near any power of 2. */
- ulint
- ut_find_prime(
- /*==========*/
- /* out: prime */
- ulint n) /* in: positive number > 100 */
- {
- ulint pow2;
- ulint i;
- n += 100;
- pow2 = 1;
- while (pow2 * 2 < n) {
- pow2 = 2 * pow2;
- }
- if ((double)n < 1.05 * (double)pow2) {
- n = (ulint) ((double)n * UT_RANDOM_1);
- }
- pow2 = 2 * pow2;
- if ((double)n > 0.95 * (double)pow2) {
- n = (ulint) ((double)n * UT_RANDOM_2);
- }
- if (n > pow2 - 20) {
- n += 30;
- }
- /* Now we have n far enough from powers of 2. To make
- n more random (especially, if it was not near
- a power of 2), we then multiply it by a random number. */
- n = (ulint) ((double)n * UT_RANDOM_3);
- for (;; n++) {
- i = 2;
- while (i * i <= n) {
- if (n % i == 0) {
- goto next_n;
- }
- i++;
- }
- /* Found a prime */
- break;
- next_n: ;
- }
- return(n);
- }