Implementierung Kreuzkorrelation

// alle Variablen als int16_t deklariert

#undef  STEP

#define STEP(k) (s1[k] * s2[k - lambda])

  for (lambda = 40; lambda <= 120; lambda++) 

  {   

    int32_t  result;

    L_result  = STEP(0);  L_result += STEP(1);

    L_result += STEP(2);  L_result += STEP(3);

    L_result += STEP(4);  L_result += STEP(5);

    L_result += STEP(6);  L_result += STEP(7);

    L_result += STEP(8);  L_result += STEP(9);

    L_result += STEP(10); L_result += STEP(11);

    L_result += STEP(12); L_result += STEP(13);

    L_result += STEP(14); L_result += STEP(15);

    L_result += STEP(16); L_result += STEP(17);

    L_result += STEP(18); L_result += STEP(19);

    L_result += STEP(20); L_result += STEP(21);

    L_result += STEP(22); L_result += STEP(23);

    L_result += STEP(24); L_result += STEP(25);

    L_result += STEP(26); L_result += STEP(27);

    L_result += STEP(28); L_result += STEP(29);

    L_result += STEP(30); L_result += STEP(31);

    L_result += STEP(32); L_result += STEP(33);

    L_result += STEP(34); L_result += STEP(35);

    L_result += STEP(36); L_result += STEP(37);

    L_result += STEP(38); L_result += STEP(39);

    if (result > max) 

    {

      x   = lambda;

      max = result;

    }

  }