Pham,
no function but its certainly easy to attain in a scan as follows...
There are many ways to code anything. Use your creativity and you'll be surprised what you come up with.....
// Hi Lo by Sean Smith
exchange = nyse, amex, nasdaq;
output = "hilo.lst";
// input="vol250.lst";
// ProcessMS = "f:\invest\metadata\hilo\",VMS;
daystoload = 2200;
daysrequired =1;
Integer numdays,i,maxHi, minLo, minDate, maxDate;
numdays:=((DaysLoaded-1)*-1);
minLo := 99999999;
maxHi := 0;
maxDate := 0;
minDate := 0;
for i=numdays to 0 step 1 do
if close(i) >= maxHi then
maxHi := close(i);
maxDate := i;
endif;
if close(i) <= minLo then
minLo := close(i);
minDate := i;
endif;
next i;
Print Symbol:-5,",","cl:0",",",close(0):6:2,",","Max",",",close(maxDate),",MaxDate,",Date(maxDate);
PrintLn "Min",",",close(MinDate),",MinDate,",Date(MinDate);
Sample Output:
A ,cl:0, 17.62,Max,21.0625,MaxDate,06/19/1998Min,14.9906015,MinDate,07/11/1996
AA ,cl:0, 68.19,Max,88.75,MaxDate,08/07/1997Min,25.9375,MinDate,10/16/1990
AAB ,cl:0, 16.81,Max,21.0625,MaxDate,06/05/1998Min,14.8496237,MinDate,07/11/1996
AABC ,cl:0, 7.25,Max,13,MaxDate,04/03/1998Min,1.83823526,MinDate,01/02/1992
AAC ,cl:0, 5.44,Max,30.375,MaxDate,10/05/1995Min,3.875,MinDate,08/28/1998
AACE ,cl:0, 13.00,Max,19.875,MaxDate,07/09/1998Min,2.77777767,MinDate,05/16/1994
AAF ,cl:0, 6.88,Max,8,MaxDate,09/02/1994Min,5.75,MinDate,03/13/1995
AAG ,cl:0, 23.38,Max,24.125,MaxDate,07/23/1998Min,5.875,MinDate,05/12/1992
AAGIY ,cl:0, 4.12,Max,12,MaxDate,10/21/1994Min,2.93799996,MinDate,11/18/1992
AAGP ,cl:0, 0.88,Max,15.125,MaxDate,05/13/1997Min,0.9375,MinDate,09/08/1998
AAHS ,cl:0, 3.09,Max,13.375,MaxDate,02/22/1996Min,2.8125,MinDate,01/28/1998
AAII ,cl:0, 11.44,Max,26.25,MaxDate,08/14/1997Min,9.75,MinDate,06/08/1998
AAIR ,cl:0, 4.50,Max,33.5,MaxDate,11/27/1995Min,3.875,MinDate,12/23/1997
AALA ,cl:0, 1.50,Max,9,MaxDate,05/26/1993Min,0.75,MinDate,11/11/1996
AAM ,cl:0, 6.88,Max,39.3333321,MaxDate,10/04/1996Min,2.92397666,MinDate,01/02/1992
AAME ,cl:0, 4.31,Max,5,MaxDate,07/31/1998Min,0.938000023,MinDate,01/02/1992
AAN ,cl:0, 18.94,Max,27,MaxDate,04/15/1998Min,18.6875,MinDate,05/21/1997
AANB ,cl:0, 14.16,Max,18,MaxDate,04/24/1998Min,8.75,MinDate,07/23/1996
AAON ,cl:0, 8.38,Max,16.022728,MaxDate,06/07/1994Min,0.967272758,MinDate,07/06/1992
AAP ,cl:0, 9.81,Max,49.5,MaxDate,01/21/1997Min,8.4375,MinDate,09/03/1998
AAPL ,cl:0, 37.00,Max,69.875,MaxDate,02/26/1992Min,12.9375,MinDate,12/23/1997
AAS ,cl:0, 59.06,Max,76.125,MaxDate,07/31/1998Min,20,MinDate,08/10/1995
AASI ,cl:0, 2.94,Max,6.5625,MaxDate,05/20/1998Min,2.5,MinDate,02/24/1997
AASIU ,cl:0, 4.50,Max,9.25,MaxDate,05/20/1998Min,3.5,MinDate,12/02/1997
AASIW ,cl:0, 0.94,Max,2,MaxDate,06/02/1998Min,0.875,MinDate,03/31/1997
AASIZ ,cl:0, 0.50,Max,1,MaxDate,12/10/1996Min,0.75,MinDate,12/11/1996
AAT ,cl:0, 13.38,Max,14.0625,MaxDate,08/11/1998Min,11.875,MinDate,09/16/1994
AATI ,cl:0, 16.25,Max,24,MaxDate,03/16/1998Min,5.83333349,MinDate,01/03/1992
AATT ,cl:0, 14.50,Max,36.09375,MaxDate,04/22/1998Min,6.875,MinDate,06/18/1996
AAV ,cl:0, 1.06,Max,28,MaxDate,12/11/1995Min,0.875,MinDate,04/14/1997
AB ,cl:0, 6.75,Max,10,MaxDate,04/21/1998Min,5.875,MinDate,05/27/1997
ABACF ,cl:0, 0.28,Max,11,MaxDate,02/03/1997Min,0.875,MinDate,05/11/1998
ABAG ,cl:0, 12.75,Max,22,MaxDate,12/23/1994Min,8.75,MinDate,04/30/1997
ABAN ,cl:0, 9.25,Max,13,MaxDate,05/01/1998Min,6.5,MinDate,02/06/1996
ABANP ,cl:0, 9.75,Max,10,MaxDate,09/15/1998Min,9.875,MinDate,08/27/1998
ABAX ,cl:0, 1.66,Max,15,MaxDate,01/28/1992Min,1.875,MinDate,02/17/1998
ABBBY ,cl:0, 88.00,Max,167,MaxDate,05/22/1998Min,50,MinDate,01/02/1992
ABBK ,cl:0, 14.25,Max,22.25,MaxDate,04/06/1998Min,2.0625,MinDate,01/02/1992
ABBKP ,cl:0, 10.00,Max,10,MaxDate,09/22/1998Min,9.9375,MinDate,09/15/1998
ABCB ,cl:0, 12.25,Max,20.375,MaxDate,01/26/1998Min,7.80000019,MinDate,05/19/199
|
