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.
Dienstag, 4. Juli 2006, 17:39
Hi Udo,
danke für deine Antwort. Ich habe heute auch schon den ganzen Tag erfolglos versucht, das Problem zu lösen, leider.
@ Herrn Knöpfel
Haben Sie eventuell einen Lösungsvorschlag ?
Falls mit aktuellen Inv-Mitteln wirklich keine Lösung möglich ist, könnte alternativ ein entsprechender hardgecodeter Indikator auf die Inv-Erweiterungsliste ?
lG Tim
danke für deine Antwort. Ich habe heute auch schon den ganzen Tag erfolglos versucht, das Problem zu lösen, leider.
@ Herrn Knöpfel
Haben Sie eventuell einen Lösungsvorschlag ?
Falls mit aktuellen Inv-Mitteln wirklich keine Lösung möglich ist, könnte alternativ ein entsprechender hardgecodeter Indikator auf die Inv-Erweiterungsliste ?
lG Tim
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »Tim« (4. Juli 2006, 17:39)
Donnerstag, 29. September 2011, 17:46
Hallo,
die Histogramme sind ja selbst die "kumulierte Häufigkeitsverteilung". Allerdings war mein Hinweis darauf nicht richtig durchdacht bzw. mir fällt da zunächst auch nichts ein, wie man das mit der Histo-Funktionalität umsetzen kann (das Problem ist die Differenzierung der einzelnen Kästchen pro Spalte).
Hier nun ein Vorschlag, wie man die Fragestellung mit einem VBScript umsetzen kann. Das Script zeigt auch ganz gut, wie hilfreich ein "Dictionary"-Objekt in einem VBScript sein kann. Vielleicht hat auch jemand noch Verbesserungsvorschläge dazu oder kann zeigen, dass das so nicht funktioniert:
Viele Grüße
Andreas Knöpfel
die Histogramme sind ja selbst die "kumulierte Häufigkeitsverteilung". Allerdings war mein Hinweis darauf nicht richtig durchdacht bzw. mir fällt da zunächst auch nichts ein, wie man das mit der Histo-Funktionalität umsetzen kann (das Problem ist die Differenzierung der einzelnen Kästchen pro Spalte).
Hier nun ein Vorschlag, wie man die Fragestellung mit einem VBScript umsetzen kann. Das Script zeigt auch ganz gut, wie hilfreich ein "Dictionary"-Objekt in einem VBScript sein kann. Vielleicht hat auch jemand noch Verbesserungsvorschläge dazu oder kann zeigen, dass das so nicht funktioniert:
|
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 46 47 48 49 50 51 52 53 54 55 56 |
VBScript(#>>
option explicit
dim SH, ST, SA
dim Datum
dim Levels
dim i, j,Maximum
dim Kasten, KeyT, AlleKeys
Set Levels = CreateObject("Scripting.Dictionary")
' Das Datum sowie Spalten Hoch, Tief und Kästchenanzahl pro Spalte holen
GetDatum Datum
scriptberechneformel "Spalte(SH)", SH
scriptberechneformel "Spalte(ST)", ST
scriptberechneformel "Spalte(SA)", SA
' Nun für jede Periode die Kästchen zählen
for i=2 to AllePerioden
if SH(i)<>Novalue then
if fix(datum(i))>fix(Datum(i-1)) then
' Beim Tageswechsel, das Maximum auswerten
if Levels.count>0 then
maximum=0
AlleKeys=Levels.Keys ' Alle gezählten Levels untersuchen
for j=0 to ubound(AlleKeys)
if Levels(AlleKeys(j))>maximum then
maximum=Levels(AlleKeys(j))
ergebnis(i)=Mid(AlleKeys(j),2) ' Der Key des Eintrags ist "#" & Kurslevel
end if
next
else
ergebnis(i)= 0 ' Kein Level gefunden
end if
' Nach der Auswertung alle gespeicherten Levels löschen
Levels.removeall
else
' während eines Tages den Vorgänger-Wert verwenden
if ergebnis(i-1)<>NoValue then
ergebnis(i)=ergebnis(i-1)
end if
end if
' Ab hier erfolgt die Kästchen-Zählung pro Periode
' Zunächst die Kästchen-Größe in Punkten ermitteln
if SA(i)>1 then
Kasten=(SH(i)-ST(i))/(SA(i)-1)
else
Kasten=SH(i)-ST(i)
end if
for j = 1 to SA(i)
' Der Key des Eintrags ist das Kästchen-Kurslevel (davor ein #)
KeyT="#" & ST(i)+(j-1)*Kasten-Kasten/2
' Nun einfach für jedes Level eine 1 addieren, um das Kästchen zu zählen
' Bei Dictionary wird ein Element automatisch angelegt, wenn es noch
' nicht existiert
Levels(KeyT)=Levels(KeyT)+1
next
end if
next <<#)
|
Viele Grüße
Andreas Knöpfel
Freitag, 30. September 2011, 09:01
Hallo Herr Knöpfel,
vielen Dank für Ihren Code.
Meiner Ansicht nach zeigt der Indikator in der Grafik unten nicht richtig an?
Erwartet hätte ich die Preisniveau-Anzeige für den 27.09.11 auf Höhe von 136,50 (13 Boxen).
Ich denke, dass die Fragestellung perspektivisch bestimmt am besten mit Hilfe von Markt Plus lösbar sein könnte.
Bei Verwendung eines Indikators würde ich ein Problem darin sehen, geeignete Preisniveaus zu ermitteln, wenn waagerecht mehrmals an verschiedenen Niveaus die gleiche Boxenzahl auftritt?
mfG Tim
vielen Dank für Ihren Code.
Meiner Ansicht nach zeigt der Indikator in der Grafik unten nicht richtig an?
Erwartet hätte ich die Preisniveau-Anzeige für den 27.09.11 auf Höhe von 136,50 (13 Boxen).
Ich denke, dass die Fragestellung perspektivisch bestimmt am besten mit Hilfe von Markt Plus lösbar sein könnte.
Bei Verwendung eines Indikators würde ich ein Problem darin sehen, geeignete Preisniveaus zu ermitteln, wenn waagerecht mehrmals an verschiedenen Niveaus die gleiche Boxenzahl auftritt?
mfG Tim
Freitag, 30. September 2011, 11:42
Hallo,
die Zählung bei Spalten mit eine Kästchen war noch nicht korrekt. Unten ein entsprechend modifizierter Code (nun auch mit Rundung auf die Minimale Preisänderung des Titels).
Dieses Problem stellt sich bei Verwendung von Histogrammen aber genauso. In einem VBScript-Code kann man sogar eher noch flexibel damit umgehen. Die Frage ist nur, wie?
Viele Grüße
Andreas Knöpfel
die Zählung bei Spalten mit eine Kästchen war noch nicht korrekt. Unten ein entsprechend modifizierter Code (nun auch mit Rundung auf die Minimale Preisänderung des Titels).
Zitat
Bei Verwendung eines Indikators würde ich ein Problem darin sehen, geeignete Preisniveaus zu ermitteln, wenn waagerecht mehrmals an verschiedenen Niveaus die gleiche Boxenzahl auftritt?
Dieses Problem stellt sich bei Verwendung von Histogrammen aber genauso. In einem VBScript-Code kann man sogar eher noch flexibel damit umgehen. Die Frage ist nur, wie?
Viele Grüße
Andreas Knöpfel
|
|
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 46 47 48 49 50 51 52 53 54 55 56 57 |
VBScript(#>>
option explicit
dim SH, ST, SA
dim Datum
dim Levels
dim i, j,Maximum
dim Kasten, KeyT, AlleKeys
dim TickSize
Set Levels = CreateObject("Scripting.Dictionary")
' Das Datum sowie Spalten Hoch, Tief und Kästchenanzahl pro Spalte holen
GetDatum Datum
scriptberechneformel "Spalte(SH)", SH
scriptberechneformel "Spalte(ST)", ST
scriptberechneformel "Spalte(SA)", SA
scriptberechneformel "#_MinPriceChange#", TickSize
' Nun für jede Periode die Kästchen zählen
for i=2 to AllePerioden
if SH(i)<>Novalue then
if fix(datum(i))>fix(Datum(i-1)) then
' Beim Tageswechsel, das Maximum auswerten
if Levels.count>0 then
maximum=0
AlleKeys=Levels.Keys ' Alle gezählten Levels untersuchen
for j=0 to ubound(AlleKeys)
if Levels(AlleKeys(j))>maximum then
maximum=Levels(AlleKeys(j))
' Der Key des Eintrags ist "#" & Kurslevel
ergebnis(i)=Mid(AlleKeys(j),2) - Kasten/2
end if
next
else
ergebnis(i)= 0 ' Kein Level gefunden
end if
' Nach der Auswertung alle gespeicherten Levels löschen
Levels.removeall
Kasten=0
else
' während eines Tages den Vorgänger-Wert verwenden
if ergebnis(i-1)<>NoValue then
ergebnis(i)=ergebnis(i-1)
end if
end if
' Ab hier erfolgt die Kästchen-Zählung pro Periode
' Zunächst die Kästchen-Größe in Punkten ermitteln
if SA(i)>1 then
Kasten=clng((SH(i)-ST(i))/TickSize(i))*TickSize(i)/(SA(i)-1)
end if
for j = 1 to SA(i)
' Der Key des Eintrags ist das Kästchen-Kurslevel (davor ein #)
KeyT="#" & ST(i)+(j-1)*Kasten
' Nun einfach für jedes Level eine 1 addieren, um das Kästchen zu zählen
' Bei Dictionary wird ein Element automatisch angelegt, wenn es noch
' nicht existiert
Levels(KeyT)=Levels(KeyT)+1
next
end if
next <<#)
|
Freitag, 30. September 2011, 12:49
Hallo Herr Knöpfel,
vielen Dank für den erweiterten Code.
Stimmt, das Problem besteht bei den Historgrammen auch.
Mein Ziel ist, auf Basis der Wertebereiche mit den meisten waagerechten Boxen Support- und Resistance-Zonen für den folgenden Handelstag zu definieren.
Insofern wäre eigentlich weniger das Preisniveau mit der maximalen Boxenzahl von Intersse, sondern eher die obere/untere Begrenzung der Handelsbereiche mit vielen waagerechten Boxen (z.B. Grafik 1- Resistance Level 136,60 - > Enter Long bei Buy Pattern über diesem Level, Support-Level z.B. bei 135,70 -> Enter Short bei Sell-Pattern unter diesem Level).
Für die Problematik meines Eingangspostings ist VBS zweifellos flexibler.
Ich habe leider mein Eingangsposting seinerzeit zu ungenau formuliert.
mfG Tim
vielen Dank für den erweiterten Code.
Dieses Problem stellt sich bei Verwendung von Histogrammen aber genauso. In einem VBScript-Code kann man sogar eher noch flexibel damit umgehen. Die Frage ist nur, wie?
Stimmt, das Problem besteht bei den Historgrammen auch.
Mein Ziel ist, auf Basis der Wertebereiche mit den meisten waagerechten Boxen Support- und Resistance-Zonen für den folgenden Handelstag zu definieren.
Insofern wäre eigentlich weniger das Preisniveau mit der maximalen Boxenzahl von Intersse, sondern eher die obere/untere Begrenzung der Handelsbereiche mit vielen waagerechten Boxen (z.B. Grafik 1- Resistance Level 136,60 - > Enter Long bei Buy Pattern über diesem Level, Support-Level z.B. bei 135,70 -> Enter Short bei Sell-Pattern unter diesem Level).
Für die Problematik meines Eingangspostings ist VBS zweifellos flexibler.
Ich habe leider mein Eingangsposting seinerzeit zu ungenau formuliert.
mfG Tim
