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 :-)
Viele Grüße
Alma
*Topic verschoben*
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
- Dim X As Double
- Dim Y As Double = data_Funktion
- Dim Q As Double
- Dim alpha As Double
- data_Pback(data_M) = data_Funktion
- For m As Integer = data_M To 1 Step -1
- X += data_Pback(m)
- If X = Y Then
- Q = (1 - X) / (data_Puffergröße(m) + 1 - X)
- Else
- alpha = (X * (1 - Y)) / (Y * (1 - X))
- Q = ((1 - X) * (1 - alpha)) / (1 - (X / Y) * alpha ^ data_Puffergröße(m))
- End If
- data_Pback(m - 1) += data_Funktion * (1 - Q)
- Next
Viele Grüße
Alma
*Topic verschoben*
