Type: Function, Name: rainbow
Inputs: Price(Numeric), Length(Numeric), Level(Numeric);
Vars: LVLAvg(0);
Array: Avg[10](0);
Avg[1] = Average(Price, Length);
Avg[2] = Average(Avg[1], Length);
Avg[3] = Average(Avg[2], Length);
Avg[4] = Average(Avg[3], Length);
Avg[5] = Average(Avg[4], Length);
Avg[6] = Average(Avg[5], Length);
Avg[7] = Average(Avg[6], Length);
Avg[8] = Average(Avg[7], Length);
Avg[9] = Average(Avg[8], Length);
Avg[10] = Average(Avg[9], Length);
For value1 = 1 To 10 Begin
IF value1 = Level Then
LVLAvg = Avg[value1];
End;
Rainbow = LVLAvg;
Type: Function, Name: RainbowBW
Inputs: Price(Numeric), Length(Numeric), Level(Numeric);
Vars: LVLAvg(0), HiPrice(0), LoPrice(0), HiAvg(0), LoAvg(0);
Array: Avg[10](0);
Avg[1] = Average(Price, Length);
Avg[2] = Average(Avg[1], Length);
Avg[3] = Average(Avg[2], Length);
Avg[4] = Average(Avg[3], Length);
Avg[5] = Average(Avg[4], Length);
Avg[6] = Average(Avg[5], Length);
Avg[7] = Average(Avg[6], Length);
Avg[8] = Average(Avg[7], Length);
Avg[9] = Average(Avg[8], Length);
Avg[10] = Average(Avg[9], Length);
HiPrice = Highest(Price, Level);
LoPrice = Lowest(Price, Level);
HiAvg = Avg[1];
LoAvg = Avg[1];
For value1 = 2 To Level Begin
IF Avg[value1] > HiAvg Then
HiAvg = Avg[value1];
IF Avg[value1] < LoAvg Then
LoAvg = Avg[value1];
End;
IF HiPrice – LoPrice <> 0 Then Begin
IF Price > HiAvg Then
HiAvg = Price;
IF Price < LoAvg Then
LoAvg = Price;
RainbowBW = 100 * ((HiAvg – LoAvg) / (HiPrice – LoPrice));
End;
Type: Function, Name: RainbowOsc
Inputs: Price(Numeric), Length(Numeric), Level(Numeric);
Vars: AvgAvgs(0), HiPrice(0), LoPrice(0), AvgVal(0);
Array: Avg[10](0);
AvgAvgs = 0;
Avg[1] = Average(Price, Length);
Avg[2] = Average(Avg[1], Length);
Avg[3] = Average(Avg[2], Length);
Avg[4] = Average(Avg[3], Length);
Avg[5] = Average(Avg[4], Length);
Avg[6] = Average(Avg[5], Length);
Avg[7] = Average(Avg[6], Length);
Avg[8] = Average(Avg[7], Length);
Avg[9] = Average(Avg[8], Length);
Avg[10] = Average(Avg[9], Length);
HiPrice = Highest(Price, Level);
LoPrice = Lowest(Price, Level);
For value1 = 1 To Level Begin
AvgAvgs = AvgAvgs + Avg[value1];
End;
AvgVal = AvgAvgs / Level;
IF HiPrice – LoPrice <> 0 Then
RainbowOsc = 100 * ((Close – AvgVal) / (HiPrice – LoPrice));
Type: Indicator, Name: Rainbow_a
Inputs: P(Close), Len(2);
IF CurrentBar > Len * 10 Then Begin
Plot1(Rainbow(P, Len, 10), “Avg10”);
Plot2(Rainbow(P, Len, 9), “Avg9”);
End;
“Style:
Plot Name Type Color Weight
Plot1 Avg10 Line Dk Blue medium
Plot2 Avg9 Line Dk Magenta medium
Scaling: Same as Price Data”
Type: Indicator, Name: Rainbow_b
Inputs: P(Close), Len(2);
IF CurrentBar > Len *10 Then Begin
Plot1(Rainbow(P, Len, 8), “Avg8”);
Plot2(Rainbow(P, Len, 7), “Avg7”);
Plot3(Rainbow(P, Len, 6), “Avg6”);
Plot4(Rainbow(P, Len, 5), “Avg5”);
End;
“Style:
Plot Name Type Color Weight
Plot1 Avg8 Line Dk Green medium
Plot2 Avg7 Line Dk Cyan medium
Plot3 Avg6 Line Blue
Plot4 Avg5 Line Cyan
Scaling: Same as Price Data”
Type: Indicator, Name: Rainbow_c
Inputs: P(Close), Len(2);
IF CurrentBar > Len *10 Then Begin
Plot1(Rainbow(P, Len, 4), “Avg4”);
Plot2(Rainbow(P, Len, 3), “Avg3”);
Plot3(Rainbow(P, Len, 2), “Avg2”);
Plot4(Rainbow(P, Len, 1), “Avg1”);
End;
“Style:
Plot Name Type Color Weight
Plot1 Avg4 Line Green medium
Plot2 Avg3 Line Yellow medium
Plot3 Avg2 Line Magenta medium
Plot4 Avg1 Line Red medium”
Type: Indicator, Name: Rainbow Oscillator
Inputs: P(Close), Len(2), Levels(10);
Vars: PosNeg(0);IF CurrentBar > Len * Levels Then Begin
Plot1(RainbowBW(P, Len, Levels), “URB”);
Plot2(-RainbowBW(P, Len, Levels), “LRB”);
PosNeg = RainbowOsc(P, Len, Levels);IF PosNeg > 0 Then
Plot3(PosNeg, “RainbowOsc”)
Else
Plot4(PosNeg, “RainbowOsc”);
End;
“Style:
Plot Name Type Color Weight
Plot1 URB Line Red medium
Plot2 LRB Line Blue medium
Plot3 RainbowOsc Histogram Red medium
Plot4 RainbowOsc Histogram Blue medium”
