GetTickCount

uint  GetTickCount();

#define MAX_SIZE 40
//+------------------------------------------------------------------+
//| 40 Fibonacci sayısının hesaplama süresini ölçen script           |
//+------------------------------------------------------------------+
void OnStart()
  {
//--- İlk değeri hatırla
   uint start=GetTickCount();
//--- Fibonacci serisindeki sonraki sayıyı almak için bir değişken
   long fib=0;
//--- Döngü içinde, Fibonacci serinden belirlenen miktarda sayıyı hesapla
   for(int i=0;i<MAX_SIZE;i++) fib=TestFibo(i);
//--- Harcanan zamanı milisaniye olarak göster.
   uint time=GetTickCount()-start;
//--- Uzmanlar bültenine bir mesaj çıktıla
   PrintFormat("İlk %d Fibonacci sayısının hesaplanması %d ms zaman aldı",MAX_SIZE,time);
//--- Script tamamlandı
   return;
  }
//+------------------------------------------------------------------+
//| Fibonacci sayısını serideki indisiyle almak için bir fonksiyon   |
//+------------------------------------------------------------------+
long TestFibo(long n)
  {
//--- Fibonacci serisinin ilk elemanı
   if(n<2) return(1);
//--- Tüm diğer elemanlar şu formülle hesaplanır
   return(TestFibo(n-2)+TestFibo(n-1));
  }