Stock Portfolio Organizer
The ultimate porfolio management solution.
WiseTrader Toolbox
#1 Selling Amibroker Plugin featuring:
Tertinggi dan terendah dengan jarak (0%-100%) dan explorasi. for Amibroker (AFL)
This Afl is used to see the candlestick on the chart to easily determine where the candlestick area is (highest or lowest), starting from the lowest/bottom column, which is 1 day, then 1 week and so on. red and green color as the percentage distance indicator from 0% to 100%, I just learned 5 months Amibroker Language Formula, so there must be a lot of mistakes. Please advice to improve this afl thank you.
note : – just drag drop to your chart
– when a trend creates daily highs (green) it may be a strong bullish trend
and vice versa
Screenshots
Indicator / Formula
//Tertinggi dan terendah dengan jarak (0%-100%) dan explorasi. blankRightBars = 7; barsInView = Status("lastvisiblebarindex") - Status("firstvisiblebarindex") - blankRightBars; Offset = Param("Offset Bar", .2, 0, 1, .09); textOffset = BarCount - (Offset * barsInView); _SECTION_BEGIN("1 hari "); H1 = HHV(H,1); L1 = LLV(L,1); P1DR = ( (Close - L1) / (H1 - L1) ) * 100; R1 = (2500 - ( (P1DR/100)*2500 ) ); G1 = (P1DR/100)*2500; Plot( 10, "", ColorRGB(R1,G1,0), styleArea|styleOwnScale|styleNoLabel, 0, 100); Plot( 11,"",colorBlack,styleOwnScale|styleArea|styleNoLabel,0, 100 ); _SECTION_END(); _SECTION_BEGIN("5 hari "); H5 = HHV(H,5); L5 = LLV(L,5); P5DR = ( (Close - L5) / (H5 - L5) ) * 100; R5 = (2500 - ( (P5DR/100)*2500 ) ); G5 = (P5DR/100)*2500; Plot( 20, "", ColorRGB(R5,G5,0), styleArea|styleOwnScale|styleNoLabel, 0, 100); Plot( 21,"",colorBlack,styleOwnScale|styleArea|styleNoLabel,0, 100 ); _SECTION_END(); _SECTION_BEGIN("20 hari "); H20 = HHV(H,20); L20 = LLV(L,20); P20DR = ( (Close - L20) / (H20 - L20) ) * 100; R20 = (2500 - ( (P20DR/100)*2500 ) ); G20 = (P20DR/100)*2500; Plot( 30, "", ColorRGB(R20,G20,0), styleArea|styleOwnScale|styleNoLabel, 0, 100); Plot( 31,"",colorBlack,styleOwnScale|styleArea|styleNoLabel,0, 100 ); _SECTION_END(); _SECTION_BEGIN("60 hari"); H60 = HHV(H,60); L60 = LLV(L,60); P60DR = ( (Close - L60) / (H60 - L60) ) * 100; R60 = (2500 - ( (P60DR/100)*2500 ) ); G60 = (P60DR/100)*2500; Plot( 40, "", ColorRGB(R60,G60,0), styleArea|styleOwnScale|styleNoLabel, 0, 100); Plot( 41,"",colorBlack,styleOwnScale|styleArea|styleNoLabel,0, 100 ); _SECTION_END(); _SECTION_BEGIN("120 hari"); H120 = HHV(H,120); L120 = LLV(L,120); P120DR = ( (Close - L120) / (H120 - L120) ) * 100; R120 = (2500 - ( (P120DR/100)*2500 ) ); G120 = (P120DR/100)*2500; Plot( 50, "", ColorRGB(R120,G120,0), styleArea|styleOwnScale|styleNoLabel, 0, 100); Plot( 51,"",colorBlack,styleOwnScale|styleArea|styleNoLabel,0, 100 ); _SECTION_END(); _SECTION_BEGIN("240 hari"); H240 = HHV(H,240); L240 = LLV(L,240); P240DR = ( (Close - L240) / (H240 - L240) ) * 100; R240 = (2500 - ( (P240DR/100)*2500) ); G240 = (P240DR/100)*2500; Plot( 60, "", ColorRGB(R240,G240,0), styleArea|styleOwnScale|styleNoLabel, 0, 100); Plot( 61,"",colorBlack,styleOwnScale|styleArea|styleNoLabel,0, 100 ); _SECTION_END(); _SECTION_BEGIN("720 hari"); H720 = HHV(H,720); L720 = LLV(L,720); P720DR = ( (Close - L720) / (H720 - L720) ) * 100; R720 = (2500 - ( (P720DR/100)*2500 ) ); G720 = (P720DR/100)*2500; Plot( 70, "", ColorRGB(R720,G720,0), styleArea|styleOwnScale|styleNoLabel, 0, 100); Plot(71,"",colorBlack,styleOwnScale|styleArea|styleNoLabel,0, 100 ); _SECTION_END(); _SECTION_BEGIN("1200 hari"); H1200 = HHV(H,1200); L1200 = LLV(L,1200); P1200DR = ( (Close - L1200) / (H1200 - L1200) ) * 100; R1200 = (2500 - ( (P1200DR/100)*2500) ); G1200 = (P1200DR/100)*2500; Plot( 80, "", ColorRGB(R1200,G1200,0), styleArea|styleOwnScale|styleNoLabel, 0, 100); Plot(81,"",colorBlack,styleOwnScale|styleArea|styleNoLabel,0, 100 ); _SECTION_END(); _SECTION_BEGIN("2400 hari"); H2400= HHV(H,2400); L2400 = LLV(L,2400); P2400DR = ( (Close - L2400) / (H2400 - L2400) ) * 100; R2400 = (2500 - ( (P2400DR/100)*2500) ); G2400 = (P2400DR/100)*2500; Plot( 90, "", ColorRGB(R2400,G2400,0), styleArea|styleOwnScale|styleNoLabel, 0, 100); Plot(91,"",colorBlack,styleOwnScale|styleArea|styleNoLabel,0, 100 ); _SECTION_END(); _SECTION_BEGIN("4800 hari"); H4800= HHV(H,4800); L4800 = LLV(L,4800); P4800DR = ( (Close - L4800) / (H4800 - L4800) ) * 100; R4800 = (2500 - ( (P4800DR/100)*2500) ); G4800 = (P4800DR/100)*2500; Plot( 100, "", ColorRGB(R4800,G4800,0), styleArea|styleOwnScale|styleNoLabel, 0, 100); Plot(101,"",colorBlack,styleOwnScale|styleArea|styleNoLabel,0, 100 ); _SECTION_END(); Title = EncodeColor(colorBrightGreen)+"% 1hari =" + WriteVal(P1DR) + EncodeColor(colorRed)+" % 1 minggu ="+ WriteVal(P5DR)+EncodeColor(colorGold)+" % 1 bulan =" + WriteVal(P20DR)+ EncodeColor(colorAqua)+"% 3 bulan =" + WriteVal(P60DR) + EncodeColor(colorLightYellow)+"% 6 bulan=" + WriteVal(P120DR)+ EncodeColor(colorLightBlue)+"% 1 thn=" + WriteVal(P240DR)+ EncodeColor(colorLime)+"% 3 thn =" + WriteVal(P720DR)+ EncodeColor(colorBrown)+"% 5thn =" + WriteVal(P1200DR)+ EncodeColor(colorGrey50)+"% 10 thn =" + WriteVal(P2400DR )+ EncodeColor(colorTurquoise)+"% 20 thn =" + WriteVal(P4800DR ); //EXPLORATION _SECTION_BEGIN(""); Filter = 1; AddColumn(P1DR,"1 hari"); AddColumn(P5DR," 1 minggu"); AddColumn(P20DR,"1 bulan"); AddColumn(P60DR,"3 bulan"); AddColumn(P120DR,"6 bulan"); AddColumn(P240DR,"1 tahun"); AddColumn(P720DR,"3 tahun"); AddColumn(P1200DR,"5 tahun"); AddColumn(P2400DR,"10 tahun"); AddColumn(P4800DR,"20 tahun"); _SECTION_END();
1 comments
Leave Comment
Please login here to leave a comment.
Back
MANTAP