MetaStock™ Zone Forum & FAQ Artykuły Linki Elliott Waves EasyLanguage™ Zone

 A B C D E F G H I J K L M N O P R S T U V W Y Z #

Pivots - Intraday by Jose Silva
Plots daily pivot values on intraday charts

Pivots - Intraday by Jose Silva

{ With thanks to Kevin Barry for pivot logic.

The grant of this license is for personal use
only - no resale or repackaging allowed.
All code remains the property of Jose Silva.
http://metastocktools.com }

{ User input }
pds:=Input("Use Highest/Lowest of past x days",1,260,1);

{ Message }

{ Day's start }
dStart:=DayOfMonth()<>Ref(DayOfMonth(),-1) OR Cum(1)=2;

{ Previous x Days' High }
Hd:=HighestSince(pds,dStart,H);
Hd:=ValueWhen(1,dStart,ValueWhen(2,1,Hd));
Hd:=ValueWhen(1,Hd>0,Hd);

{ Previous x Days' Low }
Ld:=LowestSince(pds,dStart,L);
Ld:=ValueWhen(1,dStart,ValueWhen(2,1,Ld));
Ld:=ValueWhen(1,Ld>0,Ld);

{ Previous Day's Close }
Cd:=ValueWhen(1,dStart,ValueWhen(2,1,C));
Cd:=ValueWhen(1,Cd>0,Cd);

{ Pivot }
Pivot:=(Hd+Ld+Cd)/3; {Plot in Green bold}

{ Support }
S1:=2*Pivot-Hd; {Blue}
S2:=Pivot-(Hd-Ld); {Red}
S3:=2*Pivot-(2*Hd-Ld); {dark Green}

{ Resistance }
R1:=2*Pivot-Ld; {Blue}
R2:=Pivot+(Hd-Ld); {Red}
R3:=2*Pivot+(Hd-2*Ld); {dark Green}

{All mid-pivot levels light Grey}
M0:=(S2+S3)/2;
M1:=(S1+S2)/2;
M2:=(Pivot+S1)/2;
M3:=(R1+Pivot)/2;
M4:=(R2+R1)/2;
M5:=(R3+R2)/2;

{ Plot on intraday price charts }
R3;M5;R2;M4;R1;M3;
Pivot;
M2;S1;M1;S2;M0;S3

Source / From: TOP
http://www.metastocktools.com

Equis and MetaStock® and MetaStock Professional® are registered trademarks of Equis International. Achelis Binary Wave®, The DownLoader®,
Expert Advisor®, OptionScope®, Quotecenter® and Smart Charts® are trademarks of Equis International, a Thomson Reuters company.