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 ....
V-Bottom for Amibroker (AFL)
Rating:
3 / 5 (Votes 2)
Tags:
trading system, amibroker, exploration, fractal
Uses fractal to identify buying points. 4% applied stop or close below the lowest previous fractal point.
Screenshots
Indicator / Formula
Copy & Paste Friendly
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));
//Plot( C, "Close", ParamColor("Color", colorDefault ), styleNoTitle ) ; //| ParamStyle("Style") | GetPriceStyle() );
//xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
_SECTION_BEGIN("V-Bottom");
XX = Optimize("trailpercent",4,1,25,1);
/*The following builds Fractal Down*/
var2=
(Ref(L,-2) <= Ref(L, -1)) AND
(Ref(L,-2) <= Ref(L, 0)) AND
(Ref(L,-2) <= Ref(L, -3)) AND
(Ref(L,-2) <= Ref(L, -4));
FractalDown=ValueWhen( var2,Ref(L,-2),1);
// FRACTAL
// Fraktal Naik
fUpA =
( Ref( H, -2 ) > Ref( H, -4 ) ) AND
( Ref( H, -2 ) > Ref( H, -3 ) ) AND
( Ref( H, -2 ) > Ref( H, -1 ) ) AND
( Ref( H, -2 ) > H );
fUpB =
( Ref( H, -2 ) > Ref( H, -5 ) ) AND
( Ref( H, -2 ) > Ref( H, -4 ) ) AND
( Ref( H, -2 ) == Ref( H, -3 ) ) AND
( Ref( H, -2 ) > Ref( H, -1 ) ) AND
( Ref( H, -2 ) > H );
fUpC =
( Ref( H, -2 ) > Ref( H, -6 ) ) AND
( Ref( H, -2 ) > Ref( H, -5 ) ) AND
( Ref( H, -2 ) == Ref( H, -4 ) ) AND
( Ref( H, -2 ) == Ref( H, -3 ) ) AND
( Ref( H, -2 ) > Ref( H, -1 ) ) AND
( Ref( H, -2 ) > H );
fUpD =
( Ref( H, -2 ) > Ref( H, -6 ) ) AND
( Ref( H, -2 ) > Ref( H, -5 ) ) AND
( Ref( H, -2 ) == Ref( H, -4 ) ) AND
( Ref( H, -2 ) > Ref( H, -3 ) ) AND
( Ref( H, -2 ) > Ref( H, -1 ) ) AND
( Ref( H, -2 ) > H );
fUpE =
( Ref( H, -2 ) > Ref( H, -8 ) ) AND
( Ref( H, -2 ) > Ref( H, -7 ) ) AND
( Ref( H, -2 ) == Ref( H, -6 ) ) AND
( Ref( H, -2 ) > Ref( H, -5 ) ) AND
( Ref( H, -2 ) == Ref( H, -4 ) ) AND
( Ref( H, -2 ) > Ref( H, -3 ) ) AND
( Ref( H, -2 ) > Ref( H, -1 ) ) AND
( Ref( H, -2 ) > H );
// Fraktal Turun
fDnA =
( Ref( L, -2 ) < Ref( L, -4 ) ) AND
( Ref( L, -2 ) < Ref( L, -3 ) ) AND
( Ref( L, -2 ) < Ref( L, -1 ) ) AND
( Ref( L, -2 ) < L );
fDnB =
( Ref( L, -2 ) < Ref( L, -5 ) ) AND
( Ref( L, -2 ) < Ref( L, -4 ) ) AND
( Ref( L, -2 ) == Ref( L, -3 ) ) AND
( Ref( L, -2 ) < Ref( L, -1 ) ) AND
( Ref( L, -2 ) < L );
fDnC =
( Ref( L, -2 ) < Ref( L, -6 ) ) AND
( Ref( L, -2 ) < Ref( L, -5 ) ) AND
( Ref( L, -2 ) == Ref( L, -4 ) ) AND
( Ref( L, -2 ) == Ref( L, -3 ) ) AND
( Ref( L, -2 ) < Ref( L, -1 ) ) AND
( Ref( L, -2 ) < L );
fDnD =
( Ref( L, -2 ) < Ref( L, -6 ) ) AND
( Ref( L, -2 ) < Ref( L, -5 ) ) AND
( Ref( L, -2 ) == Ref( L, -4 ) ) AND
( Ref( L, -2 ) < Ref( L, -3 ) ) AND
( Ref( L, -2 ) < Ref( L, -1 ) ) AND
( Ref( L, -2 ) < L );
fDnE =
( Ref( L, -2 ) < Ref( L, -8 ) ) AND
( Ref( L, -2 ) < Ref( L, -7 ) ) AND
( Ref( L, -2 ) == Ref( L, -6 ) ) AND
( Ref( L, -2 ) < Ref( L, -5 ) ) AND
( Ref( L, -2 ) == Ref( L, -4 ) ) AND
( Ref( L, -2 ) < Ref( L, -3 ) ) AND
( Ref( L, -2 ) < Ref( L, -1 ) ) AND
( Ref( L, -2 ) < L );
var1 = ValueWhen( fUpE OR fUpD OR fUpC OR fUpB OR fUpA, Ref( H, -2 ), 1 );
var2 = ValueWhen( fDnE OR fDnD OR fDnC OR fDnB OR fDnA, Ref( L, -2 ), 1 );
FrakNaik = HighestSince( var1 > 0, var1, 1 );
FrakTurun = LowestSince ( var2 > 0, var2, 1 );
LowerLL = Ref(FrakTurun,-1) < Ref(FrakTurun,-2 ) AND H > Ref(H,-1) ;
LowerL = Ref(FrakTurun,-1) < Ref(FrakTurun,-2 ) ;
SetTradeDelays(0,0,0,0) ;
Test= IIf( O > Ref( High, -1 ), O, Ref( High, -1 ) );
LLS = LowestSince(FrakTurun,FrakTurun,1);
Buy= LowerLL ; // AND Ref(H,2) > H ; //Ref(H,-1) ;
Sell = C< Ref(FrakTurun,-1) ; //C < Ref(LLV(l,10),-1 ) ;
ApplyStop(1,1,4,1,False,0,0,-1) ;
BuyPrice= test + 0.01 ;
Buy = ExRem( Buy, Sell ); //*removes extra signals
Sell = ExRem( Sell, Buy );
PlotShapes(Buy*shapeUpArrow,colorGreen,0,Low);
PlotShapes(Sell*shapeDownArrow,colorPink,0,High);
PlotShapes(Ref(LowerL,3)*shapeUpArrow,colorYellow,0,Low);
Plot( Close, "Down Frankturn", IIf( Ref(FrakTurun,2) < Ref(FrakTurun,1 ), colorYellow, colorRed ), styleBar | styleThick );
Plot( FrakTurun, "Down Frankturn", colorGold , styleDashed ) ;
/////////////////////////////////////////////////////////
///////////////////////// end ///////////////////////////
_SECTION_END();
filter = Ref(FrakTurun,-1)- FrakTurun >0 ;
AddColumn( FrakTurun, "Todays LL", 1.2);
AddColumn( Ref(FrakTurun,-1), "Yesterdays LL Change", 1.2);
AddColumn( Ref(FrakTurun,-1)- FrakTurun, "LL Change", 1.2);
AddColumn( LLS, "LowestSince", 1.2);
_SECTION_END();9 comments
Leave Comment
Please login here to leave a comment.
Back
@admin
sir can this formula be converted into sell only signals too ?? as it produces buy only signals.
please reply asap sir.
thanks.
@bobcat
sir can you please also provide sell only formula for the same code above mentioned please.
this one is quite great work sir.
please reply asap.
thanks.
@chetan I have changed the formula so it plots the sell signal too.
@admin
sir it is showing too many arguments in Ln 110, Cl 30
You probably have an ancient version of Amibroker. Try changing that line to the following:
ApplyStop(1,1,4,1,False);@admin thanks a ton sir….
LOL, Ancient version of Amibroker, this made my day, thanks Admin.
sorry
sorry