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 ....
WiseTrader Toolbox
#1 Selling Amibroker Plugin featuring:
Advanced Adaptive Indicators
Advanced Pattern Exploration
Neural Networks
And Much More ....
Take Profit 5 Green Profitunity for Amibroker (AFL)
Rating:
2 / 5 (Votes 4)
Tags:
profitunity, amibroker
This is part of profitunity system from Bill wiliams books, this signal for take profit when five green Zone break the low
Screenshots
Indicator / Formula
Copy & Paste Friendly
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 | // Setting Chart & plot candle_SECTION_BEGIN( "Price" );SetChartOptions( 0, chartShowArrows | chartShowDates );_N( Title = StrFormat( "{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, High %g, Low %g, Close %g (%.1f%%) , \n{{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ) );Plot( C, "Close", ParamColor( "Warna candle", colorDefault ), styleNoTitle | ParamStyle( "Style" ) | GetPriceStyle() );_SECTION_END();//------- ZONE Definition -------------------_SECTION_BEGIN ("ZONE") ; A = (H+L)/2 ; AO=MA(A,5)-MA(A,34); //2nd Wise Man AORed=AO<=Ref(AO,-1); AORed1=Ref(AO,-1)<=Ref(AO,-2); AORed2=Ref(AO,-2)<=Ref(AO,-3); AORed3=Ref(AO,-3)<=Ref(AO,-4); AORed4=Ref(AO,-4)<=Ref(AO,-5); AOGreen=AO>Ref(AO,-1); AOGreen1=Ref(AO,-1)>Ref(AO,-2); AOGreen2=Ref(AO,-2)>Ref(AO,-3); AOGreen3=Ref(AO,-3)>Ref(AO,-4); AOGreen4=Ref(AO,-4)>Ref(AO,-5); AOabove0=AO>0; AObelow0=AO<0; AC=AO-MA(AO,5);// Accelerator/Decelerator ACRed=AC<Ref(AC,-1); ACRed1=Ref(AC,-1)<Ref(AC,-2); ACRed2=Ref(AC,-2)<Ref(AC,-3); ACRed3=Ref(AC,-3)<Ref(AC,-4); ACRed4=Ref(AC,-4)<Ref(AC,-5); ACGreen=AC>Ref(AC,-1); ACGreen1=Ref(AC,-1)>Ref(AC,-2); ACGreen2=Ref(AC,-2)>Ref(AC,-3); ACGreen3=Ref(AC,-3)>Ref(AC,-4); ACGreen4=Ref(AC,-4)>Ref(AC,-5); // Zone Definition GreenZone=AOGreen AND ACGreen; GreenZ5=GreenZone AND (AOGreen1 AND ACGreen1) AND (AOGreen2 AND ACGreen2) AND (AOGreen3 AND ACGreen3) AND (AOGreen4 AND ACGreen4); GreenZ4=GreenZone AND (AOGreen1 AND ACGreen1) AND (AOGreen2 AND ACGreen2) AND (AOGreen3 AND ACGreen3); GreenZ3=GreenZone AND (AOGreen1 AND ACGreen1) AND (AOGreen2 AND ACGreen2); GreenZ2=GreenZone AND (AOGreen1 AND ACGreen1); Greenbar=IIf(greenz5,5,IIf(greenz4,4,IIf(greenz3,3,IIf(greenz2,2,IIf(greenzone,1,0))))); RedZone=AORed AND ACRed; RedZ5=RedZone AND (AORed1 AND ACRed1) AND (AORed2 AND ACRed2) AND (AORed3 AND ACRed3) AND (AORed4 AND ACRed4); RedZ4=RedZone AND (AORed1 AND ACRed1) AND (AORed2 AND ACRed2) AND (AORed3 AND ACRed3); RedZ3=RedZone AND (AORed1 AND ACRed1) AND (AORed2 AND ACRed2); RedZ2=RedZone AND (AORed1 AND ACRed1); Redbar=IIf(redz5,5,IIf(redz4,4,IIf(redz3,3,IIf(redz2,2,IIf(redzone,1,0))))); GreyZone= (AOGreen AND ACRed) OR (AORed AND ACGreen); GreyZ2=GreyZone AND ((AOGreen1 AND ACRed1) OR (AORed1 AND ACGreen1)); GreyZ3=GreyZ2 AND ((AOGreen2 AND ACRed2) OR (AORed2 AND ACGreen2)); GreyZ4=GreyZ3 AND ((AOGreen3 AND ACRed3) OR (AORed3 AND ACGreen3)); GreyZ5=GreyZ4 AND ((AOGreen4 AND ACRed4) OR (AORed4 AND ACGreen4)); Greybar=IIf(greyz5,5,IIf(greyz4,4,IIf(greyz3,3,IIf(greyz2,2,IIf(greyzone,1,0))))); Zonecolor= IIf(GreenZone,colorBrightGreen,IIf(RedZone,colorRed,colorGrey50)); PlotZone=ParamToggle("Plot Zone?","No|Yes",1) ; if(PlotZone) {Plot(2," Zone",Zonecolor,styleOwnScale|styleArea|styleNoLabel|styleNoTitle, -0.5, 100 );} //Take Profit 5 greenTP5G= Ref( GreenZone, -4 ) AND Ref( GreenZone, -3 ) AND Ref( GreenZone, -2 ) AND Ref( GreenZone, -1 ) AND GreenZone ;//PlotShape TP 5 GreenPlotTP5G = ParamToggle("Plot Take Profit 5 Green ?","No|Yes",1);if ( PlotTP5G){PlotShapes( IIf(TP5G , shapeStar,0),colorGrey50, 0, L,- 25);}// Tittle Take Profit TP 5 Green_N(Title=Title+EncodeColor(colorGrey50)+WriteIf(TP5G,"\n\n"+"TP5G = "+L+ "\n\n"+"TP5G Hit = "+(L-TickSize),""));_SECTION_END(); |
0 comments
Leave Comment
Please login here to leave a comment.
Back