Need Help with radar screen indicator
Posted: Thu Jan 03, 2008 5:33 am
Can anyone help me get this indicator to also work in radar Screen?
Thanks in advance
Thanks in advance
Code: Select all
[LegacyColorValue = true];
{ TrendCount Indicator
Written by: HamFon
Contact: ncrowle@sprintmail.com
Date: 08/01/2002, first version 08/01/2002
Version: 1.00
Status: Gnu Public License - this indicator may be used or shared freely with
no fee, as long as this original header comment is included.
Purpose: Displays chart of percentage higher and lower prices, back specified length.
A value of 100 means that all prices preceding were smaller (uptrend),
a value of 0 means that all prices preceding were larger (downtrend),
a value of 50 means that half of the prices were larger, half smaller.
}
inputs: Price (Close), Length (20);
variables: loop (0), LargerCount (0), SmallerCount (0);
if CurrentBar > Length then begin
SmallerCount = 0;
LargerCount = 0;
for loop = 1 to Length begin
if Price < Price[loop] then SmallerCount = SmallerCount + 1;
if Price > Price[loop] then LargerCount = LargerCount + 1;
end;
Plot1 (((LargerCount - SmallerCount) / Length + 1) * 50, "TrendCount");
end;