/*
this afl is made for only intraday trading, works well with 5 minute chart. There is a white line, three resistance and three support
in black colour with
candlestick chart. If price starts going down below the white line then short sell target three support line and if price goes above
from white line then buy
with target of three black resistance line. After all by your experiences you will master yourself. Now this afl has been modified by the
its original writer
*/
_SECTION_BEGIN("MA Diff");
T=26;
KMA=((C-MA(C,T))/MA(C,T))*100;
Graph0=KMA;
Graph0Style=2+4;
Graph0BarColor=IIf(KMA>0,5,4);
GraphXSpace=5;
_SECTION_END();
SetChartBkColor(colorGrey40);
cx=Param("cxposn",1000,0,1000,1);
cy=Param("cyposn",6,0,1000,1);
GfxSetBkColor(ColorRGB(200,50,300));
GfxSelectFont( "Bodoni MT",18,98, False);
GfxSetTextColor( colorBlack);
GfxTextOut(" "+C+" ", cx, cy );
_SECTION_BEGIN("Name");
GfxSetOverlayMode(1);
GfxSelectFont("Tahoma", Status("pxheight")/20);
GfxSetTextAlign( 6 );// center alignment
GfxSetTextColor( ColorHSB( 10, 300, 20 ) );
GfxSetBkMode(0); // transparent
GfxTextOut( Name(), Status("pxwidth")/2, Status("pxheight")/20 );
GfxSelectFont("Tahoma", Status("pxheight")/22);
GfxTextOut( "SUBHAS801", Status("pxwidth")/8, Status("pxheight")/8 );
//GfxSelectFont("Tahoma", Status("pxheight")/10 );
//GfxSelectFont("Tahoma", Status("pxheight")/26 );
_SECTION_END();
e30 = EMA(Close,240);
f30 = EMA(Close,20);
Plot(EMA(Close,20),"fine2",colorBrightGreen,styleDots);
Plot(EMA(Close,240),"fine3",colorWhite,styleDots);
_SECTION_BEGIN("trend candle");
////////////////////////////////////
// Heikin_Ashi For Amibroker
////////////////////////////////////
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 ) );
PlotOHLC( Open, High, Low, Close, "Modified " + Name(), colorBrown, styleCandle | styleNoLabel );
//SetChartBkGradientFill( ParamColor("BgTop", colorBrightGreen),ParamColor("BgBottom", colorSeaGreen));
Title="";
_SECTION_END();
Buy = Cross(f30, e30);
Sell = Cross(e30, f30 );
AlertIf( Cross( f30,e30), "SOUND C:\\Windows\\Media\\Ringin.wav", "BUY-STRONG SIGNAL stockxray", 2 );
AlertIf( Cross( e30, f30 ), "SOUND C:\\Windows\\Media\\Ringin.wav","SELL-STRONG SIGNAL stockxray", 2 );
_SECTION_BEGIN("MABIUTS");
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) Vol " +WriteVal( V, 1.0 ) +" {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 )) ));
b=1;
bb=0.3;
Buy=EMA(C,13)>EMA(EMA(C,13),9) AND Cross (C,Peak(C,b,1));
Sell=Cross (EMA(EMA(C,13),9),EMA(C,13));
MYcolor = IIf( EMA(C,13)>EMA(EMA(C,13),9) AND C>Peak(C,bb,1), colorGreen, IIf(EMA(C,13)>EMA(EMA(C,13),9) AND C<Peak(C,bb,1),colorBlue, colorBrown ));
//PlotOHLC( Open, High, Low, Close, "", Mycolor, styleBar );
shape = Buy * shapeUpArrow + Sell * shapeHollowStar;
PlotShapes( shape, IIf( Buy, colorDarkGreen, colorRed ),0, IIf( Buy, Low, High ) );
GraphXSpace = 5;
dist = 1.5*ATR(10);
for( i = 0; i < BarCount; i++ )
if( Buy[i] )
//PlotText( "Buy\n@" + C[ i ], i, L[ i ]-dist[i], colorGreen );
if( Sell[i] )
//PlotText( "Sell\n@" + C[ i ], i, H[ i ]+dist[i], colorRed);
_SECTION_END();
//P = ParamField("Price field",-1);
//Periods = Param("Periods", 89, 2, 300, 1, 10 );
//Plot( WMA( P, Periods ), _DEFAULT_NAME(), ParamColor( "Color", colorCycle ), ParamStyle("Style") );
//m = 0;
_SECTION_BEGIN("WMA89");
P = ParamField("Field");
Type = ParamList("Type", "Weighted,Simple,Exponential,Double Exponential,Tripple Exponential,Wilders");
//Periods89 = Param("Periods89", 89, 2, 300 );
//Displacement2 = Param("Displacement2", 2, -50, 50 );
//Plot( WMA( P, Periods89 ), _DEFAULT_NAME(), colorBlue, styleStaircase+styleLine, 0, 0, Displacement2 );
_SECTION_END();
//P = ParamField("Price field",-1);
//Periods = Param("Periods", 89, 2, 300, 1, 10 );
//Plot( WMA( P, Periods ), _DEFAULT_NAME(), ParamColor( "Color", colorCycle ), ParamStyle("Style") );
//m = 0;
_SECTION_BEGIN("Volume At Price");
//PlotVAPOverlay( Param("Lines", 300, 100, 1000, 1 ), Param("Width", 5, 1, 100, 1 ), ParamColor("Color", colorCycle ), ParamToggle("Side", "Left|Right" ) | 4*ParamToggle("Z-order", "On top|Behind", 1 ) );
_SECTION_END();
//Displacement = Param("Displacement", 1, -50, 50 );
//m = 0;
_SECTION_END();
Pivot = ParamToggle("Pivot_day", "No|Yes", 1);
if(Pivot)
{
H1= TimeFrameGetPrice("H", inDaily, -1); // yesterdays high
L1 = TimeFrameGetPrice("L", inDaily, -1); // low
C1= TimeFrameGetPrice("C", inDaily, -1); // close
Op = TimeFrameGetPrice("O", inDaily)-1; // current day open
}
else
{
H1 = TimeFrameGetPrice("H", inDaily); // yesterdays high
L1 = TimeFrameGetPrice("L", inDaily); // low
C1= TimeFrameGetPrice("C", inDaily);
Op = TimeFrameGetPrice("O", inDaily); // current day open
}
// PIVOT Calculation
PP = (H1+ L1 +L1 + C1 )/4;
PPA = (H1+ H1 +L1 + C1 )/4;
Plot(PP, "best up",colorBlack,4+8+2048 );
Plot(PPA, "best down",colorBlack,4+8+2048 );
//Plot( (H1),"HH",colorBrown,4+8+2048);
//Plot( (L1),"LL",colorAqua,4+8+2048);
_SECTION_END();
//---- pivot points
DayH = TimeFrameGetPrice("H", inDaily, -1);// yesterdays high
DayL = TimeFrameGetPrice("L", inDaily, -1);//low
DayC = TimeFrameGetPrice("C", inDaily, -1);//close
DayO = TimeFrameGetPrice("O", inDaily);// current day open
HiDay = TimeFrameGetPrice("H", inDaily);
LoDay = TimeFrameGetPrice("L", inDaily);
R2 = Prec(DayC+(DayH-DayL)*0.382,4);
R3 = Prec(DayC+(DayH-DayL)*0.618,4);
R4 = Prec(DayC+(DayH-DayL),4);
S2 = Prec(DayC-(DayH-DayL)*0.382,4);
S3 = Prec(DayC-(DayH-DayL)*0.618,4);
S4 = Prec(DayC-(DayH-DayL),4);
rcolor = colorLightBlue;
scolor = colorLightBlue;
style = styleLine | styleThick + styleNoRescale;
Plot(R2, "UP Trg 1",rcolor,style);
Plot(R3, "UP Trg 2",rcolor,style);
Plot(R4, "UP Trg 3",rcolor,style);
Plot(S2, "DWN Trg1",scolor,style);
Plot(S3, "DWN Trg2", scolor, style);
Plot(S4, "DWN Trg3", scolor, style);
DDayO = TimeFrameGetPrice("O", inDaily);// current day open
DHiDay = TimeFrameGetPrice("H", inDaily);
DLoDay = TimeFrameGetPrice("L", inDaily);
Title = "" + Name() + ", " + Interval(2) + ", " + Date() +
EncodeColor(colorPink) + "\nO " + EncodeColor(colorYellow) + O +
EncodeColor(colorPink) + ", H : " + EncodeColor(colorBrightGreen) + H +
EncodeColor(colorPink) + ", L : " + EncodeColor(colorRed) + L +
EncodeColor(colorPink) + ", C : " + EncodeColor(colorWhite) + C +
"\n DLY-OPEN : " +DDayO + " Day-High : " +DHiDay + " Day-LOW : " + DLoDay +
"\n"+ " Stoploss: " +e30 ;
//PlotOHLC( Open, High, Low, Close, "", barcolor1, styleLine+styleNoLabel|styleThick+styleCandle );