Skip to main content

NIRJEDA for Amibroker (AFL)

projsx over 13 years ago Amibroker (AFL)

  • Rating:
    4 / 5 (Votes 8)
  • Tags:
    oscillator, trading system, amibroker

Just follow when the line is:
GREEN, start to BUY
RED, start to SELL

Screenshots

Indicator / Formula

Copy & Paste Friendly
_SECTION_BEGIN("NirJeda");

MaxGraph = 10;

//rumus
R = ((HHV(H,14) - C) /(HHV (H,14) -LLV (L,14))) *-100;
Period = 14;
EMA1 = EMA(R,Period);
EMA2 = EMA(EMA1,14);
selisih = EMA1 - EMA2;
nirjeda = EMA1 + selisih;
PR = 0-abs(nirjeda);
ratagerak = MA(PR,5);

//warna
naik = PR>=ratagerak AND PR>=Ref(PR,-1) ;
turun = (PR < ratagerak) OR PR>= ratagerak AND PR< Ref(PR,-1) ;
barcolor = IIf( turun,colorRed, IIf( naik, colorBrightGreen, 7));

Graph0 = PR;
Graph1 = ratagerak;
Graph0BarColor = ValueWhen( barcolor != 0, barcolor );

Title = Name() + "      NirJeda =  " + WriteVal(PR,1.2) + "%" + "       RataGerak =   " + WriteVal(ratagerak,1.2) + "%" ;

Buy = Cross(R,nirjeda);
Sell = Cross(nirjeda,R);

Plot(R,"R",colorGold,styleDashed);

12 comments

3. anup82
over 13 years ago

*0 star see in spot nifty daily farm 24/9/2012 start red line mines sell to continu but today run spot nf 5738 high see u r result *h5. Your title here…

4. Agoon
over 13 years ago

Very nice indicator!!!

Can someone put buy/sale arrow and exploration code to get the maximum juice for the layman like me……thanks in advance.

over 13 years ago

Works well with 9 period on 40 Point Range bars with Dow Jones Futures but with ‘R’ crossing ‘PR’ !!!!

over 13 years ago

This is the indonesian Language. Mr. Hoirman U can use Google translator for the same.

_SECTION_BEGIN("Non-Interlude");
 
MaxGraph = 10;
 
//R Formula
R = ((HHV(H,14) - C) /(HHV (H,14) -LLV (L,14))) *-100;
Period = 14;
EMA1 = EMA(R,Period);
EMA2 = EMA(EMA1,14);
Difference= EMA1 - EMA2;
NI= EMA1 + Difference;
PR = 0-abs(NI);
averageDiff = MA(PR,5);
 
// Color
UP= PR>=(averageDiff AND PR>=Ref(PR,-1) ;
Down= (PR < averageDiff ) OR PR>= averageDiff AND PR< Ref(PR,-1) ;
barcolor = IIf( Down,colorRed, IIf( UP, colorBrightGreen, 7));
 
Graph0 = PR;
Graph1 = averageDiff ;
Graph0BarColor = ValueWhen( barcolor != 0, barcolor );
 
Title = Name() + "      NI=  " + WriteVal(PR,1.2) + "%" + "       averageDiff =   " + WriteVal(averageDiff ,1.2) + "%" ;
 
Buy = Cross(R,NI);
Sell = Cross(NI,R);
 
Plot(R,"R",colorGold,styleDashed);
over 13 years ago

Extremist,

Thanks kindly for translating. I had on earthly idea of Language.
Interesting indicator but produces too many Buy Signals.

Dick

10. extremist
over 13 years ago

for all in the forum this indicator has basic calculations almost same as stochastics

only difference in line

R = ((HHV(H,14) - C) /(HHV (H,14) -LLV (L,14))) *-100;

As in stochastics we do it like

R = ((LLV(H,14) - C) /(HHV (H,14) -LLV (L,14))) *-100;

just for info. i have shared wht i know.

11. buchacek
over 13 years ago

Stochastics has (LLVor other period not( LLV) and *100 and not *-100. But the result is almost the same. Also Stoch goes from 20 to 80 and this one goes from -100 to 0.
See my version :

_SECTION_BEGIN("Momentum Oscillator");
Period = 9;
mom = ((HHV(H,9) - C) /(HHV (H,9) -LLV (L,9))) * -100;
EMA1 = EMA(mom,Period);
EMA2 = EMA(EMA1,14);
dif = EMA1 - EMA2;
var = EMA1 + dif;
fast = 0-abs(var);
slow = MA(fast,5);
up = fast>=slow AND fast>=Ref(fast,-1) ;
down = (fast < slow) OR fast>= slow AND fast< Ref(fast,-1) ;
barcolor = IIf( down,32, IIf( up,5,7));
Graph0BarColor = ValueWhen( barcolor != 0, barcolor );
Plot(fast,"Fast Value(9P)",Graph0BarColor,styleLine|styleThick);
Plot(slow,"Slow Value(9P)",29,styleLine|styleThick);
Plot(mom,"Price Momentum(9P)",11,styleDashed);
Plot(0,"",10,styleDashed | styleNoLabel,Null,Null,1);
Plot(-30,"",30,styleDashed | styleNoLabel,Null,Null,1);
Plot(-70,"",30,styleDashed | styleNoLabel,Null,Null,1);
Plot(-100,"",10,styleDashed| styleNoLabel,Null,Null,1);
PlotOHLC(0, 0, -30, -30, "", 23, styleCloud |styleNoLabel,Null,Null,1);   
PlotOHLC(-100, -100, -70, -70, "", ParamColor("Color", 23 ), styleCloud |styleNoLabel,Null,Null,1);  
_SECTION_END();

Now the code is right - it printed errors before.
Above this code for Stochastic formula the values are  LLV(L,14) in Stochastic and not LLV(H,14) and *100 and not *-100 as in this code.The values are for 90min Time Frame.

Leave Comment

Please login here to leave a comment.