Can't help but suspect that the two msgs served only as a setup for "makin' Cooper bloopers" ;)
In case they weren't, Max(-1,-9,range) is --------------------------- output = "tst.lst"; integer i maxI; float MaxRng; MaxRng := 0; for i = -9 to -1 do if high(i) - low(i) > MaxRng then MaxRng := high(i) - low(i); MaxI := i; endif; next i; println symbol, MaxI, MaxRng; ------------------------------ The 9 and test for H-L >= Ref(HHV((H-L),9),-1)is fine, but the above logic will also work. ------------------- output = "tst.lst"; integer i; float MaxRng; MaxRng := 0; for i = -9 to -1 do if high(i) - low(i) > MaxRng then MaxRng := high(i) - low(i); endif; next i; If MaxRng <= high(0) - low(0) then println symbol, MaxRng,",", high(0) - low(0); endif; ----------------------
Where is that Marketing Plan? bjagow@gotnet.net |