Hallo Taxus,
danke für den Sell in May Chart!
Hier noch die Formel (Chart-Modul):
(Im Chart muss zuerst unter Menu Chart als Wertpapier der Dax gewählt werden. Dann muss die Kompression Weekly gewählt werden. Bei dem mit dem Schraubenschlüssel zu öffnenden Dialog muss das Ankreuzfeld "Kurse sichtbar"
deaktiviert werden
Unter dem Reiter "Farben" ist in Linie 23 "Charthintergrund" das Taxus-Blau zu wählen)
{Zuerst Zahlenreihe mit Monats-Nummern erstellen. Diese Z-R wird automatisch mit dem
im Chartmodul gewählten und aktiven Wertpapier synchronisiert. Erhält also gleich viele
Elemente. Ist Wochenchart für das aktive Wertpapier eingestellt, so wird auch diese Kompression automatisch übernommen}
a1:=Month(C); //Gibt Zahlenreihe 1.. 1.. 1 .... 2.. 2.. 2 ..5..5..5... etc 12 12 ..... wieder 1 1 ... u.s.w
{Dann der Farben-Zahlenreihe "Color1" mit der if-Bedingungsfunktion genau dann
eine andere Farbe zuweisen, wenn die Monats-Nummern in der Zahlenreihe a1 5 bzw. 6 sind.
Damit die Mai und Juni Phasen noch besser lesbar werden erstelle ich 2 identische Linien die
ich übereinanderlege. Die an 2ter Stelle gezeichnete Linie verdeckt immer die zuerst
gezeichnete Linie. Die Idee ist: gebe ich der zuerst gezeichneten Linie eine grössere
Breite als der zweiten, so werden die Monate Mai und Juni hervorgehoben, wenn ich
den Rest der ersten Linie in der Taxus-Farbe des Hintergrundes halte.
In der ersten if Bedingung nach "Sonst" setze ich mit dem RGB Befehl die Farbe (127,127,254)
Der von Taxus gewählte Hintergrund hat die RGB Werte (128,128,255)
Eine leichte Verschiebung in den RGB Werten ist nötig. Sind die RGB Werte des Chart
Hintergrundes identisch - ersetzt das Programm die Linienfarbe mit einer anderen Farbe.
In der zweiten if Bedingung für die zweite Line setze ich nach "Sonst" die Farbe, welche die Linie dann haben soll wenn der Monat nicht Mai oder Juni ist. }
Color1:=if(a1=5,Green,
if(a1=6,Yellow,RGB(127,127,254)));
Color2:=if(a1=5,Green,
if(a1=6,Yellow,Blue)); {Hinweis: der Color-Befehl überspielt die Einstellung im Reiter "Ausgabewerte"
Color1 gilt für Ausgabewert 1, Color2 für Ausgabewert 2 etc}
C;
C; //Bei Chart-Formeln genügt Variablenname des auszugebenden Wertes plus ";"
// Result:= wie im Listen-Modul ist nicht nötig
{Im Reiter Ausgabewerte je eine Bezeichnung eingeben
{Im Reiter Erweiterte Einstellungen Kästchen "Basis Fenster" aktivieren und
Nachkomma auf Null einstellen}
{Nach dem Zeichnen der Linie aus der Formel durch Klicken auf "Ok" im Chartart u
Indikatoren auswählen Dialog werden die zwei Linien gezeichnet
Jetzt noch über Schraubenschlüssel die Einstellung für die per Formel gezeichneten
Linie aufrufen und dort unter dem Reiter "Farbe" für Chartlinie 1 die Breite 4 wählen}
MfG DownUp
