Manfred Wahl
unregistriert
Quellcode |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 |
Dim Smooth, Cycle, Q1, I1, Instperiod Dim alpha1, alpha2 Dim StartIndex, EndIndex, i ''Start und Ende der verfügbaren Daten prüfen Startindex=ErsteDatenPeriode(Daten) EndIndex=LetzteDatenPeriode(Daten) scriptberechneformel "(daten()+2*Ref(daten,-1)+2*Ref(daten,-2)+Ref(daten,-3))/6", smooth for i= startindex to 7 cycle(i) = 0 Q1(i) = 0 I1(i) = 0 Instperiode(i) =0 next alpha1 = (1-0.5*alpha)*(1-0.5*alpha) alpha2 = (1-alpha) * (1-alpha) for i = startindex + 3 to endindex Cycle(i) = alpha1 * (Smooth(i)-2*Smooth(i-1)+Smooth(i-2)) + 2 *(1-alpha)*Cycle(i-1)- alpha2 *Cycle(i-2) next for i = startindex + 6 to endindex Q1(i) = (0.0962 * Cycle(i) + 0.5769 * Cycle(i-2) - 0.5769 * Cycle(i-4) - 0.0962 * Cycle(i-6)) * (0.5 + 0.08 * InstPeriod(i - 1)) I1(i) = Cycle(i - 3) next ''Das Ergebnis zuweisen For i = Startindex+1 To EndIndex Ergebnis(i)= cycle(i) next |
Ganesha
unregistriert