Perk up gang ;)
Indices leave something to be desired, more on that later, but stock
data is very clean -- only 13 bad apples! -Bob
-----------------
//restrict to 1st bad
output = "BadStks.lst";
issueType common;
integer bar, Start;
DaysToLoad = 2200;
Start :=-1*(DaysLoaded-1);
for bar = 0 to Start step -1 do
if (close(bar) < low(bar) or close(bar) > high(bar) or
// low(bar) > high(bar) is handled above
open(bar) < low(bar) or open(bar) > high(bar) ) then
println Symbol , "," , Date(bar) , "," , Open(bar) , "," ,
High(bar),",",Low(bar),",",Close(bar),",",Vol(bar);
bar:= Start;
endif;
next bar; =>
ADSO ,04/28/1998,3.28125,3.55912495,3.28125,3.59124994,3680
BLOCA ,06/01/1998,44.25,45.25,43.625,45.6875,1900
BOCF ,05/29/1998,13.625,13.25,13.625,13.625,4300
CBTC ,05/28/1998,32.5,33.3125,32.625,33.3125,900
CVTX ,05/28/1998,8.125,9.125,8.5,9.125,15800
HHFC ,06/17/1998,14.5,16.5,14.875,15,38900
HRP ,05/28/1998,18.625,18.5625,18.5,18.5625,7314400
ILCO ,06/17/1998,25.5,25.5,24.875,25.875,7300
MCHP ,06/01/1998,24.625,25.125,23.875,23.0625,578300
MUEL ,05/05/1997,0,36.75,36.75,36.75,200
RBBR ,06/01/1998,3.25,3.15625,3.15625,3.15625,1000
SPCO ,07/19/1996,16.5001659,16.8001671,12.0001202,16.8751678,234930
TGSI ,06/01/1998,4.25,4.0625,3.875,3.875,1900
UDCI ,06/17/1998,18.5,18.75,18.125,18.8125,28300 |
