INTRADAY PIVOTS

Vragen en suggesties over handelssystemen en indicatoren

Moderator: Perry

Vind je deze indicator nuttig ?

Ja
2
50%
kweetni
0
Geen stemmen
nee
2
50%
 
Totaal aantal stemmen : 4

INTRADAY PIVOTS

Berichtdoor predictor stick » za 06 aug 2005, 1:06

Afbeelding

in bovenstaande grafiek zien we een intraday chart die aan de hand van de vorige dag ( Open, High, Low, Close ) pivotpoints berekent ?n automatisch toevoegd in de intraday chart.

dat is net wat handiger dan het manueel toevoegen van de horizontale lijnen :lol:

is er iemand die deze EL-code werkend krijgt in vesticode?


hier alvast de code :

=====================================
{
midPoint_Pivots

Floor Pivots including all the Mid-Points
written by
deMicron (Oct. 09, 2003)

{R3,R2R3,R2,R1R2,R1,PPR1,PP,R1S1,PPS1,S1,S1S2,S2,S2S3,S3}

}

{
PivotType = 1 [PP = (YesterdaysHigh + YesterdaysLow + YesterdaysOpen) / 3]
PivotType = 2 [PP = (YesterdaysHigh + YesterdaysLow + (TodaysOpen x 2)) / 4]
R1 = (PP x 2) - YesterdaysLow
S1 = (PP x 2) - YesterdaysHigh
R2 = PP + R1 - S1
S2 = PP - R1 + S1
R3 = PP + R2 - S2
S3 = PP - R2 + S2
}



Inputs:
PivotType(1), {PivotsType:1, Standard, PivotType: 2: Woodies}
PivotLinecolor(DarkBlue),
PivotStyle(Tool_Dotted),
PivotTextColor(Blue);

Variables:
PP(0),
R1(0), R2(0), R3(0), R1R2(0), R2R3(0),
S1(0), S2(0), S3(0), S1S2(0), S2S3(0),
PPR1(0), PPS1(0), R1S1(0),
CTIME(0), maxpts(14); {14 levels of Pivots}

Variables: count(0);

Arrays: PivotLevel[14](0),
LineID[14](0),
TEXTID[14](0),
TextSTR[14]("");

CTIME = SessionEndTime(1,3);

If ((Date <> Date[1])) then
{and (BarType < 2)) then}
Begin

If (PivotType = 2) then
PP = (CloseD(1) + LowD(1) + 2*LowD(1)) / 4
else
PP = (HighD(1) + LowD(1) + CloseD(1)) / 3;

R1 = 2*PP - LowD(1);
S1 = 2*PP - HighD(1);

R2 = PP - S1 + R1;
S2 = PP - R1 + S1;

R3 = PP - S2 + R2;
S3 = PP - R2 + S2;

{Mid Points}

PPR1 = (PP+R1)/2;
R1R2 = (R1+R2)/2;
R2R3 = (R2+R3)/2;

PPS1 = (PP+S1)/2;
S1S2 = (S1+S2)/2;
S2S3 = (S2+S3)/2;

R1S1 = (R1+S1)/2;

PivotLevel[1] = R3;
PivotLevel[2] = R2R3;
PivotLevel[3] = R2;
PivotLevel[4] = R1R2;
PivotLevel[5] = R1;
PivotLevel[6] = PPR1;
PivotLevel[7] = PP;
PivotLevel[8] = R1S1;
PivotLevel[9] = PPS1;
PivotLevel[10] = S1;
PivotLevel[11] = S1S2;
PivotLevel[12] = S2;
PivotLevel[13] = S2S3;
PivotLevel[14] = S3;

TEXTSTR[1] = "R3";
TEXTSTR[2] = "R2R3";
TEXTSTR[3] = "R2";
TEXTSTR[4] = "R1R2";
TEXTSTR[5] = "R1";
TEXTSTR[6] = "PPR1";
TEXTSTR[7] = "PP";
TEXTSTR[8]= "R1S1";
TEXTSTR[9] = "PPS1";
TEXTSTR[10] = "S1";
TEXTSTR[11] = "S1S2";
TEXTSTR[12] = "S2";
TEXTSTR[13] = "S2S3";
TEXTSTR[14] = "S3";



For Count = 1 to maxpts
Begin
LineID[Count] = TL_New( Date, Time, PivotLevel[count], Date, CTime, PivotLevel[count]);
if (count = 7) then {ACTUAL PIVOT}
begin
TL_SetColor(LineID[Count], RED);
TL_SetStyle(LineID[Count], TOOL_DASHED);
end

else
begin
TL_SetColor(LineID[Count], PivotLineColor );
TL_SetStyle(LineID[Count], PivotStyle);
end;


IF DATE = CURRENTDATE THEN
TL_SetExtRight(LineID[Count], true );

{ TextID[Count] = Text_New(Date, CurrentTime, PivotLevel[Count],TEXTSTR[count]+ ":"+"("+NumToStr(PivotLevel[Count], 2 )+")");}
TextID[Count] = Text_New(Date, Time, PivotLevel[Count],TEXTSTR[count]+ ":"+ NumToStr(PivotLevel[Count],2));
Text_SetStyle(TextID[Count], 1, 1 );
Text_SetColor(TextID[Count], PivotTextColor );
End;

