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 ....
Sygnały for Amibroker (AFL)
Rating:
3 / 5 (Votes 5)
Tags:
trading system, amibroker
Sygnały z tego AFL:
EMA-8,21
Flowers Candle i Candle-Normal.
ATR.
Linia ruchoma podążająca wraz z ceną.
Ichimoku:DL,C>SL AND TL>=SL.
MACD.
PDI,MDI.
Wszystkie wskaźniki można dowolnie ustawiać w sekcji “Parameters”
Indicator / Formula
Copy & Paste Friendly
_SECTION_BEGIN("System-Sygnały");
///////////////////////////////////
Title="{{NAME}} : {{INTERVAL}}";
_SECTION_BEGIN("Flower_HA_Normal Candle");
Show_color = ParamToggle("Display CandleColor", "No|Yes", 0);
r1 =5;
r2 =10;
r3 =5;
Prd1=4;
Prd2=7;
green = HHV(LLV(L,Prd1)+ATR(Prd1),Prd2);
red = LLV(HHV(H,Prd1)-ATR(Prd1),Prd2);
HaClose =EMA((O+H+L+C)/4,3);
HaOpen = AMA( Ref( HaClose, -1 ), 0.5 );
HaHigh = Max( H, Max( HaClose, HaOpen ) );
HaLow = Min( L, Min( HaClose, HaOpen ) );
Temp = Max(High, HaOpen);
Temp = Min(Low,HaOpen);
//////////
m1=MACD(r1,r2);
s1=Signal(r1,r2,r3);
mycolor=IIf(m1<0 AND m1>s1, ColorRGB(230,230,0),IIf(m1>0 AND m1>s1,colorLime,IIf(m1>0 AND m1<s1,colorOrange,colorDarkRed)));
if(Show_color)
{
ColorHighliter = mycolor;
SetBarFillColor( ColorHighliter );
}
barColor=IIf(C>Green ,colorLime,IIf(C < RED,colorRed,colorLightOrange));
barColor2=IIf(Close > Open, colorGreen, colorRed);
if( ParamToggle("Plot Normal Candle", "No,Yes", 1 ) )
PlotOHLC( HaOpen, HaHigh, HaLow, HaClose, " " , barcolor, styleCandle | styleThick );
else
PlotOHLC( Open, High, Low, Close, " " , barcolor2, styleCandle | styleThick );
_SECTION_END();
_SECTION_BEGIN("EMA 8");
P = ParamField("Price field",-1);
Periods = Param("Periods", 8, 10 );
WarunkiTrendu = C>EMA( P, Periods );
Plot( EMA( P, Periods ), "EMA",kolorZmienny = IIf(WarunkiTrendu, colorLime,colorRed),styleNoTitle|ParamStyle("Style", styleThick,maskAll));
_SECTION_END();
_SECTION_BEGIN("EMA 21");
P = ParamField("Price field",-1);
Periods = Param("Periods", 21, 10 );
WarunkiTrendu = C>EMA( P, Periods );
Plot( EMA( P, Periods ), "EMA",kolorZmienny = IIf(WarunkiTrendu, colorLime,colorRed),styleNoTitle|ParamStyle("Style", styleLine,maskAll));
_SECTION_END();
_SECTION_BEGIN("DL");
P = ParamField("Field");
Type = ParamList("Type", "DL");
Displacement = Param("Displacement", -21, -26, 52 );
DL = C;
Plot(ml= DL,"DL", ParamColor( "Color", colorPink),ParamStyle("Style", styleLine,maskAll), 0, 0, Displacement );
_SECTION_END();
_SECTION_BEGIN("Cena");
FS=Param("Font Size",24,11,100,1);
GfxSelectFont("Times New Roman", FS, 700, True );
GfxSetBkMode( colorWhite );
GfxSetTextColor( ParamColor("Color",colorGrey50) );
Hor=Param("Horizontal Position",730,1,1200,1);
Ver=Param("Vertical Position",24,1,28,1);
GfxTextOut(""+C, Hor , Ver );
GfxTextOut( Name(), Status("pxwidth")/3, Status("pxheight")/30 );
_SECTION_END();
P = ParamField("Price field",-1);
_SECTION_BEGIN("Linia Pozioma 1 ");
PriceLevel = ParamField("PriceField1", field = 3 );
Daysback = Param("Bar Back",1000,1,1000,1);
FirstBar = BarCount - DaysBack;
YY = IIf(BarIndex() >= Firstbar,EndValue(PriceLevel),Null);
sl=YY;
_SECTION_BEGIN("Linia Pozioma 2 ");
PriceLevel = ParamField("PriceField1", field = 4 );
Daysback = Param("EMA Back",1000,1,1000,1);
YY = IIf(BarIndex() >= Firstbar,EndValue(PriceLevel),Null);
ml=P;
ml=YY;
_SECTION_END();
{
SK=sl;
SD=ml;
}
{
SK=ml;
SD=sl;
}
Buy = Cross( SK, SD);
Sell = Cross( SD, SK);
Color = IIf( sl > ml, ParamColor("s2 Color", colorPaleGreen ) , ParamColor( "k2 Color", colorPink ) );
PlotOHLC ( sl, sl, ml, ml, "", Color, styleCloud | styleNoLabel, Null, Null);
_SECTION_END();
_SECTION_BEGIN("Ribbon-MACD,PDI,MDI");
uptrend=PDI()>MDI()AND Signal()<MACD();
downtrend=MDI()>PDI()AND Signal()>MACD();
Plot( 0.3, "ribbon",
IIf( uptrend, ParamColor( "uptrend", colorGreen ), IIf( downtrend, ParamColor( "downtrend", colorRed ),IIf(Signal()<MACD(),ParamColor( " Color1", colorPaleGreen ),ParamColor( " Color2", colorLightOrange ) ))), /* choose color */
styleOwnScale|styleArea|styleNoLabel, -0.5,40 );
_SECTION_END();
_SECTION_BEGIN("Ribbon DL Ichimoku");
prds = Param( "Standard Line Periods", 26, 5, 30, 1 );
turn = Param( "Turning Line Periods", 9, 3, 10, 1 );
span = Param( "Spans Periods", 52, 10, 120, 1 );
TL = ( HHV( H, turn ) + LLV( L, turn ) ) / 2;
SL = ( HHV( H, prds ) + LLV( L, prds ) ) / 2;
DL = C;
Span1 = ( SL + TL ) / 2;
Span2 = ( HHV( H, span ) + LLV( L, span ) ) / 2;
WarunkiTrendu = C>SL AND TL>=SL ;
kolorZmienny = IIf(WarunkiTrendu, ParamColor("Ichimoku Color",colorAqua), ParamColor("Ichimoku Color1",colorRed));
NR_P1 = Param("ICHIMOKU Location", -25, -1000, 1000, 0.1);
NR_P2 = Param("ICHIMOKU Height", 999.998, -0.002, 1000, 0.1);
Plot(7, "ICHIMOKU", kolorZmienny, styleOwnScale|styleArea|styleNoLabel, NR_P1,
NR_P2); // ICHIMOKU Trend
_SECTION_END();
_SECTION_BEGIN("Ribbon ADX");
range = Param("Periods", 14, 2, 200, 1 );
s=PDI(range);
k=MDI(range);
WarunkiTrendu = s>k ;
kolorZmienny = IIf(WarunkiTrendu, ParamColor("ADX Color",colorTurquoise), ParamColor("ADX Color1",colorRed));
NR_P1 = Param("ADX Location", -5, -1000, 1000, 0.1);
NR_P2 = Param("ADX Height", 999.998, -0.002, 1000, 0.1);
Plot(3, "ADX", kolorZmienny, styleOwnScale|styleArea|styleNoLabel, NR_P1,
NR_P2); // ADX Trend
_SECTION_END();
_SECTION_BEGIN("GraphXSpace");
space = Param("Space on Chart", 20, - 15, 50, 1);
GraphXSpace = space;
GraphXSpace = 10 ;
_SECTION_BEGIN("ATR-Area");
Factor=Param("Factor",3,1,10,0.1);
Pd=Param("ATR Periods",20,1,100,1);
Up=(H+L)/2+(Factor*ATR(Pd));
Dn=(H+L)/2-(Factor*ATR(Pd));
iATR=ATR(Pd);
TrendUp=TrendDown=Null;
trend[0]=1;
changeOfTrend=0;
flag=flagh=0;
for (i = 1; i <BarCount-1; i++) {
TrendUp[i] = Null;
TrendDown[i] = Null;
trend[i]=1;
if (Close[i]>Up[i-1]) {
trend[i]=1;
if (trend[i-1] == -1) changeOfTrend = 1;
}
else if (Close[i]<Dn[i-1]) {
trend[i]=-1;
if (trend[i-1] == 1) changeOfTrend = 1;
}
else if (trend[i-1]==1) {
trend[i]=1;
changeOfTrend = 0;
}
else if (trend[i-1]==-1) {
trend[i]=-1;
changeOfTrend = 0;
}
if (trend[i]<0 && trend[i-1]>0) {
flag=1;
}
else {
flag=0;
}
if (trend[i]>0 && trend[i-1]<0) {
flagh=1;
}
else {
flagh=0;
}
if (trend[i]>0 && Dn[i]<Dn[i-1]){
Dn[i]=Dn[i-1];
}
if (trend[i]<0 && Up[i]>Up[i-1])
{ Up[i]=Up[i-1];
}
if (flag==1)
{ Up[i]=(H[i]+L[i])/2+(Factor*iATR[i]);;
}
if (flagh==1)
{ Dn[i]=(H[i]+L[i])/2-(Factor*iATR[i]);;
}
if (trend[i]==1) {
TrendUp[i]=Dn[i];
if (changeOfTrend == 1) {
TrendUp[i-1] = TrendDown[i-1];
changeOfTrend = 0;
}
}
else if (trend[i]==-1) {
TrendDown[i]=Up[i];
if (changeOfTrend == 1) {
TrendDown[i-1] = TrendUp[i-1];
changeOfTrend = 0;
}
}
}
Plot(l=TrendUp,"Up",ParamColor("Trend up", colorLightBlue),ParamStyle("BreakoutLine",styleLine|styleHidden|styleDots,maskAll));
Plot(s=TrendDown,"Down",ParamColor("Trend down", colorRed),ParamStyle("BreakoutLine",styleLine|styleHidden|styleDots,maskAll));
l=TrendUp;
s=TrendDown;
Buy = trend==1;
Sell=trend==-1;
if (SelectedValue(Buy)==1) Say("A Te Er Wybicie w Górę");
if (SelectedValue(Sell)==1) Say("A Te Er Wybicie w Dół");
Buy=ExRem(Buy,Sell);
Sell=ExRem(Sell,Buy);
Short=Sell;
Cover=Buy;
BuyPrice=ValueWhen(Buy,C);
SellPrice=ValueWhen(Sell,C);
ShortPrice=ValueWhen(Short,C);
CoverPrice=ValueWhen(Cover,C);
k=C;
WarunkiTrendu = k>s;
DownTrendBegin = s > k;
UpTrendBegin = l > k;
DownTrend = Flip( DownTrendBegin, UpTrendBegin );
DownTrend = Flip( DownTrendBegin, UpTrendBegin );
Plot( DownTrend, "", ParamColor( " DownColor", ColorRGB(251,251,247)), styleArea | styleOwnScale | styleNoLabel, 0, 1, 0, -2 );
_SECTION_END();
4 comments
Leave Comment
Please login here to leave a comment.
Back
good job
this formula refers to future Quotes
sir ji hamku english jada nahi aatha
aap ka formula good job very wonder full sir ji
one request i am using your AFL formula and one advise dejiye aap formula install karneke bad Scroll karetho sound aa raha hai ji vo sound ku nikalna boletho kaisa help me sir hi
thanking you sir.
9032185184 my mobile number sir
dobra robota