// Downloaded From https://www.WiseStockTrader.com
_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( colorWhite); 
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 )) ));

Buy=EMA(C,13)>EMA(EMA(C,13),9) AND Cross (C,Peak(C,5,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,2,1), colorGreen, IIf(EMA(C,13)>EMA(EMA(C,13),9) AND C<Peak(C,2,1),colorBlue, colorBrown ));

//PlotOHLC( Open, High, Low, Close, "", Mycolor, styleBar );

shape = Buy * shapeHollowStar + Sell * shapeHollowStar;
PlotShapes( shape, IIf( Buy, colorGreen, 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 );