Friday, October 11, 2024

AFL CODE-MCDX

 _SECTION_BEGIN("MCDX");

bankerbase = Param("banker base", 50, 10, 100, 1);

bankerperiod = Param("banker period", 50, 10, 100, 1);

hotbase = Param("hot base", 30, 10, 100, 1);

hotperiod = Param("hot period", 40, 10, 100, 1);

bankersen = Param("banker sensitivity", 1.5, 0.1, 10, 0.1);

hotsen = Param("hot sensitivity", 0.7, 0.1, 10, 0.1);

avgperiod = Param("Average Period", 20, 2, 200, 1, 0);


banker_rsi = ( bankersen * (RSI(bankerperiod) - bankerbase) )/20 *100;

hot_rsi = ( hotsen * (RSI(hotperiod) - hotbase) )/ 20 *100;


banker = IIf(banker_rsi > 100, 100, IIf(banker_rsi < 0, 0, banker_rsi));

hot = IIf(hot_rsi > 100, 100, IIf(hot_rsi < 0, 0, hot_rsi));

Avgbanker = MA(banker,avgperiod);


Plot(Avgbanker, "Banker Average", ParamColor("Average Color",colorOrange), ParamStyle("Average Style", styleLine | styleThick));

Plot(banker, "Banker", IIf(banker > Avgbanker,colorRed,colorPink), styleHistogram, minvalue=0, maxvalue = 100, XShift = 0, Zorder = 0, width = 8);

Plot(hot, "Hotmoney", colorYellow, styleHistogram, minvalue=0, maxvalue = 100, XShift = 0, Zorder = 0, width = 8);

Plot(100, "Retail", colorGreen, styleHistogram, minvalue=0, maxvalue = 100, XShift = 0, Zorder = 0, width = 8);


Plot(25,"",colorBlack , styleLine, Minvalue=25, maxvalue=25, Xshift = 0, Zorder = 1, width = 1 );

Plot(50,"",colorBlack , styleLine, Minvalue=50, maxvalue=50, Xshift = 0, Zorder = 1, width = 1 );

Plot(75,"",colorBlack , styleLine, Minvalue=75, maxvalue=75, Xshift = 0, Zorder = 1, width = 1 );


_SECTION_END();

👉Tải tại đây

https://drive.google.com/file/d/1GKJ9bw5vATX1tQ2I9EENbKKxgYdfE_W6/view?usp=drive_link

Cách sử dụng AFL  cho Amibroker  

Tải xuống tệp Amibroker AFL. 

Bây giờ hãy sao chép tệp afl và dán vào vị trí cài Amibroker  

D:\A KY PC\Win\Amibroker\Formulas\VIP free


1 comment: