|
Nun ja, mein Problem ist etwas komplexer!
Ich habe ein Tabellenblatt auf dem Aktienkurse für 10 Jahre stehen, in Spalte G, nun habe ich einen Vektor für die Rendite in VBA erstellt, davon brauche ich sowohl den Erwartungswert als auch die Standardabweichung über 60 Tage, und die Ergebnisse in einem neuen Vektor (das 60 Tagesfenster verschiebt sich immer um einen Tag nach unten)...bei meinem Code für den Erwartungswert funktioniert es einwandfrei, aber bei der Standardabweichung leider nicht...ich denke mal dass meine Formel nicht ganz korrekt ist, aber ich komme leider nicht drauf...
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
For i = 1 To 1141
SumSq = 0
For n = 1 To 60
SumSq = SumSq + (rendite(i) - WinAve(i, 1)) ^ 2
StdDev = Sqr(SumSq / (60 - 1))
Next n
WinStd(i, 1) = StdDev
Next i
|