Rank: Advanced Member
Groups: Registered, Registered Users Joined: 1/19/2005(UTC) Posts: 1,065 Location: Koh Pha-Ngan, Earth
Was thanked: 2 time(s) in 2 post(s)
|
This MS indicator plots the High & Low signals for each year, and their corresponding dates in ddmmyy format.
[code:1:f63dd155bd] MetaStock -> Tools -> Indicator Builder -> New -> Copy and paste complete formula between "---8<---" lines.
================== Year's Hi/Lo dates ================== ---8<-----------------------------
{ Year's High & Low dd/mm/yy dates v1.0
©Copyright 2005 Jose Silva. The grant of this license is for personal use only - no resale or repackaging allowed. All code remains the property of Jose Silva. http://www.metastocktools.com }
{ User input } plot:=Input("plot: [1]Hi/Lo signals, [2]dd/mm/yy dates",1,2,1);
{ Start of year } init:=Cum(1)=2; nuYear:=Year()<>Ref(Year(),-1) OR init;
{ High signals of year } YearHi:=H=HighestSince(1,nuYear,H);
{ Last High of current year signal } event:=YearHi;
{ dd/mm/yy of last High of year's signal } y:=ValueWhen(1,event,Year()); y:=If(y<2000,y-1900,y-2000); m:=ValueWhen(1,event,Month())*100; d:=ValueWhen(1,event,DayOfMonth())*10000; dateHi:=y+m+d;
{ Low signals of year } YearLo:=L=LowestSince(1,nuYear,L);
{ Last Low of current year signal } event:=YearLo;
{ dd/mm/yy of last Low of year's signal } y:=ValueWhen(1,event,Year()); y:=If(y<2000,y-1900,y-2000); m:=ValueWhen(1,event,Month())*100; d:=ValueWhen(1,event,DayOfMonth())*10000; dateLo:=y+m+d;
{ Plot in own window } If(plot=1,YearHi,dateHi); If(plot=1,-YearLo,-dateLo)
---8<-----------------------------
[/code:1:f63dd155bd]
jose '-)
|