Sean: Is this the final version of your Hi Lo scan? (Thsnks for the scan, btw.)
// 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);
|
