DEFPARAM CalculateOnLastBars = 1000
//Periods     = 20                                          //20
//AvgType     = 1                                           //1 = ema
//AbsFlag     = 0                                           //1=Use ABS()     0=No ABS()
Periods       = max(2,min(999,Periods))                     //2 - 999
AvgType       = max(0,min(6,AvgType))                       //0 - 6
AbsFlag       = max(0,min(1,AbsFlag))                       //0 - 1
BuyerForce    = low - close
IF AbsFlag THEN
   BuyerForce = abs(BuyerForce)
ENDIF
AvgBuy        = Average[Periods,AvgType](BuyerForce)
SellerForce   = high - close
AvgSell       = Average[Periods,AvgType](SellerForce)
Difference    = BuyerForce - SellerForce
AvgDiff       = Average[Periods,AvgType](Difference)
RETURN 0,BuyerForce AS "Buyers",SellerForce AS "Sellers",AvgBuy AS "BuyAvg",AvgSell AS "SellAvg",Difference AS "Diff", AvgDiff AS "DiffAvg"