uint  GetTickCount();

#define MAX_SIZE 40
//+------------------------------------------------------------------+
//| 测量40个裴波那契数列计算时间的脚本                                    |
//+------------------------------------------------------------------+
void OnStart()
  {
//--- 牢记初始值
   uint start=GetTickCount();
//--- 在裴波那契数列获得下一个数列的变量
   long fib=0;
//--- 循环计算来自裴波那契数列的指定数列量
   for(int i=0;i<MAX_SIZE;i++) fib=TestFibo(i);
//--- 获取毫秒为单位的所用时间
   uint time=GetTickCount()-start;
//--- 导出信息到专家日志
   PrintFormat("Calculating %d first Fibonacci numbers took %d ms",MAX_SIZE,time);
//--- 已完成脚本
   return;
  }
//+------------------------------------------------------------------+
//| 通过数列号获得裴波那契数列的函数                                      |
//+------------------------------------------------------------------+
long TestFibo(long n)
  {
//--- 裴波那契数列的第一个成员
   if(n<2) return(1);
//--- 所有其他成员通过以下公式计算
   return(TestFibo(n-2)+TestFibo(n-1));
  }