hash5.c
Go to the documentation of this file.
1 /* Oct.16, 1990. */
2 /* 123456.789 was changed to 12345.6789 because hash is too sensible */
3 
4 #include "arith.h"
5 
6 hash5(w)
7 VECTOR w;
8 {
9  REAL x,d[MAXRANK];
10  int i,hash;
11 
12  for(i=0; i<MAXRANK; i++){
13  d[i]= (w[i]+1)*1.5;
14  }
15 
16  x = d[0]*1.23+d[1]*3.21+d[2]*2.35+d[3]*16.35+d[4]*23.57+d[5]*15.63;
17  hash= (int)(12345.6789 * x) % HASHNO;
18  return(hash);
19 }
20 
d
REAL VECTOR[MAX]
Definition: arith.h:26
double REAL
Definition: arith.h:25
#define MAXRANK
Definition: arith.h:13
hash5(VECTOR w)
Definition: hash5.c:6
#define HASHNO
Definition: arith.h:23


euslisp
Author(s): Toshihiro Matsui
autogenerated on Mon Feb 28 2022 22:18:27