Pivot intraday su tradestation

giurabu

Utente Registrato
Registrato
23/4/01
Messaggi
1.675
Punti reazioni
81
Qualcuno potrebbe indicarmi o postarmi un indicatore per tradestation che tracci le linee dei pivot intraday con gli stessi valori calcolati dal realtick.Grazie.
 
Scritto da giurabu
Qualcuno potrebbe indicarmi o postarmi un indicatore per tradestation che tracci le linee dei pivot intraday con gli stessi valori calcolati dal realtick.Grazie.

Apri un nuovo "Show Me" ed incollaci il codice che segue:
(Settalo a punti,, non a linee pero', altrimenti non ti funziona).
------------------------------------------------------------------------

Var: Hi(0),
Lo(99999),
YHi(0),
YLo(99999),
YCl(0),
Pivot(0),
R1(0),
S1(0),
R2(0),
S2(0),
Off(1),
Ctr(0);

IF BarNumber = 1 THEN BEGIN
YHi = H;
YLo = L;
YCl = C;
END ELSE IF Date[1] < Date THEN BEGIN
YHi = Hi;
YLo = Lo;
YCl = C[1];
Hi = H;
Lo = L;
Off = 0;
Ctr = 0;
END ELSE BEGIN
IF H > Hi THEN Hi = H;
IF L < Lo THEN Lo = L;
Off = Off[1];
Ctr = Ctr[1] + 1;
END;

{ Formula per "Supporti e Resistenze" }

Pivot = (YHi + YLo + YCl) / 3;
R1 = (2 * Pivot) - YLo;
S1 = (2 * Pivot) - YHi;
R2 = (Pivot - S1) + R1;
S2 = Pivot - (R1 - S1);


IF Off = 0 THEN BEGIN
IF Mod(Ctr,2) = 0 THEN Plot1(R1,"R") ELSE IF Mod(Ctr,2) = 1 THEN Plot1(R2,"R");
IF Mod(Ctr,2) = 0 THEN Plot2(S1,"S") ELSE IF Mod(Ctr,2) = 1 THEN Plot2(S2,"S");
Plot3(Pivot,"Pivot");
END;

{ Nota: Plot1 & Plot2 devono essere plottati come "Punti" non come "Linee"}



Var: IDR2(-1),
IDR1(-1),
IDPiv(-1),
IDS1(-1),
IDS2(-1);

IF LastBarOnChart THEN BEGIN
IDR2 = Text_New(D,T+3*BarInterval,R2,NumToStr(R2,2));
Text_SetColor(IDR2,3);
IDR1 = Text_New(D,T+3*BarInterval,R1,NumToStr(R1,2));
Text_SetColor(IDR1,3);
IDPiv = Text_New(D,T+3*BarInterval,Pivot,NumToStr(Pivot,2));
Text_SetColor(IDPiv,8);
IDS1 = Text_New(D,T+3*BarInterval,S1,NumToStr(S1,2));
Text_SetColor(IDS1,5);
IDS2 = Text_New(D,T+3*BarInterval,S2,NumToStr(S2,2));
Text_SetColor(IDS2,5);
END;


{ Nota: Non checkkare "Update Every Tick." }


{ Ultima Modifica 15/10/2003 }
--------------------------------------
 
Questo show me ha solo un problema: parte plottando anche i valori dei PP che si ripetono ad ogni barra e si accavallano.
Se pero' ad un certo punto chiudi Tradestation e lo fai ripartire, da quel momento vedrrai tutto ben plottato.
 
Scritto da giurabu
Qualcuno potrebbe indicarmi o postarmi un indicatore per tradestation che tracci le linee dei pivot intraday con gli stessi valori calcolati dal realtick.Grazie. [/QUOTE

Ciao Giurabu,
vedi se ti può andare bene questo, salvalo come indicator.

Pivot Classic

vars:Pivot(-1),R1(0),S1(0),R2(0),S2(0),
PosHigh(0),PosLow(0);


if Date > Date[1] then begin
Pivot = (HighD(1) + LowD(1) + CloseD(1)) / 3;
R1 = (2*Pivot) - LowD(1);
S1 = (2*Pivot) - HighD(1);
R2 = Pivot + (R1 - S1);
S2 = Pivot - (R1 - S1);
end;

if currentdate = date then begin
PosHigh = High;
If High > PosHigh Then
PosHigh = High;
end;

if currentdate = date then begin
PosLow = Low;
If Low < PosLow Then
PosLow = Low;
end;


if currentdate = date then begin
plot1(R1, "R1" );
plot2(S1, "S1" );
plot3(R2, "R2" );
plot4(S2, "S2" );
end;

Questo indicatore elimina le linee che non sono di oggi e quindi hai il grafico pulito. Un problema che ha Tradestation (penso che te ne sarai accorto),non può disegnare più di 4 plot e quindi per mettere i Pivot e R3 S3 devi fare una copia con un altro nome e li plotti tutti e due sullo stesso grafico.

Pivot Classic1
vars:Pivot(-1),R1(0),S1(0),R2(0),S2(0),R3(0),S3(0);


if Date > Date[1] then begin
Pivot = (HighD(1) + LowD(1) + CloseD(1)) / 3;
R1 = (2*Pivot) - LowD(1);
S1 = (2*Pivot) - HighD(1);
R2 = Pivot + (R1 - S1);
S2 = Pivot - (R1 - S1);
R3 = Pivot + (R2 - S2);
S3 = Pivot - (R2 - S2);
end;
if currentdate = date then begin
plot1(Pivot,"Pivot");

plot2(R3, "R3" );
plot3(S3, "S3" );
{ plot1(S2, "S2" );
plot4(R2, "R2" );}

end;

un altra cosa che dimenticavo è che in Powereditor vai col tasto dex in proprietà e devi settare in "scaling" same as symbol altrimenti non combaciono le scale.
Saluti delli. :)
 
Indietro