olli
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 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 |
Quellcode |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
'' Dem Olli sein Testindikator Dim i,j Dim zaehlmich Dim Stochastik if scriptberechneformel ( "(stoch(5,3)", stochastik) then for i=101 to alleperioden zaehlmich=0 for j= alleperioden-1 to i-100 step -1 if stochastik(i)=stochastik(j) then zaehlmich=zaehlmich+1 end if next ergebnis(i)=zaehlmich next end if |
olli
unregistriert
olli
unregistriert
olli
unregistriert
dooaaanke lenzelott.
spitze! so funktioniert es.
vorhin klappte es nicht.
witzigerweise berechnet der indi mitunter
einige perioden in die zukunft, obwohl
gar keine daten dasind, oder doch? lol
danke