Stock Portfolio Organizer

The ultimate porfolio management solution.

Shares, Margin, CFD's, Futures and Forex
EOD and Realtime
Dividends and Trust Distributions
And Much More ....
For Portfolio Manager Click Here

WiseTrader Toolbox

#1 Selling Amibroker Plugin featuring:

Advanced Adaptive Indicators
Advanced Pattern Exploration
Neural Networks
And Much More ....
Find Out More Here

Disparity Index & Adaptive Zones for Amibroker (AFL)
morgen
over 14 years ago
Amibroker (AFL)

Rating:
5 / 5 (Votes 3)
Tags:
oscillator, amibroker

See in formula “SECTION OSC”, if you want to create other Oscillators & Adaptive Zones!

Similar Indicators / Formulas

Debu Market Efficiency Ratio
Submitted by agent301 about 12 years ago
MACD (new timing)
Submitted by tigernifty about 12 years ago
3 Days Track
Submitted by janet0211 over 14 years ago
KILL THE OPERATOR MACD
Submitted by prasadmuni about 12 years ago
%R ++
Submitted by reb over 14 years ago
DMI Spread
Submitted by pipstar over 14 years ago

Indicator / Formula

Copy & Paste Friendly
/*Adaptive Zones OB/OS OSCILLATOR*/
/*Automatically Adjusts the overbought and oversold levels based on past performance*/
/*Interpreted and coded by Anthony Faragasso*/
/*Can be used with PrePackaged indicators,RSI,CCI,STOCHK,STOCHD,MFI,ULTIMATE,*/
/*For ROC add the Close. ex.ROC(C,pds);*/

MaxGraph=10;
/*Input */
Lookback=50;
PerCent=100;
Pds =14;

/****Dimitri Code***********/
/*14-Day RSI of MACD()*/ 
//t=14; Replaced with pds= statement
Var=MACD(); 
Up=IIf(Var>Ref(Var,-1),abs(Var-Ref(Var,-1)),0); 
Dn=IIf(Var<Ref(Var,-1),abs(Var-Ref(Var,-1)),0); 
Ut=Wilders(Up,Pds); 
Dt=Wilders(Dn,Pds);
RSIt=100*(Ut/(Ut+Dt)); 
/************End Code*************************/

/*******Variables******************/

A1=RSIt; B2=RSI(pds); C3=CCI(pds); D4=StochK(pds); E5=StochD(pds);
F6=MFI(pds); G7=Ultimate(pds); H8=ROC(C,pds);

//DISPARITY INDEX
dix=((Close - EMA(Close, 10)) / EMA(Close, 10)) * 100;
//Plot(dix,"",colorCustom12);
Plot(0,"",colorBrown,styleLine);
//xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
//!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
//SECTION OSC
//You can create here other Adaptive Zones OB/OS Oscillator Charts with up "Variables" (ex.: Osc=F6 etc.)
Osc=dix; /*insert variable by Identifier*/ 
//!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
//xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

/*Value of Osc*/
Value1 = Osc;

/*Highest AND Lowest Values of Osc during Lookback Period*/
Value2 = HHV(Value1,Lookback);
Value3 = LLV(Value1,Lookback);

/*Range of Osc during Lookback Period*/
Value4 = Value2 - Value3;

/*Define PerCent of Range to determine OB AND OS levels*/
Value5 = Value4 * (PerCent / 100);

/*Calculate OB AND OS levels*/
Value6 = Value3 + Value5;
Value7 = Value2 - Value5;

baseline=IIf( Osc < 100 AND Osc > 10 ,0 ,IIf( Osc < 0 ,0,0));

Header=WriteIf(Osc==A1," RSI Of MACD",WriteIf(osc==dix,"DIX",WriteIf(Osc==b2," RSI",WriteIf(Osc==C3," CCI",WriteIf(Osc==D4,"StochK",WriteIf(Osc==E5,"StochD",WriteIf(Osc==F6," MONEY FLOW INDEX",WriteIf(Osc==G7," Ultimate",WriteIf(Osc==H8," ROC(Close)","")))))))));

Plot(Value1, Header,6,1+4); /*BLUE*/
Plot(Value6," O/B",4,1+4);  /*RED -TOP(SELL)*/
Plot(Value7," O/S",colorLime,1+4);  /*GREEN-BOT(BUY)*/
//Plot(Baseline," Baseline",colorBrown,1+4); 

0 comments

Leave Comment

Please login here to leave a comment.

Back