Support and Resistance Indicator

Type: Function, Name: WSO
Inputs:
Strength(Numeric),
Length(Numeric);
Vars:
SCalc(0);

Array: Support[100](0);
Condition1 = SwingLow(1, Low, Strength, Strength+1) <> -1;
IF Condition1 Then Begin
For value1 = 100 DownTo 2 Begin
Support[value1] = Support[value1-1];
End;
Support[1] = Low[Strength];
End;
IF Support[Length] <> 0 Then Begin
SCalc = 0;
For value1 = 1 To Length Begin
SCalc = SCalc + IntPortion(Support[value1] / Close);
End;
WSO = 100 * (1 - (SCalc / Length));
End Else
WSO = 0;




Type: Function, Name: WRO

Inputs:
Strength(Numeric),
Length(Numeric);
Vars:
RCalc(0);

Array: Resist[100](0);
Condition1 = SwingHigh(1, High, Strength, Strength+1) <> -1;
IF Condition1 Then Begin
For value1 = 100 DownTo 2 Begin
Resist[value1] = Resist[value1-1];
End;
Resist[1] = High[Strength];
End;
IF Resist[Length] <> 0 Then Begin
RCalc = 0;
For value1 = 1 To Length Begin
RCalc = RCalc + IntPortion(Resist[value1] / Close);
End;
WRO = 100 * (1 - (RCalc / Length));
WRO = 0;
end






Type: Indicator, Name: Support-Resistance
Inputs: Strength(4), Length(6);
Plot1(WSO(Strength, Length), "SupportOsc");
Plot2(WRO(Strength, Length), "ResistOsc");