Subversion Repositories wimsdev

Rev

Rev 8862 | Rev 11132 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 8862 Rev 11126
Line 55... Line 55...
55 
    int r;
 55 
    int r;
56 
    struct timeval t;
 56 
    struct timeval t;
57 
/*    initstate(1,rand_buf,RAND_BUF_SIZE); */
 57 
/*    initstate(1,rand_buf,RAND_BUF_SIZE); */
58 
    gettimeofday(&t,NULL);
 58 
    gettimeofday(&t,NULL);
59 
    r=t.tv_usec+t.tv_sec*1000;
 59 
    r=t.tv_usec+t.tv_sec*1000;
- 
 
 60 
    if(r<0) r=-r;
60 
    if(r<0) r=-r; if(r==0) r=1;
 61 
    if(r==0) r=1;
61 
    srandom(r);
 62 
    srandom(r);
62 
}
 63 
}
63 
 
 64 
 
64 
/* gives a double random number between 0 and m */
 65 
/* gives a double random number between 0 and m */
65 
double drand(double m)
 66 
double drand(double m)
Line 361... Line 362...
361 
    i=search_list(evalname,evalname_no,sizeof(evalname[0]),buf);
 362 
    i=search_list(evalname,evalname_no,sizeof(evalname[0]),buf);
362 
    ename: if(i>=0) switch(evalname[i].type) { /* evaluation of expressions */
 363 
    ename: if(i>=0) switch(evalname[i].type) { /* evaluation of expressions */
363 
      case 0: {
 364 
      case 0: {
364 
          d=evalname[i].val;
 365 
          d=evalname[i].val;
365 
          if(evalname[i].f1!=NULL) {
 366 
          if(evalname[i].f1!=NULL) {
366 
            if(d==0) d=NAN; if(d==1) d=HUGE_VAL;
 367 
            if(d==0) d=NAN;
- 
 
 368 
            if(d==1) d=HUGE_VAL;
367 
          }
 369 
          }
368 
          break;
 370 
          break;
369 
      }
 371 
      }
370 
      case 1: {
 372 
      case 1: {
371 
          if(*evalue_pt!='(') return NAN;
 373 
          if(*evalue_pt!='(') return NAN;