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