Pivot-Berechnung und Darstellung

weiß jemand den Easy-Language-Code, mit welchem man Pivots mit Supports und Resits für den Folgetag berechnet und im Chart markiert ?

Danke im Voraus !!

RE: Pivot-Berechnung und Darstellung

laut Kaufmann, Seite 383, Trading Systems and Methods

Pivot = (h+l+c)/3;
Resistance1 R1 = 2 * P - L;
Support 1 S1 = 2 * p - H;
Resistance2 R2 = (P-S1) + R1;
Support2 S2 = P - (R1 - S1);

cheers,
JD

RE: Pivot-Berechnung und Darstellung

nochdem ich die Frage nochmal gelesen habe, hier ist ein Versuch:

Data1 ist Intra-day, Data2 ist EOD.

cheers,
JD
Indikator:

Vars(0),S1(0),S2(0),R1(0),R2(0),S1a(-1),S2a(-1),R1a(-1),R2a(-10);

P= (high of data2 + low of data2 + close of data2)/3;
R1 = 2 * P - low of data2;
S1 = 2 * P - high of data2;
R2 = (P - S1) + R1;
S2 = P - (R1 - S1);


if lastbaronchart of data2 then begin
S1a = TL_New(Date,1000,S1,Date,1700,S1);
S2a = TL_New(Date,1000,S2,Date,1800,S2);
R1a = TL_New(Date,1000,R1,Date,1700,R1);
R2a = TL_New(Date,1000,R2,Date,1800,R2);
TL_SetColor(S1a,green);
TL_SetColor(S2a,yellow);
TL_SetColor(R1a,red);
TL_SetColor(R2a,cyan);
end;


commentary("P = ",P,newline,"S1 = ",S1,newline,"R1 = ",R1,newline,"S2 = ",S2,newline,"R2 = ",R2);

ich habe End-of-day Daten.......

und habe entsprechende Änderungen vorgenommen. Ich hätte gern nur noch den Code, wie ich die Marken per Plotanweisung für den morgigen Tag auf den chart bringen kann.

Plot1(P,"Pivot") markiert den heutigen Balken. Ich hätte die Marke aber gern einen Tag vorgerückt.

Danke für Deine Hilfe

RE: ich habe End-of-day Daten.......

mir scheint, daß das ausgeklammerte Teil notwendig sein müßte, um alte Trendlinien zu löschen. Leider funktioniert es so nicht. Mit den Klammern funktioniert das Code.
JD

als Indikator:

Vars(0),S1(0),S2(0),R1(0),R2(0),S1a(-1),S2a(-1),R1a(-1),R2a(-1),S1ab(-1),S2ab(-1),R1ab(-1),R2ab(-1);

P= (high + low + close)/3;
R1 = 2 * P - low;
S1 = 2 * P - high;
R2 = (P - S1) + R1;
S2 = P - (R1 - S1);


if lastbaronchart then begin
{If S1ab >= -1 then begin
S1ab = TL_SetExtRight(S1a, false);
S1ab = TL_SetExtRight(S2a, false);
R1ab = TL_SetExtRight(R1a, false);
R2ab = TL_SetExtRight(R2a, false);
TL_Delete(S1a);
TL_Delete(S2a);
TL_Delete(R1a);
TL_Delete(R2a);

end;}


S1a = TL_New(Date[1],1000,S1,Date,1700,S1);
S2a = TL_New(Date[1],1000,S2,Date,1800,S2);
R1a = TL_New(Date[1],1000,R1,Date,1700,R1);
R2a = TL_New(Date[1],1000,R2,Date,1800,R2);
S1ab = TL_SetExtRight(S1a,true);
S2ab = TL_SetExtRight(S2a,true);
R1ab = TL_SetExtRight(R1a,true);
R2ab = TL_SetExtRight(R2a,true);

TL_SetColor(S1a,green);
TL_SetColor(S2a,yellow);
TL_SetColor(R1a,red);
TL_SetColor(R2a,cyan);
end;


commentary("P = ",P,newline,"S1 = ",S1,newline,"R1 = ",R1,newline,"S2 = ",S2,newline,"R2 = ",R2,newline,"S1a = ",S1a);

Erst einmal vielen Dank........

vielleicht kannst Du nochmal nachprüfen. Es wird alles angezeigt nur das Pivot nicht. S1,S2, R1 und R2 sind o.k.

Wo lernt man so etwas. Gibt es Literatur dafür ?

RE: Erst einmal vielen Dank........

