ОСЦИЛЯТОР ПОЛОС БОЛИНДЖЕРА

Type : Function, Name: $Lowerband

Input:
Price(NumericSeries),
Length(NumericSimple),
SDev(NumericSimple);

$Lowerband = Average(Price, Length) – StdDev(Price, Length) * SDev

Type : Function, Name: $Upperband

Input:
Price(NumericSeries),
Length(NumericSimple),
SDev(NumericSimple);

$Upperband = Average(Price, Length) + StdDev(Price, Length) * SDev

Type : Indicator, Name: $%B I

Input:
Price(C),
Length(18),
SDev(2); Vars:
Upper(0),
Lower(0),
Where(0);

Upper = 100 * (Price – $Lowerband(Price, Length, SDev));
Lower = $Upperband(Price, Length, SDev) – $Lowerband(Price, Length,
SDev);
If Lower <> 0 Then
Where = ((Upper / Lower) – 50) * 2;
Plot1(Where, “Where”);
Plot2(100,”Upper”);
Plot3(-100,”Lower”);