Hallo zusammen,
ich brauche aus einem Renditevektor sowohl den Durchschnitt als auch die Standardabweichung.
Die Durchschnittsberechnung habe ich bereits hinbekommen, allerdings komme ich bei meiner Standardabweichung nicht auf das richtige Ergebnis, sondern auf das selbe Ergebnis wie beim Erwartungswert.
For n = 1 To UBound(St) - 1
rendite(n) = (St(n, 1) / St(n + 1, 1)) - 1
Next n
'Berechnung des E-Werts'
For i = 1 To 1141
sum = 0
For n = 1 To 60
sum = sum + rendite(i + n - 1)
Next
WinAve(i, 1) = sum / 60
Next i
'Berechnung der StDev'
For i = 1 To 1141
StDev = 0
For n = 1 To 60
StDev = StDev + rendite(i + n - 1)
Next
WinStd(i, 1) = StDev / 60
Next i
|