nur noch ein Paar Zeilen.

ich benutze Omega EL Reference Guide, zu haben von Jo Haas für circa DM 25-. An sonsten studiere ich Code von anderen Leuten, dann modifizieren usw.
JD
Vars(0),S1(0),S2(0),R1(0),R2(0),S1a(-1),S2a(-1),R1a(-1),R2a(-1),S1ab(-1),S2ab(-1),R1ab(-1),R2ab(-1),Pa(-1),Pab(-1);

P= (high + low + close)/3;
R1 = 2 * P - low;
S1 = 2 * P - high;
R2 = (P - S1) + R1;
S2 = P - (R1 - S1);


if lastbaronchart then begin
{If S1ab >= -1 then begin
S1ab = TL_SetExtRight(S1a, false);
S1ab = TL_SetExtRight(S2a, false);
R1ab = TL_SetExtRight(R1a, false);
R2ab = TL_SetExtRight(R2a, false);
TL_Delete(S1a);
TL_Delete(S2a);
TL_Delete(R1a);
TL_Delete(R2a);

end;}


S1a = TL_New(Date[1],1000,S1,Date,1700,S1);
S2a = TL_New(Date[1],1000,S2,Date,1800,S2);
R1a = TL_New(Date[1],1000,R1,Date,1700,R1);
R2a = TL_New(Date[1],1000,R2,Date,1800,R2);
Pa = TL_New(Date[1],1000,P,Date,1800,P);
S1ab = TL_SetExtRight(S1a,true);
S2ab = TL_SetExtRight(S2a,true);
R1ab = TL_SetExtRight(R1a,true);
R2ab = TL_SetExtRight(R2a,true);
Pab = TL_SetExtRight(Pa,true);

TL_SetColor(S1a,green);
TL_SetColor(S2a,yellow);
TL_SetColor(R1a,red);
TL_SetColor(R2a,cyan);
TL_SetColor(PPab,blue);
end;


commentary("P = ",P,newline,"S1 = ",S1,newline,"R1 = ",R1,newline,"S2 = ",S2,newline,"R2 = ",R2,newline,"S1a = ",S1a);

hoffentlich nerve ich Dich nicht....

wie würde ein EL Code aussehen zur Erstellung eines Pivotchannels ?

Darstellung so ähnlich wie die Bollinger Bands nur eben mit P, R1,r2, s1 und S2

Korrektur........

es gibt ein Typ-Fehler in der drittletzten Zeile
das sollte
TL_SetColor(Pa,blue);
sein, nicht PPab.

JD

RE: Korrektur........

hab`s entdeckt und korrigiert. Klappt alles gut. Vielen Dank !

vielleicht darf ich Jim Douglas unterstützen...

...

Hallo josl!

Mit einem Indikator ist es Dir nur möglich bis zu vier Plots gleichzeitig aufzubauen, so daß Du auf die Darstellung der Werte für P verzichten mußt.

In Jim Douglas Programmzeilen mußt Du also nur die entsprechendne Plot-Anweisungen einfügen und den Indikator auf den Subgraph 0 bei gleicher Skalierung darstellen lassen.

Plot1(R1[1],"R1",cyan);

usw....


Der Block aus vier Programmzeilen ist vor oder nach dem if-Block LastBarOnChart, auf jeden Fall nach der Berechnung der Werte für P, S1, S2, R2, R1, einzufügen.

Gruß
Uwe

RE: Pivot-Berechnung und Darstellung

Hallo,

wie wäre es mit folgendem Indikator für Intraday-Daten:

-----------------------------
Input: DaysBack(1);
Variables: Pivot(0), FirstSupp(0), SecondSupp(0), FirstRes(0), SecondRes(0);

Pivot = (HighD(DaysBack)+LowD(DaysBack)+CloseD(DaysBack))/3;;

SecondRes = Pivot + HighD(DaysBack) - LowD(Daysback);
FirstRes = (2 * Pivot) - LowD(DaysBack);
FirstSupp = (2 * Pivot) - HighD(DaysBack);
SecondSupp = Pivot - HighD(DaysBack) + LowD(DaysBack);

Plot1(FirstSupp, "Supp1");
Plot2(FirstRes, "Res1");
Plot3(SecondSupp, "Supp2");
Plot4(SecondRes, "Res2");
-----------------------------

Je nach Formatierung des Indikators im "Style" Reiter ("Line" oder "Right Tic") ergeben sich Bänder bzw. Level-Linien...

MfG

-Klaus