Lieber Besucher, herzlich willkommen bei: INVESTOX-Forum. Falls dies Ihr erster Besuch auf dieser Seite ist, lesen Sie sich bitte die Hilfe durch. Dort wird Ihnen die Bedienung dieser Seite näher erläutert. Darüber hinaus sollten Sie sich registrieren, um alle Funktionen dieser Seite nutzen zu können. Benutzen Sie das Registrierungsformular, um sich zu registrieren oder informieren Sie sich ausführlich über den Registrierungsvorgang. Falls Sie sich bereits zu einem früheren Zeitpunkt registriert haben, können Sie sich hier anmelden.
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 33 34 35 36 37 38 39 |
'Die Variablen Perioden und Faktor werden als Parameter übergeben Dim High, Low, ATR Dim z, Anfang, Ende, Stopp, Formel GetDaten "High", High GetDaten "Low", Low Anfang = ErsteDatenPeriode(High) Ende = LetzteDatenPeriode(High) Formel = "ATR(" & cStr(Perioden) & ")" if ScriptBerechneFormel(Formel, ATR) then Stopp = 0 for z = Anfang+1 to Ende if z < Ende and Low(z) < Stopp and High(z) > Stopp then if High(z) > High(z-1) then Stopp = Low(z+1) - ATR(z)*Faktor else Stopp = High(z+1) + ATR(z)*Faktor end if else if Low(z) > Stopp and Stopp < Low(z) - ATR(z)*Faktor then Stopp = Low(z) - ATR(z)*Faktor else if High(z) < Stopp and Stopp > High(z) + ATR(z)*Faktor then Stopp = High(z) + ATR(z)*Faktor end if end if end if Ergebnis(z)= Stopp next end if |
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 33 34 35 36 37 38 39 40 41 42 43 44 45 |
'Die Variablen Perioden und Faktor werden als Parameter übergeben Dim High, Low, ATR Dim z, Anfang, Ende, Stopp, Formel GetDaten "High", High GetDaten "Low", Low Anfang = ErsteDatenPeriode(High) Ende = LetzteDatenPeriode(High) Formel = "ATR(" & cStr(Perioden) & ")" if ScriptBerechneFormel(Formel, ATR) then Stopp = 0 for z = Anfang+1 to Ende if ATR(z) = NoValue then Ergebnis(z)= 0 else if z < Ende and Low(z) < Stopp and High(z) > Stopp then if High(z) > High(z-1) then Stopp = Low(z+1) - ATR(z)*Faktor else Stopp = High(z+1) + ATR(z)*Faktor end if else if Low(z) > Stopp and Stopp < Low(z) - ATR(z)*Faktor then Stopp = Low(z) - ATR(z)*Faktor else if High(z) < Stopp and Stopp > High(z) + ATR(z)*Faktor then Stopp = High(z) + ATR(z)*Faktor end if end if end if Ergebnis(z)= Stopp end if next end if |
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 33 34 35 36 37 38 39 40 |
'Die Variablen Perioden und Faktor werden als Parameter übergeben Dim High(), Low(), ATR() Dim z, Anfang, Ende, Stopp, Formel GetDaten "High", High GetDaten "Low", Low Anfang = ErsteDatenPeriode(High) Ende = LetzteDatenPeriode(High) Formel = "ATR(" & cStr(Perioden) & ")" if ScriptBerechneFormel(Formel, ATR) then Stopp = 0 for z = Anfang+1 to Ende if ATR(z) = NoValue then Stopp = 0 elseif z < Ende and Low(z) < Stopp and High(z) > Stopp then if High(z) > High(z-1) then Stopp = Low(z+1) - ATR(z)*Faktor else Stopp = High(z+1) + ATR(z)*Faktor end if else if Low(z) > Stopp and Stopp < Low(z) - ATR(z)*Faktor then Stopp = Low(z) - ATR(z)*Faktor end if if High(z) < Stopp and Stopp > High(z) + ATR(z)*Faktor then Stopp = High(z) + ATR(z)*Faktor end if end if Ergebnis(z)= Stopp next end if |
Hattest Du die langsame Version dieses Stops früher mit mehr Erfolg angewendet?