Hi StratOpt,
Here is the Amibroker code:
_SECTION_BEGIN("CCI with Ergodic TSI & SMI NoPaterns");
// CCI with Ergodic NoPaterns By Panos Boufardeas 19-11-2008 for TIM
// The TSI is a smoothed True Strength indicator and the SMI is a smoothed Stochastic Momentum indicator.
// TSI is ploten one ownscale ata this moment until to fix it
SetChartBkColor(ParamColor("backround color ",colorBlack));
SetChartOptions( Mode = 0, Flags = 0, gridFlags = 0) ;
Cnormal=Param( "CCI 14", 14, 9, 28, 1 );
Color =IIf (CCI(Cnormal) > 0 , ParamColor("CCi Up",colorPlum), ParamColor("CCi Down",colorOrange));
Plot(CCI(Cnormal),"CCI",color,styleLine,styleThick);
Plot(CCI(Cnormal),"",Color,styleHistogram|styleNoLabel);
//Plot(100,"", colorGrey50, styleLine | styleThick | styleNoLabel);
//Plot(-100,"", colorGrey50, styleLine | styleThick | styleNoLabel);
Plot(200,"", colorRed , styleDots | styleNoLine );
Plot(-200,"", colorGreen , styleDots | styleNoLine );
_SECTION_END();
_SECTION_BEGIN("Ergodic John's SMI");
/* William Blau's "Ergodic SMI" */
f0 = Param("StochMtn",8,1,1000,1);
f1 = Param("EMA 1",5,1,1000,1);
f2 = Param("EMA 2",1,1,1000,1);
f3 = Param("Signal",5,1,1000,1);
StMtm = Close - 0.5*(IIf(f0==1,H,HHV(Close,f0))+IIf(f0==1,L,LLV(Close,f0)));
Numer = EMA(EMA(StMtm,f1),f2);
Denom = 0.5 * EMA(EMA(IIf(f0==1,H,HHV(Close,f0))-IIf(f0==1,L,LLV(Close,f0)),f1),f2);
Multi = Param("Multi",135,50,400,2);
SMI = Multi*(Numer / Denom);
SMI_SignalLine = Multi*(MA(Numer,f3) / MA(Denom,f3));
BuySMI = SMI >= SMI_SignalLine;
SellSMI = SMI <= SMI_SignalLine;
PlotErgodic =ParamToggle("Ergodic SMI ","No|Yes",1);
if (PlotErgodic ==1) Plot(SMI,"SMI("+f0+","+f1+","+f2+")",ParamColor(" SMI ",colorBlue) ,styleLine|styleThick);
PlotErgodicSignalLine =ParamToggle("Ergodic SMI SignalLine ","No|Yes",1);
if (PlotErgodicSignalLine ==1) Plot(SMI_SignalLine ,"SMI SignalLine ("+f3+")",ParamColor(" SMI SignalLine",colorYellow),styleDashed);
Plot(1,"\nSMI",IIf( BuySMI, colorBlue, IIf( SellSMI, colorRed, 7 )), /* choose color*/styleOwnScale|styleArea|styleNoLabel, -0.5, 100 );
_SECTION_END();
_SECTION_BEGIN("Ergodic TSI Blau");
/* Ergodic TSI Blau */
// The TSI is a smoothed True Strength indicator and the SMI is a smoothed Stochastic Momentum indicator.
Len1 = Param(" Long MA",8,1,200,1);; // Long MA
Len2 = Param("Short MA",5,1,200,1);; // Short MA
Len3 = Param("Smoothing",1,1,200,1); // Smoothing
Fac1 = 2 / (Len1 + 1); Fac2 = 2 / (Len2 + 1); Fac3 = 2 / (Len3 + 1);
ROCx = C - Ref(C, -1);
ROCy = abs(ROCx);
Value1 = 100 * AMA(AMA(AMA(ROCx, Fac1), Fac2), Fac3);
Value2 = 100 * AMA(AMA(AMA(ROCy, Fac1), Fac2), Fac3);
TSI = IIf(Value2 == 0, 0, Value1 / Value2);
Sig = AMA(TSI, Fac2);
PlotErgodicTSI =ParamToggle("Ergodic TSI","No|Yes",1);
if (PlotErgodicTSI ==1) Plot(TSI, "TSI",ParamColor(" TSI ",colorBlueGrey) ,styleLine|styleThick|styleLeftAxisScale);
PlotErgodicSignalLineTSI =ParamToggle("Ergodic TSI SignalLine ","No|Yes",1);
if (PlotErgodicSignalLineTSI ==1) Plot(Sig, "TSI Sig",ParamColor(" TSI SignalLine",colorYellow),styleDashed|styleLeftAxisScale);
Buy =TSI>Sig;
Sell = Sig>TSI;
Short=Sell; Cover=Buy;
Buy=ExRem(Buy,Sell); Sell=ExRem(Sell,Buy); Short=ExRem(Short,Cover); Cover=ExRem(Cover,Short);
//Plot(3, /* defines the height of the ribbon in percent of pane width */"Ergodic TSI Blau ",IIf( Buy , colorBlue, IIf( Sell , colorRed, 0 )), /* choose color*/styleOwnScale|styleArea|styleNoLabel, -0.5, 100 );
_SECTION_END();
if the code is not a proprietary code set, then just post the code here OR the name of the indicator if it is a common theme and I bet somebody can get it done.
