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

Insync_Index for Amibroker (AFL)

Copy & Paste Friendly
_SECTION_BEGIN("Insync_Index_TEST1");
SetChartBkColor(ParamColor("Panel Color",colorLightGrey));
BOLInSLB = MA( C ,20 ) - 2 * ( StDev( C ,20 ) ) ;
BOLInSUB = MA( C ,20 ) + 2 * ( StDev( C ,20 ) ) ;
BOLInS2 = C - BOLInSLB  / (BOLInSUB  - BOLInSUB ) ;
BOLInSLL = IIf( BOLInS2 < .05 ,-5 ,IIf( BOLInS2  > .95 ,5 ,0 ) ) ;

CCIInS = IIf( CCI(14 ) > 100 ,5 ,IIf ( CCI(14 ) < -100 ,-5 ,0 ) );

// EMV - Ease of Movement
// Calculation The Ease of Movement should be accompanied with it's 
EMVcalc = ( (H+L/2) - ( Ref(H,-1) + Ref(L,-1) ) /2 ) / (V / H-L) ;
EMV= EMA(EMVcalc,10 );
EMVInS2 = EMV - MA( EMV ,10 ) ;
EMVInSB =IIf( EMVInS2  < 0 ,IIf( MA( EMV,10  ) < 0 ,-5 ,0 ) ,0 ) ;
EMVInSS = IIf( EMVInS2> 0 ,IIf( MA( EMV ,10  ) > 0 ,5 ,0 ) ,0 ) ;

// Macd
MACDInS2 =MACD(12,25 ) - MA( MACD(12,25 ) ,9  );
MACDinSB =IIf( MACDInS2  < 0, IIf( MA( MACD( ) ,10 ) < 0 ,-5 ,0 ) ,0 );
MACDInSS = IIf(MACDInS2  > 0 ,IIf( MA( MACD( ) ,10 ) > 0 ,5 ,0 ) ,0 );

// Money Flow index.
MFIInS =IIf( MFI( 20 ) > 80 ,5 , IIf( MFI( 20 ) < 20 ,-5 ,0 ) );

// PDO - Detrended Price Oscillator
PDO= C-Ref(MA(C,18),-(18/2)+1);   // PDO modify
PDOInS2 =PDO - MA( PDO ,10 );
PDOInSB = IIf( PDOInS2 < 0 ,IIf( MA( PDO ,10 ) <0 ,-5 ,0 ) ,0 );
PDOInSS =IIf( PDOInS2 > 0 ,IIf( MA( PDO ,10 ) > 0 ,5 ,0 ) ,0 );

// ROC in points
// ROCInS2 = ROC( C ,10 ,$ ) - Mov( ROC( C ,10 ,$ ) ,10 ,S )
   ROCInS2 = ROC( C ,10  ) - MA( ROC( C ,10  ) ,10  );   //<< need to correct
//ROCInSB = IIf( ROCInS2 < 0 ,IIf( MA( ROC( C ,10 ,$ ) ,10 ) < 0 ,-5 ,0 ) ,0 )
   ROCInSB = IIf( ROCInS2 < 0 ,IIf( MA( ROC( C ,10  ) ,10 ) < 0 ,-5 ,0 ) ,0 );
// ROCInSS Index =  IIf( ROCInS2 > 0 ,IIf( MA( ROC( C ,10 ,$ ) ,10 ) > 0 ,5 ,0 ) ,0 )
   ROCInSS_Index =  IIf( ROCInS2 > 0 ,IIf( MA( ROC( C ,10 ) ,10 ) > 0 ,5 ,0 ) ,0 );

// RSI
   RSIInS = IIf( RSI(14 ) > 70 ,5 ,IIf( RSI(14 ) < 30 ,-5 ,0 ) );

// Stochastic
STOdInS = IIf( StochD(14 ,3 ) > 80 ,5 ,IIf( StochD(14 ,3 ) < 20 ,-5 ,0 ) );
STOkInS =IIf( StochK(14 ,1) > 80 ,5 ,IIf( StochK(14 ,1 ) < 20 ,-5 ,0 ) );

InSync_Index = 50 + 
               CCIInS + 
               BOLInSLL + 
               RSIInS + 
               STOkInS + 
               STOdInS + 
               MFIInS  + 
               EMVInSB + 
               EMVInSS + 
               ROCInSS_Index + 
               ROCInSB + Ref (PDOInSS ,-10 ) + Ref (PDOInSB ,-10 )  +
               MACDInSS + MACDInSB  ;

Color_bars =  IIf(InSync_Index > 50, colorBlue,
              IIf(InSync_Index < 50,colorRed, 
              IIf(InSync_Index == 50, colorBlack, colorYellow)));

//Plot(InSync_Index,"InSync Index", colorBlue,styleThick);
Plot(InSync_Index,"InSync Index", Color_bars,styleHistogram|styleThick|styleNoTitle);
Plot(20,"",2);  Plot(75,"",2); Plot(50,"",5);

Title =
EncodeColor(colorBlack) + " INsync_Index = " + WriteVal(InSync_Index,format=1.0);

_SECTION_END();
Back