Перевод кода из vba в C#

[Wdagon]

Добрый день! Есть код на VBA, нужно его перевести на C#, можете помочь.

For i = 1 To N
    a13(i) = a11(i)         
    a14(i) = a12(i)           
    Koef(i) = ab(i) 
 
    a15(i) = 0
    a16(i) = 0
 
 Next 
 
 For i = 1 To N
    D1 = 0          
    D2 = 0         
    
    For j = 1 To i 
                    
        a15(i - j + 1) = a15(i - j)
        a16(i - j + 1) = a16(i - j)
    Next j
    
    a15(1) = a13(i) 
    a16(1) = a14(i)
 
    For j = 1 To i
        a18(j) = Koef(j) * a15(j)   
        D1 = D1 + a18(j)            
 
        a19(j) = Koef(j) * a16(j)   
        D2 = D2 + a19(j)           
      
    Next j
 
     F1 = A0 * D1
     F2 = A0 * D2
        
      Rez = Round(B0 * F1 + B1 * F2 + B2 * F1 * F1 + B3 * F2 * F2 + B4 * F1 * F2, 2)
 
      x(i) = Rez
      
 Next i

[Vanta11a]

А что самостоятельно сделано по переводу? Тут тупо циклы, ничего особенного не вижу.

[Stilet]

Приблизительно так:

For (i = 1;i<=N;i++){
    a13[i] = a11[i];         
    a14[i] = a12[i] ;          
    Koef[i] = ab[i];
 
    a15[i] = 0;
    a16[i] = 0;
 
}
 
For (i = 1;i<=N;i++){
    D1 = 0  ;        
    D2 = 0  ;       
    
 For (j = 1;j<=i;j++){
                    
        a15[i - j + 1] = a15[i - j];
        a16[i - j + 1] = a16[i - j];
 }
    
    a15[1] = a13[(i)]; 
    a16[1] = a14[(i)];
 
 For (j = 1;j<=i;j++){
        a18[(j)] = Koef[(j)] * a15[(j)];   
        D1 = D1 + a18(j);            
 
        a19[(j)] = Koef[(j)] * a16[(j)];   
        D2 = D2 + a19[(j)];           
      
 }
 
     F1 = A0 * D1;
     F2 = A0 * D2;
        
      Rez = Math.Round(B0 * F1 + B1 * F2 + B2 * F1 * F1 + B3 * F2 * F2 + B4 * F1 * F2, 2);
 
      x[(i)] = Rez;
      
}

Но это только часть кода.

[Wdagon]

[QUOTE=Stilet;1357168]Приблизительно так:

 For (j = 1;j<=i;j++){
                    
        a15[i - j + 1] = a15[i - j];
        a16[i - j + 1] = a16[i - j];
 }

здесь a15 выдает что индекс находится вне границ массива

[Wdagon]

Я вот так написал

public void Leb()
        {
            
            for (int i = 0; i < 91; i++)
            {
                QZ1[i] = Math.Exp(-A0 * N / 2);
                QZ2[i] = (1 - A0 * N) * QZ1[i];
                N++;
                a15[i] = 0;
                a16[i] = 0;
            }

                for (int i = 0; i < 91; i++)
                {
                    D11 = 0;
                    D21 = 0;

                    for (int j = 0; j < i; j++)
                    {
                        a15[i - j + 1] += a15[i - j];
                        a16[i - j + 1] += a16[i - j];
                    }
                    a15[0] = QZ1[i];
                    a16[0] = QZ2[i];

                    for (int j = 0; j < i; j++)
                    {
                        a18[j] = Q[j] * a15[j];
                        D11 += a18[j];

                        a19[j] = Q[j] * a16[j];
                        D21 += a19[j]; 
                    }

                    F1[i] = A0 * D11;
                    F2[i] = A0 * D21;
                    Qleb[i] = Math.Round(B0 * F1[i] + B1 * F2[i] + B2 * F1[i] * F1[i] + B3 * F2[i] * F2[i] + B4 * F1[i] * F2[i], 2);
                }
            
            QL();
        }

Но вот тут ошибка

For (Int j = 1; j<= i; j++)
{                 
        a15[i - j + 1] = a15[i - j];
        a16[i - j + 1] = a16[i - j];
 }

[Serge_Bliznykov]

Wdagon, во-первых, в упор не вижу в вашем коде, где Вы задаёте значение переменной N, вместо него, кое-где непонятные константы (вот, откуда у Вас появлись 91, которого не было в исходном коде на VBA) ?!

во-вторых, нумерация в массивах в бейсике от 1 до N, а в C# от 0 до N-1, нужно везде поправить индексацию в массивах...

это так, навскидку...

[Wdagon]

в vba N=91, я просто сразу написал 91
C# от 0 до N-1, Т.е. везде нужно 90 указать?