Zitat
Original von vimo
... leiden ein kleines Manko an meiner Programmierfähigkeit.
In Investok könnte ich einiges liefern aber in einer externer Lösung ...
Gibt es sonst noch eine Möglichkeit??? (will haben)
Hallo Anke,
vielen Dank, das du die Innenstäbe so schnell programmiert hast, und zur Verfügung stellst.
Die Innenstäbe anhand der Indikatoren zu interpretieren ist schwierig. Wenn z.B. nach einem Außenstab eine Reihe Innenstäbe folgt, wird durch einen nächsten Außenstab die Serie Innenstäbe abgebrochen. Obwohl der neue Außenstab noch ein weiterer Innenstab ist.
Ich versuche noch mal eine mögliche Umsetzung mit Festlegung der Mindestanzahl der Perioden wie viele Innenstäbe vorliegen müssen, damit der dazugehörige Außenstab weiterhin gültig bleibt.
Gruß Snoopy
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 |
Dim i Dim high, low, close, open Dim body_high, body_low dim Hoch_Aussenstab, Tief_Aussenstab '' Bereitstellen der benötigten Daten getdaten "High",high getdaten "Low",low getdaten "close",close getdaten "open", open '' Berechnen des Kerzenbodys if scriptberechneformel("max(open,close)", body_high) and scriptberechneformel("min(open,close)", body_low) then Hoch_Aussenstab=0 Tief_Aussenstab=0 '' Aller Ergebnisse mit 0 vorbelegen for i=1 to alleperioden ergebnis(i)=0 next For i=2 to alleperioden if hoch_Aussenstab=0 then '' es wurde noch kein Aussenstab identifiziert if body_high(i)<high(i-1) and body_low(i)>low(i-1) then '' der Aktuelle Stab ist der erste Innenstab Hoch_Aussenstab=high(i-1) '' gestriges Hoch merken Tief_Aussenstab=low(i-1) '' gestriges Tief merken ergebnis(i)=1 '' es liegt ein Innenstab vor end if else '' es wurde bereits ein Aussenstab identifiziert if body_high(i)<Hoch_Aussenstab and body_low(i)>Tief_Aussenstab then ergebnis(i)=1 '' der nächste Stab liegt in den grenzen des Aussenstabes else Hoch_Aussenstab=0 '' Die Merker für den Aussenstab zurücksetzen Tief_Aussenstab=0 end if end if next end if ''script |