Vestics Beleggers Netwerk

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

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

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

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

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