Senin, 31 Oktober 2011

AFL : MA-5 Cross MA-50 …

AFL “MA-5 Cross MA-50”

Kali ini …saya …sajikan …AFL akhir dari ….AFL “MA-5 Cross MA-50” … dengan kemampuan untuk deteksi ….

  • MA-5 Uptrend dan MA-50 Uptrend  sehingga dimungkinkan untuk mengetahui keadaan ….
  • Strong Uptrend, Strong Downtrend, Weak Uptrend dan Weak Downtrend
  • Yang dilanjutkan … dalam penyajian signal yang dikatagorikan Strong Buy Signal, Strong Sell Signal, Weak Buy Signal dan Weak Sell Signal

Dibawah ini …beberapa screen shot …dari beberapa kemampuan deteksi AFL “MA-5 Cross MA-50” :

--- Strong Uptrend ---

image

--- Strong Downtrend ---

image

--- Weak Sell Signal ---

image

--- Weak Buy Signal ---

image

Untuk …List lengkap …AFL …adalah sebagai berikut …

_SECTION_BEGIN("Price");
   SetChartOptions(0,chartShowArrows|chartShowDates,colorRed);
  Plot( C, "Close", colorBlack, styleNoTitle | styleCandle | GetPriceStyle() );
_SECTION_END();

_SECTION_BEGIN(" MA5 Cross MA50");
  Line_MA5    = MA(C,5);
  Raising_MA5 = MA(C,5) > Ref(MA(C,5),-1);
  Plot(Line_MA5,"",IIf(Raising_MA5,colorGreen,colorRed), styleNoTitle | styleThick);
 
Line_MA50    = MA(C,50);
  Raising_MA50 = MA(C,50) > Ref(MA(C,50),-1);
  Plot(Line_MA50,"",IIf(Raising_MA50,colorBlue,colorOrange),styleNoTitle | styleThick);

  MA5_MA50_Strong_Uptrend   = Raising_MA5 AND Raising_MA50;
  MA5_MA50_Strong_Downtrend = NOT Raising_MA5 AND NOT Raising_MA50;

  MA5_MA50_Weak_Uptrend     = Raising_MA5 AND NOT Raising_MA50;
  MA5_MA50_Weak_Downtrend   = NOT Raising_MA5 AND Raising_MA50;

  Buy  = Cross(Line_MA5,Line_MA50);
  PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorBlue, 0, L, Offset=-8);
  PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorBlue, 0,L, Offset=-18);
  PlotShapes(IIf(Buy, shapeUpArrow, shapeNone),colorWhite, 0,L, Offset=-13);

  Sell = Cross(Line_MA50,Line_MA5);
  PlotShapes(IIf(Sell, shapeSquare, shapeNone),colorRed, 0, H, Offset=8);
  PlotShapes(IIf(Sell, shapeSquare, shapeNone),colorRed, 0,H,Offset=18);
  PlotShapes(IIf(Sell, shapeDownArrow, shapeNone),colorWhite, 0,H,Offset=-13);
_SECTION_END();

_SECTION_BEGIN("Judul");

  Title = EncodeColor(colorYellow)+Title = FullName()+" - "+Name()+"  "+ EncodeColor( colorBrightGreen) + Date() +
    EncodeColor(55)+ "   Open:  "+ WriteIf(O> Ref(O,-1),EncodeColor(colorBrightGreen),EncodeColor(colorRed))+ WriteVal(O,format=1.2) +
    EncodeColor(55)+ "   High:  "+ WriteIf(H> Ref(H,-1),EncodeColor(colorBrightGreen),EncodeColor(colorRed))+  WriteVal(H,format=1.2) +
    EncodeColor(55)+ "   Low:  "+ WriteIf(L> Ref(L,-1),EncodeColor(colorBrightGreen),EncodeColor(colorRed))+  WriteVal(L,format=1.2) +
    EncodeColor(55)+ "   Close:  "+ WriteIf(C> Ref(C,-1),EncodeColor(colorBrightGreen),EncodeColor(colorRed))+ WriteVal(C,format=1.2)+
    EncodeColor(55)+ "   Change:  "+WriteIf(C> Ref(C,-1),EncodeColor(5),EncodeColor(55))+ WriteVal((C-Ref(C,-1)),format=1.2)+  "  ("+ WriteVal(ROC(C,1),format=1.2)+ "%"+ ")  "+
    "\n"+
    WriteIf(Raising_MA5 , EncodeColor(colorGreen)+"MA5 uptrend : ",  EncodeColor(colorRed)+"MA5 downtrend : ") +WriteVal(Line_MA5,format=1,0) +" "+
    WriteIf(Raising_MA50, EncodeColor(colorGreen)+"MA50 uptrend : ", EncodeColor(colorRed)+"MA50 downtrend : ")+WriteVal(Line_MA50,format=1,0)+

    WriteIf(MA5_MA50_Strong_Uptrend  , EncodeColor(colorGreen)+" --- STRONG uptrend --- " ,"")+
    WriteIf(MA5_MA50_Strong_Downtrend, EncodeColor(colorRed)  +" --- STRONG downtred --- ","")+

    WriteIf(MA5_MA50_Weak_Uptrend, EncodeColor(colorBlue)+" --- Weak uptrend --- ","")+
    WriteIf(MA5_MA50_Weak_Downtrend, EncodeColor(colorOrange)+" --- Weak downtrend --- ","")+

    WriteIf(Buy AND MA5_MA50_Strong_Uptrend, EncodeColor(colorGreen)+" ---- STRONG BUY SIGNAL ---- "," ")+
    WriteIf(Buy AND NOT MA5_MA50_Strong_Uptrend, EncodeColor(colorGreen)+" ---- WEAK BUY SIGNAL ---- "," ")+

    WriteIf(Sell AND MA5_MA50_Strong_Downtrend, EncodeColor(colorRed)+" ---- STRONG SELL SIGNAL ---- "," ")+
    WriteIf(Sell AND NOT MA5_MA50_Strong_Downtrend, EncodeColor(colorRed)+" ---- WEAK SELL SIGNAL ---- "," ");

_SECTION_END();

Coba dipahami … dulu … ya …bila ada yang ingin ditanyakan …silahkan tulis pertanyaannya pada shoutbox saya …

Saya cukupkan dulu … moga ada manfaatnya … makasih