function(reg, t, patternBB)
{
#BROADENING BOTTOMS
	i <- 0
	while(i < 38) {
		i1 <<- nextmin(reg, i)
		if(i1 == 0)
			i <- 38
		else {
			E1 <<- reg[i1]
			i2 <<- nextmax(reg, i1)
			if(i2 == 0)
				i <- 38
			else {
				E2 <<- reg[i2]
				i3 <<- nextmin(reg, i2)
				if(i3 == 0)
				  i <- 38
				else {
				  E3 <<- reg[i3]
				  if(E3 < E1) {
				    i4 <<- nextmax(reg, i3)
				    if(i4 == 0)
				      i <- 38
				    else {
				      E4 <<- reg[i4]
				      if(E4 > E2) {
				        i5 <<- nextmin(reg, i4)
				        if(i5 == 0)
				          i <- 38
				        else {
				          E5 <<- reg[i5]
				          if(E5 < E3)
				            patternBB[i5 + t - 1] <- 1
				        }
				      }
				    }
				  }
				}
			}
		}
		if(i < 38)
			i <- i1
	}
	return(patternBB)
}
