TC2000 Version:

C > 5 AND 
C < AVGC50 AND
C1 > AVGC50.1 AND
C5 < AVGC50.5 AND
(C * 0.85 > AVGC200) OR
(AVGC200 > C) 


-------------------------------------------------------------------------------

TOS Version:

# Blue Ice Failure Scan
# Written by Ed Carter based on Dave Elliot's description
#
# This version also requires that there is still 15% down to the 200sma
# or that the current price is already below the 200sma.
#
#
def C = close;
def AVGC50 = Average(close, 50);
def AVGC200 = Average(close, 200);
#
plot BlueIce = (
C > 5 AND 
C < AVGC50 AND
C[1] > AVGC50[1] AND
C[5] < AVGC50[5] AND
((C * 0.85 > AVGC200) OR (AVGC200 > C))
);