|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 |
//DEFPARAM DrawOnLastBarOnly = False deltaRangeBB = 15 period = 20 BBup = BollingerUp[period](close) BBdn = BollingerDown[period](close) RangeBB = BBup - BBdn ONCE isInRange = 0 ONCE xStartRange = 0 ONCE HH = 0 ONCE LL = 0 IF RangeBB >= deltaRangeBB THEN IF isInRange = 1 THEN DrawRectangle(xStartRange, LL, BarIndex - 1, HH) COLOURED("Blue", 50) BorderColor("Blue", 0) ENDIF isInRange = 0 ELSE IF isInRange = 0 THEN isInRange = 1 xStartRange = BarIndex HH = high LL = low ELSE HH = MAX(HH, high) LL = MIN(LL, low) ENDIF ENDIF IF isInRange = 1 AND islastbarupdate THEN DrawRectangle(xStartRange, LL, BarIndex, HH) COLOURED("Blue", 50) BorderColor("Blue") ENDIF RETURN |
