Schleife funktioniert nicht

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Schleife funktioniert nicht

    Hallo zusammen,

    ich möchte eine rückwärts laufende Schleife erstellen, in der der Variable data_Pback am Ende ein neuer Wert zugewiesen wird. In der nächsten Iteration soll dann die Variable X mit diesem neuen Wert gleichgesetztwerden und die Berechnung so fortgeführt werden, bis m gleich 1 ist. Leider erkenne ich nicht, wo hier der Fehler liegt. Es wäre schön, wenn mir jemand einen Tipp geben könnte :-)


    VB.NET-Quellcode

    1. Dim X As Double
    2. Dim Y As Double = data_Funktion
    3. Dim Q As Double
    4. Dim alpha As Double
    5. data_Pback(data_M) = data_Funktion
    6. For m As Integer = data_M To 1 Step -1
    7. X += data_Pback(m)
    8. If X = Y Then
    9. Q = (1 - X) / (data_Puffergröße(m) + 1 - X)
    10. Else
    11. alpha = (X * (1 - Y)) / (Y * (1 - X))
    12. Q = ((1 - X) * (1 - alpha)) / (1 - (X / Y) * alpha ^ data_Puffergröße(m))
    13. End If
    14. data_Pback(m - 1) += data_Funktion * (1 - Q)
    15. Next



    Viele Grüße
    Alma

    *Topic verschoben*

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()

    @Alma0407 Willkommen im Forum. :thumbup:
    Da hilft nur Debuggen.
    Haltepunkt reinsetzen und Deinen Code zeilenweise durcharbeiten.
    Gugst Di hier: Debuggen, Fehler finden und beseitigen
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!