Le forum de XCAS

Code : Tout sélectionner

#if defined VISUALC || defined __MINGW_H
    struct _timeb timebuffer0,timebuffer1;
    _ftime(&timebuffer0);
    for (;i<1000;){ // do it 10 times more
      for (;i<ntimes;++i){
	eval(a,level,contextptr);
      }
      _ftime(&timebuffer1);
      delta=(timebuffer1.time-timebuffer0.time)+double(timebuffer1.millitm-timebuffer0.millitm)/1000;
      if (delta>0.1)
	break;
      if (delta>0.05) // max wait time will be 2 seconds
	ntimes *= 2;
      else {
	if (delta>0.02) 
	  ntimes *= 5;
	else
	  ntimes *= 10;
      }
    }
    return (delta/ntimes);
#endif

Code : Tout sélectionner

/* Structure describing CPU time used by a process and its children.  */
struct tms
  {
    clock_t tms_utime;          /* User CPU time.  */
    clock_t tms_stime;          /* System CPU time.  */

    clock_t tms_cutime;         /* User CPU time of dead children.  */
    clock_t tms_cstime;         /* System CPU time of dead children.  */
  };

/* Store the CPU time used by this process and all its
   dead children (and their dead children) in BUFFER.
   Return the elapsed real time, or (clock_t) -1 for errors.
   All times are in CLK_TCKths of a second.  */
clock_t times (struct tms *__buffer);
typedef long long suseconds_t ;

Code : Tout sélectionner

$ ./giac_oo.exe
Expression : time(factoriser(makelist(n->x^n-1,1,100)))
// Warning: x, declared as global variable(s). If symbolic variables are required, declare them as local and run purge
Sortie giac : 0.0404

Code : Tout sélectionner

[0.025,0.02354878]

Code : Tout sélectionner

Expression : time(evalf(pi,100000))
Sortie giac : 0.000156

Code : Tout sélectionner

[0.00042578125,0.00038788203125]