End;



Bedankt

Predictor Stick
predictor stick
 
Berichten: 13
Geregistreerd op: za 16 apr 2005, 14:20
Woonplaats: Noord-Brabant

Berichtdoor mvs » zo 18 dec 2005, 18:45

Hallo,

Ik hoop dat je hier wat aan hebt.

De Plots stel ik in als Candlestick Aut.dik.
Echter het loopt 1 dag achter. Dus misschien dat iemand daar wat aan kan doen?
Als je in je intraday grafiek dit doet, dan krijg je de dagelijkse pivotpoints.

Links boven in Intraday grafiek
Grafiek -> Invoegen -> Data
Dan bij fonds bv AEX en dan de interval op 1 Dag.

Pivotpoints indicator instellen op Geavanceerd Data 2: AEX 1Day

Suc6 en als iemand hem nog kan aanpassen betreft het 1 dag eerder plotten van de streepjes....

Mvg

Martin

Ps. 'k heb hem net gemaakt, mogelijk dat maandag als de handel begint de pivots als er al staan bij 17.30u

Zie ook : http://www.beursbrief.be/technische_ana ... points.asp
mvs
 
Berichten: 64
Geregistreerd op: zo 08 jun 2003, 14:05
Woonplaats: Bergambacht z-h

Berichtdoor predictor stick » do 21 feb 2008, 23:54

Met deze code lukt het om de Pivotlijnen toe te voegen aan een intradag grafiek.

Code: Selecteer alles

Vars:
RefHi(0),
RefLo(0),
DayC(0),
DayH(0),
DayL(0),
DPivot(0),
DPivotR1(0),
DPivotR2(0),
DPivotS1(0),
DPivotS2(0);

{ new day detected}
if Date<>Date[1] then begin
DayC = C[1] ;
DayH = RefHi ;
DayL = RefLo ;
RefHi = H ;
RefLo = L ;
DPivot = (DayC + DayH + DayL) / 3 ;
DPivotR1 = (DPivot*2)-DayL ;
DPivotS1 = (Dpivot*2)-DayH ;
DPivotR2 = Dpivot+(DayH-DayL) ;
DPivotS2 = Dpivot-(DayH-DayL) ;
End ;

{ update daily high / low}
If H > RefHi then RefHi = H ;
If L < RefLo then RefLo = L ;

If DPivot > 0 and currentbar > 50 then
Plot1(DPivot, "Pivot") ;
If DPivotR1 > 0 and currentbar > 50 then
Plot2(DPivotR1, "R1") ;
If DPivotR2 > 0 and currentbar > 50 then
Plot3(DPivotR2, "R2") ;
If DPivotS1 > 0 and currentbar > 50 then
Plot4(DPivotS1, "S1") ;
If DPivotS2 > 0 and currentbar > 50 then
Plot5(DPivotS2, "S2") ;



veel plezier :lol:
predictor stick
 
Berichten: 13
Geregistreerd op: za 16 apr 2005, 14:20
Woonplaats: Noord-Brabant

Berichtdoor predictor stick » vr 22 feb 2008, 0:57

En je kan ook naar uur-pivots kijken met deze code

Code: Selecteer alles

Vars:
Mo(0),
RefHi(0),
RefLo(0),
HourC(0),
HourH(0),
HourL(0),
Hour_Pivot(0),
HPivotR1(0),
HPivotR2(0),
HPivotS1(0),
HPivotS2(0);

{ uses Mod function to detect new hour  }
Mo = Mod(time, 100) ;

{ new hour detected}
If Mo < Mo[1] then begin

HourC = C[1] ;
HourH = RefHi ;
HourL = RefLo ;
RefHi = H ;
RefLo = L ;
Hour_Pivot = (HourC + HourH + HourL) / 3 ;
HPivotR1 = (Hour_Pivot*2)-HourL ;
HPivotS1 = (Hour_Pivot*2)-HourH;
HPivotR2 = Hour_Pivot+(HourH-HourL) ;
HPivotS2 = Hour_Pivot-(HourH-HourL) ;
End ;

{ update daily high / low}
If H > RefHi then RefHi = H ;
If L < RefLo then RefLo = L ;

If Hour_Pivot > 0 and currentbar > 150 then
Plot1(Hour_Pivot, "Pivot") ;
If HPivotR1 > 0 and currentbar > 150 then
Plot2(HPivotR1, "R1") ;
If HPivotR2 > 0 and currentbar > 150 then
Plot3(HPivotR2, "R2") ;
If HPivotS1 > 0 and currentbar > 150 then
Plot4(HPivotS1, "S1") ;
If HPivotS2 > 0 and currentbar > 150 then
Plot5(HPivotS2, "S2") ;




maar deze heeft een beperkt publiek :wink:
predictor stick
 
Berichten: 13
Geregistreerd op: za 16 apr 2005, 14:20
Woonplaats: Noord-Brabant


Keer terug naar Handelssystemen + Indicatoren

Wie is er online

Gebruikers op dit forum: Geen geregistreerde gebruikers en 1 gast

cron