Dunnigan Bars

////////////////////////////////////////////////////////////
//  Copyright by HPotter v1.0 20/08/2014
// This displays "Dunnigan Bars," which is defined as:
// Higher High and High Low = Green Color
// Lower High and Lower Low = Red Color
// Inside Bar = Black Color
// Outside Bar = Yellow Color
////////////////////////////////////////////////////////////
study(title = "Dunnigan Bars", overlay = true)
colr =	iff(high > high[1] and low > low[1], green,
	        iff(high < high[1] and low < low[1], red, 
	            iff(high < high[1] and low > low[1], black,
	                iff(high > high[1] and low < low[1], yellow, na))))
barcolor(colr)