OmniTrader Professional Forum OmniTrader Professional Forum
forums calendars search
today this week
 
register logon control panel Forum Rules
You are currently browsing as a guest.
You should logon to access more features
A Self-Moderated Community - ALL MEMBERS, PLEASE READ!
Vote for Members who contribute the most to your trading, and help us moderate content within the Forums.


  Current location        Thread information  
OmniTrader Professional Forum
OmniLanguage Discussion
Efficieny Ratio
Last Activity 7/18/2020 3:52 AM
0 replies, 83 viewings

Jump to page : 1
Now viewing page 1 [25 messages per page]
 
back reply
Printer friendly version

^ Top
Gottfried

Member
25
Posts: 36

Joined: 4/14/2006
Location: 2500 Biel Switzerland

User Profile
 
Subject : Efficieny Ratio
Posted : 7/18/2020 3:52 AM
Post #31192

Once I’ve bought Efficieny Ratio from Price Headley. Now I would like to have this indicator in OT. This is the formula of EffRatio

plot Data = close;

declare lower;

input length = 20;
input lowerERThreshold = -30;
input upperERThreshold = 30;

def NetChange = hl2 - hl2[length];

def incrementalTotalChange = AbsValue(hl2 - hl2[1]);
def TotalChange = sum(incrementalTotalChange,length);

def ERatio = (NetChange/TotalChange) * 100;

plot ER = ERatio;
ER.AssignValueColor(if ER >= upperERThreshold
then Color.RED else if ER <= lowerERThreshold
then Color.RED else Color.RED);
ER.SetLineWeight(2);

plot LowerThreshold = lowerERThreshold;
LowerThreshold.SetDefaultColor(Color.BLUE);

plot UpperThreshold = upperERThreshold;
UpperThreshold.SetDefaultColor(Color.BLUE);

I used the Kaufmann script. Because PriceHeadley uses H+L/2 instead of close price. I changed the close “C” into Median Price “MP”. But I don’t get the same value as I have with the original EffRatio.
What’s wrong

#Indicator

#PARAM "Bars", 10
#PARAM "KI", 40

Dim RMS as Single
Dim VOLA as Single
Dim KER as Single

RMS = MP[1]-MP[Bars]
VOLA = SUM(ABS(MP-MP[1]),Bars)
KER = RMS/VOLA *100

Plot("Kaufmann",KER, blue, 2)
PlotLabel(KI) 'plot red reference line at 40
PlotLabel(-1*KI) 'plot red reference line at -40

Return KER

Jump to page : 1
Now viewing page 1 [25 messages per page]
back reply

Legend    Action      Notification  
Administrator
Forum Moderator
Registered User
Unregistered User
E-Mail this thread to a friend
Toggle e-mail notification


Nirvana Systems
For any problems or issues please contact our Webmaster at webmaster@nirvsys.com.