Gap Upside Automatic finding script

////////////////////////////////////////////////////////////
//  Copyright by HPotter v1.0 20/10/2014
//    This is a Upside gap pattern. 
////////////////////////////////////////////////////////////
study(title = "Upside gap", overlay = true)
upper = highest(10)[1]
barcolor(low >  high[1] and close[1] > open[1] and close > open? yellow :na)