//////************** By Easyalgo.in *************//////
////// +91-8448735946, Support@easyalgo.in  ///////////
//***************************************************//



 SetOption( "WarningLevel",True);
_SECTION_BEGIN("Day Grid");
ShowGrid = ParamList("Grid", "Off|Grid_Day|Grid_Week|Grid_Month|Grid_Quarter|Grid_Year",1);
color_Grid = ParamColor("Color_Grid",colorWhite);
Style_Grid = ParamStyle("Style_Grid ",styleHistogram|styleDashed|styleNoRescale|styleOwnScale,maskAll);
switch (ShowGrid )
{
case "Grid_Day":
Grid_Day = IIf(Day() != Ref(Day(), -1), 1, 0);
Plot(Grid_Day, "", color_Grid, Style_Grid );
break;
case "Grid_Week":
Grid_Week = IIf(DayOfWeek() < Ref(DayOfWeek(), -1), 1, 0);
Plot(Grid_Week, "", color_Grid, Style_Grid );
break;

case "Grid_Month":
Grid_Month = IIf(Month() != Ref(Month(),-1), 1, 0); 
Plot(Grid_Month, "", color_Grid, Style_Grid );
break;
case "Grid_Year":
Grid_year = IIf(Year() != Ref(Year(),-1), 1, 0); 
Plot(Grid_year, "", color_Grid, Style_Grid );
break;
case "Grid_Quarter":
LastDayofQuarter = Month() != Ref(Month(), 1)
AND (Month() == 3 OR Month() == 6 OR Month() == 9 OR Month() == 12);
Last_Quarter = IIf(Ref(LastDayofQuarter,-1), 1, 0);
Plot(Last_Quarter, "", color_Grid, Style_Grid);
break;
case "Off": 0;
break;
}

_SECTION_END();


_SECTION_BEGIN("Hi and LO of the day");
TLH = ParamToggle("Days Hi Lo","Off|On",1);
if (TLH==1) {
  Hodcolorsheme=ParamColor("High of day color",colorDarkRed);
  LodColorscheme=ParamColor("Low of day color",colorGreen);
  tempnum = TimeNum(); 
  temphi[0] = H[0]; 
  temphiColor[0] = Hodcolorsheme; 
  templo[0] = L[0]; 
  temploColor[0] = LodColorscheme; 
  for( i = 1; i < BarCount; i++ ) 
  { 
  if(tempnum[i] - tempnum[i-1] > Interval()) 
  { 
  if(H[i] > temphi[i-1]) 
  { 
  temphi[i] = H[i]; 
  temphiColor[i] = Hodcolorsheme; 
  } 
  else 
  { 
  temphi[i] = temphi[i-1]; 
  temphiColor[i] = Hodcolorsheme; 
  } 
  if(L[i] < templo[i-1]) 
  { 
  templo[i] = L[i]; 
  temploColor[i] = LodColorscheme; 
  } 
  else 
  { 
  templo[i] = templo[i-1]; 
  temploColor[i] = LodColorscheme; 
  } 

  } 
  else 
  { 
  temphi[i] = H[i]; 
  temphiColor[i] = Hodcolorsheme; 
  templo[i] = L[i]; 
  temploColor[i] = LodColorscheme; 
  } 
  } 
 
}
_SECTION_END();



_SECTION_BEGIN("Chart Settings");
	SetChartOptions(0,chartShowArrows|chartShowDates);
	SetChartBkColor(ParamColor("Outer Panel",colorBlack));
	SetChartBkGradientFill(ParamColor("Upper Chart",colorDarkTeal),ParamColor("Lower Chart",colorBlack));
	//GraphXSpace=Param("GraphXSpace",10,0,100,1);
	dec = (Param("Decimals",2,0,7,1)/10)+1;

Title = EncodeColor(55)+  Title = Name() + "     " + EncodeColor(ColorYellow) + Date() +
"      " + EncodeColor(5) + "{{INTERVAL}}  " +
	EncodeColor(55)+ "     Open = "+ EncodeColor(52)+ WriteVal(O,dec) + 
	EncodeColor(55)+ "     High = "+ EncodeColor(5) + WriteVal(H,dec) +
	EncodeColor(55)+ "      Low = "+ EncodeColor(ColorYellow)+ WriteVal(L,dec) + 
	EncodeColor(55)+ "    Close = "+ EncodeColor(52)+ WriteVal(C,dec)+
	EncodeColor(55)+ "    Day High = "+ EncodeColor(52)+ WriteVal(temphi,1)+
	EncodeColor(55)+ "    Day Low = "+ EncodeColor(52)+ WriteVal(templo,1);
	
	LB= Param("Look Back Periods",10,1,30,1);
	R=ValueWhen(Cross(MA(C,LB),C),HHV(H,LB),1);
	S=ValueWhen(Cross(C,MA(C,LB)),LLV(L,LB),1);
	Color=IIf(O>C,colorRed,colorGreen);
	Plot (C,"Close",colorDefault,64,32);
	GraphXSpace=4;
	
	uptrend=PDI()>MDI()AND Signal()<MACD();
downtrend=MDI()>PDI()AND Signal()>MACD();


Plot( 2, /* defines the height of the ribbon in percent of pane width */"ribbon",
IIf( uptrend, colorGreen, IIf( downtrend, colorRed, 0 )), /* choose color */
styleOwnScale|styleArea|styleNoLabel, -3.5, 100 );
	
	icol = IIf ( MA (Close,25) > Ref (MA (Close,25),-1),colorGreen,colorRed);


_SECTION_END();



_SECTION_BEGIN( "BASERECTANGEL" );
 
GfxSelectFont( "Arial", 10, 100 );
 GfxSetBkMode( 1 );
 GfxSetTextColor( colorBlue );
 GfxSelectSolidBrush( colorDarkGrey ); 
 GfxSelectPen( colorDarkGrey, 1 ); 
// broader color 
 GfxRectangle(0,15,203,420);

_SECTION_END();

_SECTION_BEGIN( "MSGRECTANGEL" );
 
GfxSelectFont( "Arial", 10, 100 );
 GfxSetBkMode( 1 );
 GfxSetTextColor( colorBlue );
 GfxSelectSolidBrush( colorBlack ); 
 //GfxSelectPen( colorBlue, 1 ); 
// broader color 
pxHeight = Status( "pxchartheight" ) ;
y = pxHeight;
 GfxRectangle(243,y-145,355,y+7);

_SECTION_END();


_SECTION_BEGIN("Price");

FS=Param("Font Size",20,11,100,1);
GfxSelectFont("Arial", 18, 700, True ); 
GfxSetBkMode( colorWhite );  
GfxSetTextColor( ParamColor("Color",colorWhite) ); 
Hor=Param("Horizontal Position",460,1,1200,1);
Ver=Param("Vertical Position",25,1,830,1); 
GfxTextOut(""+C, Hor , Ver );
YC=TimeFrameGetPrice("C",inDaily,-1);
DD=Prec(C-YC,2);

_SECTION_END();



_SECTION_BEGIN("Logo");



GfxSelectFont("arial", 10, 700 ); GfxSetBkMode( colorYellow );
GfxSetTextColor( ParamColor("Color",colorYellow) );
Hor=Param("Horizontal Position",0,10,1200,1);
Ver=Param("Vertical Position",390,100,50,50);

GfxTextOut(" www.technotradesystem.com  ",Hor , Ver );
_SECTION_END();

_SECTION_BEGIN("CName");

GfxSelectFont("arial", 11, 700 ); 
GfxSetTextColor( ParamColor("Color",colorYellow) );
Hor=Param("Horizontal Position",5,10,1200,1);
Ver=Param("Vertical Position",430,100,50,50);
pxHeight = Status( "pxchartheight" ) ;
y = pxHeight;
//GfxTextOut("T E C H N O T R A D E ",Hor , y-165 );
_SECTION_END();




_SECTION_BEGIN("PivotR");

pxHeight = Status( "pxchartheight" ) ;
y = pxHeight;

TimeFrameSet( in15Minute*2 ); 
DH=Ref(H,-1); 
DL=Ref(L,-1);
DC=Ref(C,-1);
 
 
pd = (O+ DH+ DL + DC )/4;
sd1 = (2*pd)-DH;
sd2 = pd -(DH - DL);
sd3 = Sd1 - (DH-DL); 
rd1 = (2*pd)-DL;
rd2 = pd +(DH -DL);
rd3 = rd1 +(DH-DL);

GfxSelectFont("arial", 11, 700 ); 
GfxSetTextColor( ParamColor("Color",colorRed) );
GfxTextOut("R3 : "+rd3,Hor+252 , y-138 );
GfxTextOut("R2 : "+rd2,Hor+252 , y-118 );
GfxTextOut("R1 : "+rd1,Hor+252 , y-98 );
_SECTION_END();

_SECTION_BEGIN("Pivot");
GfxSetTextColor( ParamColor("Color",colorYellow) );
GfxTextOut("PP : "+pd,Hor+252 , y-78 );
_SECTION_END();

_SECTION_BEGIN("PivotS");

GfxSetTextColor( ParamColor("Color",colorLime) );
GfxTextOut("S1 : "+sd1,Hor+252 , y-58 );
GfxTextOut("S2 : "+sd2,Hor+252 , y-38 );
GfxTextOut("S3 : "+sd3,Hor+252 , y-18 );


TimeFrameRestore();



_SECTION_END();


_SECTION_BEGIN("Flower");
Show_color = ParamToggle("Display CandleColor", "No|Yes", 1);
r1 = Param( "ColorFast avg", 5, 2, 200, 1 );
r2 = Param( "ColorSlow avg", 10, 2, 200, 1 );
r3 = Param( "ColorSignal avg", 5, 2, 200, 1 );

Prd1=Param("ATR Period",4,1,20,1);
Prd2=Param("Look Back",7,1,20,1);
green = HHV(LLV(L,Prd1)+ATR(Prd1),Prd2);
red = LLV(HHV(H,Prd1)-ATR(Prd1),Prd2);
flowerClose = EMA((Open+High+Low+Close)/4,3) ;
flowerOpen = EMA((Ref(Open,-1) + Ref(flowerClose,-1))/2,3);
Temp = Max(High, flowerOpen);
flowerHigh = EMA(Max(Temp, flowerClose),3);
Temp = Min(Low,flowerOpen);
flowerLow = EMA(Min(Temp, flowerClose),3);



m1=MACD(r1,r2);
s1=Signal(r1,r2,r3);
mycolor=IIf(m1<0 AND m1>s1, colorYellow,IIf(m1>0 AND 

m1>s1,colorWhite,IIf(m1>0 AND m1<s1,colorDarkYellow,colorRed)));
if(Show_color)
{
ColorHighliter = myColor;
SetBarFillColor( ColorHighliter );
}

barColor=IIf(C>Green ,colorWhite,IIf(C < RED,colorRed,colorWhite));


PlotOHLC( IIf(flowerOpen<flowerClose, flowerOpen, 

flowerClose),flowerHigh,flowerLow,IIf(flowerOpen<flowerClose, flowerClose, 

flowerOpen), "Close", barColor, styleNoTitle | styleNoDraw);



_SECTION_END();


 
_SECTION_BEGIN("Breakout Setting");
 Buyperiods=Param("Breakout periods best is usually 18",5,1,100,1,1);
 Sellperiods=Param("Exit Breakout",5,1,100,1,1);

 HaClose =EMA((O+H+L+C)/4,3); // Woodie 
 //HaClose =(O+H+L+C)/4; 
 HaOpen = AMA( Ref( HaClose, -1 ), 0.5 ); 
 HaHigh = Max( H, Max( HaClose, HaOpen ) ); 
 HaLow = Min( L, Min( HaClose, HaOpen ) ); 
 Buy= C>Ref(HHV(High,Buyperiods),-1) ;
 Sell= C<Ref(LLV(Low,Sellperiods),-1);

 /* exrem is one method to remove surplus strade signals. It removes excessive signals of arrow */
 Buy = ExRem(Buy, Sell);
 Sell = ExRem(Sell, Buy);

 //PlotShapes( IIf( Buy, shapeSmallUpTriangle, shapeNone ), colorWhite, layer = 0,yposition = HaLow, offset = -30);
 //PlotShapes( IIf( Buy, shapeSmallCircle, shapeNone ), colorWhite, layer = 0,yposition = HaLow, offset = -8);

 //PlotShapes( IIf( Sell, shapeSmallDownTriangle, shapeNone ), colorRed, layer = 0, yposition = HaHigh, offset = -30);
 //PlotShapes( IIf( Sell, shapeSmallCircle, shapeNone ), colorRed, layer = 0, yposition = HaHigh, offset = -8);

 _SECTION_END();

TurnedUp=Nz(StaticVarGet("TurnedUp"));
TurnedDown=Nz(StaticVarGet("TurnedDown"));
SoundON = ParamToggle("Sound","Off|On",1); 
  

 for (i=0; i<BarCount; i++) {
 if ( SoundON==True && !TurnedUp && Buy[i] && i==BarCount-1 ){
  Say("Hello, Buy Call, Generated");
 TurnedUp=StaticVarSet("TurnedUp",1);
 TurnedDown=StaticVarSet("TurnedDown",0);
 }

 if ( SoundON==True && !TurnedDown && Sell[i] && i==BarCount-1 ){
  Say("Hello, Sell Call, Generated");
  TurnedUp=StaticVarSet("TurnedUp",0);
  TurnedDown=StaticVarSet("TurnedDown",1);
 }}

//#include <T3.AFL>;

_SECTION_BEGIN("PFE");

pds=10; 
x=sqrt((ROC(C,9)*ROC(C,9))+100);
y=Sum(sqrt((ROC(C,1)* ROC(C,1))+1),pds);
z=(x/y);
pfe=EMA(IIf(C>Ref(C,-9),z,-z)*100,5);

rsidn=pfe <-10 AND pfe<Ref(pfe,-1);
rsiup=pfe >10 AND pfe>Ref(pfe,-1);



 rsiresult1 = WriteIf( rsiup,"cu", "");
 rsiresult2 = WriteIf( rsidn,"cd", "");




 RequestTimedRefresh( 0 );
 GfxSelectFont( "Tahoma", 12, 120 );
 GfxSetBkMode( 1 );
 GfxSetTextColor( colorWhite );

 if ( rsiresult1 =="cu")
 {
 GfxSelectSolidBrush( ColorRGB(0,90,0) ); 

 }
 else

 if ( rsiresult2 =="cd")

 {
 GfxSelectSolidBrush( ColorRGB(90,0,0)); 

 }

 else

 if ( rsiresult2 =="")

 {
 GfxSelectSolidBrush(  ColorRGB(0,0,94)  ); 

 }

 GfxSelectFont( "Arial", 10, 100 );
 GfxSetBkMode( 1 );
 GfxSetTextColor( colorBlue );


 GfxCircle( 100,90,50 );
 _SECTION_END();



                                                                                            

//GfxRoundRect( 15,305,135,215, 5, 5 );
 GfxCircle( 100,100,70 );
 _SECTION_END();


_SECTION_BEGIN("STC");

_SECTION_BEGIN("Schaff Trend Cycle");
/*
Ported directly from original STC Tradestation code
results differ from other Amibroker versions that are not based directly on original EasyLanguage code
http://mediaserver.fxstreet.com/Reports/99afdb5f-d41d-4a2c-802c-f5d787df886c/ebfbf387-4b27-4a0f-848c-039f4ab77c00.pdf
*/
MA1=23;
MA2=50;
TCLen=10;
MA1=Param("ShortMACDLen",23,5,36);
MA2=Param("LOngMACDLen",50,10,100);
TCLen=Param("TCLen(StochPeriod)",10,5,20);
Factor=.5;
//Calculate a MACD Line
XMac = MACD(MA1,MA2) ; // MACD in Amibroker always uses Close for MACD calculation

//1st Stochastic: Calculate Stochastic of a MACD
Value1 = LLV(XMac, TCLen);
Value2 = HHV(XMac, TCLen) - Value1;

//Frac1=1; // prime Frac1 to a default of 1
//Frac1 = IIf(Value2 > 0, ((XMac - Value1) / Value2) * 100, Ref(FRAC1,-1));
// have to "prime" first value so that reference to "i-1" does not result in subscript out of range
// since MACD for both periods is not defined until MA2 period, 0 seems to be mathematically correct priming value
frac1=0;
for (i = 1; i < BarCount; i++) {
if (Value2[i] > 0) {
	frac1[i] = ((XMac[i] - Value1[i])/Value2[i])*100;
	}
else {
	frac1[i]= frac1[i-1];
	}
}

//Smoothed calculation for %FastD of MACD

PF[0]=frac1[0]; 
PF[1]=frac1[1];
for (i = 2; i < BarCount; i++) {
	PF[i]=PF[i-1]+(Factor*(frac1[i]-PF[i-1]));
}


//2nd Stochastic: Calculate Stochastic of Smoothed Percent FastD, above.
Value3 = LLV(PF, TCLen);
Value4 = HHV(PF, TCLen) - Value3;

//%FastK of PF
/*
Frac2=1;
Frac2 = IIf(Value4 > 0, ((PF - Value3) / Value4) * 100, Ref(FRAC2,-1));
*/

frac2[0]=0;
for (i = 1; i < BarCount; i++) {
	if (Value4[i] > 0 ) {
		frac2[i]=((PF[i] - Value3[i])/Value4[i])*100;
	}
	else {
		frac2[i]=frac2[i-1];
	}
}

//Smoothed calculation for %FastD of PF
PFF[0]=frac2[0];
PFF[1]=frac2[1];
for (i = 2; i < BarCount; i++) {
	PFF[i]=PFF[i-1]+(Factor*(frac2[i]-PFF[i-1]));
}

 //HT=ParamColor("HT", colorRed );

 rsidn=pff <2;
 rsiup=pff >98;


 rsiresult1 = WriteIf( rsiup,"cu", "");
 rsiresult2 = WriteIf( rsidn,"cd", "");




 RequestTimedRefresh( 0 );
 GfxSelectFont( "Tahoma", 12, 120 );
 GfxSetBkMode( 1 );
 GfxSetTextColor( colorWhite );

 if ( rsiresult1 =="cu")
 {
 GfxSelectSolidBrush( ColorRGB(0,120,0) ); 

 }
 else

 if ( rsiresult2 =="cd")

 {
 GfxSelectSolidBrush( ColorRGB(120,0,0)); 

 }

 else

 if ( rsiresult2 =="")

 {
 GfxSelectSolidBrush(  ColorRGB(0,0,94)  ); 

 }

 GfxSelectFont( "Arial", 10, 100 );
 GfxSetBkMode( 1 );
 GfxSetTextColor( colorBlue );


 GfxCircle( 100,100,60 );
 _SECTION_END();


 _SECTION_BEGIN("rsi");

 //HT=ParamColor("HT", colorRed );

 rsidn=RSI(7) <30;
 rsiup=RSI(7) >70;


 rsiresult1 = WriteIf( rsiup,"cu", "");
 rsiresult2 = WriteIf( rsidn,"cd", "");




 RequestTimedRefresh( 0 );
 GfxSelectFont( "Tahoma", 12, 120 );
 GfxSetBkMode( 1 );
 GfxSetTextColor( colorWhite );

 if ( rsiresult1 =="cu")
 {
 GfxSelectSolidBrush( ColorRGB(0,150,0) ); 

 }
 else

 if ( rsiresult2 =="cd")

 {
 GfxSelectSolidBrush( ColorRGB(150,0,0)); 

 }

 else

 if ( rsiresult2 =="")

 {
 GfxSelectSolidBrush(  ColorRGB(0,0,94)  ); 

 }

 GfxSelectFont( "Arial", 10, 100 );
 GfxSetBkMode( 1 );
 GfxSetTextColor( colorBlue );


 GfxCircle( 100,100,50 );
 _SECTION_END();


 _SECTION_BEGIN("Rays");

 //FT=ParamColor("FT", colorRed );

 Pp1=3;
 Pp2=2;

 CS33=HHV(LLV(flowerHigh,Pp1)-ATR(Pp2),4); 
 CR33=HHV(LLV(flowerHigh,Pp1)-ATR(Pp2),5);

 AtrupTrendCond1 = flowerClose> CS33 ;
 AtrdnTrendCond1 =CS33>flowerClose ;


 ATRup = WriteIf(AtrupTrendCond1,"atrup", "");
 ATRdown= WriteIf( AtrdnTrendCond1,"atrdn", "");

 if ( ATRup =="atrup")
 {
 GfxSelectSolidBrush( ColorRGB(0,180,0) ); 

 }
 else

 if (ATRdown =="atrdn")

 {
 GfxSelectSolidBrush( ColorRGB(180,0,0)); 

 }

 else

 if ( ATRdown =="")

 {
 GfxSelectSolidBrush(  ColorRGB(0,0,94)  ); 

 }

 GfxSelectFont( "Arial", 10, 100 );
 GfxSetBkMode( 1 );
 GfxSetTextColor( colorBlue );

 GfxSelectPen( colorBlue, 1 ); // broader color 
 GfxCircle( 100,100,40 );

 _SECTION_END();


 _SECTION_BEGIN("Exit_Beast-3");

 //GT=ParamColor("GT", colorRed );

 EntrylookbackPeriod=10;
 EntryATRperiod=1.9;
 EntrySig = C > ( LLV( flowerLow, EntrylookbackPeriod ) + EntryATRperiod * ATR( 10 ) );
 ExitSig = C < ( HHV( flowerHigh, EntrylookbackPeriod ) -EntryATRperiod * ATR( 10 ) );


 RequestTimedRefresh( 0 );
 GfxSelectFont( "Tahoma", 12, 100 );
 GfxSetBkMode( 1 );
 GfxSetTextColor( colorWhite );

 EntryB = WriteIf( EntrySig,"eu", "");
 ExitB = WriteIf( ExitSig,"ed", "");

 if ( EntryB =="eu")
 {
 GfxSelectSolidBrush( ColorRGB(0,210,0) ); //

 }
 else

 if ( ExitB =="ed")

 {
 GfxSelectSolidBrush( ColorRGB(210,0,0)); //

 }

 else

 if ( ExitB =="")

 {
 GfxSelectSolidBrush(  ColorRGB(0,0,94)  ); 

 }

 GfxSelectFont( "Arial", 10, 100 );
 GfxSetBkMode( 1 );
 GfxSetTextColor( colorBlue );

 GfxSelectPen( colorBlue, 1 ); // broader color 
 GfxCircle( 100,100,30 );// changing the value of x,y,rad x-70, y-90, rad-24

 _SECTION_END();



 _SECTION_BEGIN("CCI9-2");

 //HT=ParamColor("HT", colorRed );

 ccidn=CCI(8) < 0;
 cciup=CCI(9) > 0;


 ccresult1 = WriteIf( cciup,"cu", "");
 ccresult2 = WriteIf( ccidn,"cd", "");




 RequestTimedRefresh( 0 );
 GfxSelectFont( "Tahoma", 12, 100 );
 GfxSetBkMode( 1 );
 GfxSetTextColor( colorWhite );

 if ( ccresult1 =="cu")
 {
 GfxSelectSolidBrush( ColorRGB(0,240,0) ); 

 }
 else

 if ( ccresult2 =="cd")

 {
 GfxSelectSolidBrush( ColorRGB(240,0,0)); 

 }

 else

 if ( ccresult2 =="")

 {
 GfxSelectSolidBrush(  ColorRGB(0,0,94)  ); 

 }

 GfxSelectFont( "Arial", 10, 100 );
 GfxSetBkMode( 1 );
 GfxSetTextColor( colorBlue );

 GfxSelectPen( colorBlue, 1 ); // broader color 
 GfxCircle( 100,100,20);




 _SECTION_END();




 _SECTION_BEGIN("%BB7-1");

 //IT=ParamColor("IT", colorRed );
 p=7;
 x=((C+2*StDev(C,p)-MA(C,p))/(4*StDev(C,p)))*100;
 bbdown= x < 40;
 bbup= x > 40;

 bbresult1 = WriteIf( bbup,"bu", "");
 bbresult2 = WriteIf( bbdown,"bd", "");
 bbresult3 = WriteIf( C,"bearishrevers", "");



 RequestTimedRefresh( 0 );
 GfxSelectFont( "Tahoma", 12, 100 );
 GfxSetBkMode( 1 );
 GfxSetTextColor( colorWhite );

 if ( bbresult1 =="bu")
 {
 GfxSelectSolidBrush( ColorRGB(62,255,62) ); 

 }
 else

 if ( bbresult2 =="bd")

 {
 GfxSelectSolidBrush( ColorRGB(255,62,62) ); 

 }

 else

 if ( bbresult2 =="")

 {
 GfxSelectSolidBrush(  ColorRGB(0,0,94)  ); 

 }

 GfxSelectFont( "Arial", 10, 100 );
 GfxSetBkMode( 1 );
 GfxSetTextColor( colorBlue );

 GfxSelectPen( colorBlue, 1 ); // broader color 
 GfxCircle( 100,100,10 );


 _SECTION_END();


_SECTION_BEGIN("MACDHIGHBULLISH");
r1 = Param( "Fast avg", 12, 2, 200, 1 );
r2 = Param( "Slow avg", 26, 2, 200, 1 );
r3 = Param( "Signal avg", 9, 2, 200, 1 );
r4 = Param( "Wk slow", 17, 2, 200, 1 );
r5 = Param( "Wk fast", 8, 2, 200, 1 );
m1=MACD(r1,r2);
s1=Signal(r1,r2,r3);





rsidn=m1>0 AND m1>s1;
rsiresult2 = WriteIf( rsidn,"cd", "");
if ( rsiresult2 =="cd")

 {
 GfxSelectSolidBrush( ColorRGB(0,147,0)); 

 }

 else

 if ( rsiresult2 =="")

 {
 GfxSelectSolidBrush( ColorRGB(0,0,94) ); 

 }
 RequestTimedRefresh( 0 );
 GfxSelectFont( "Arial", 10, 100 );
 GfxSetBkMode( 1 );
 GfxSetTextColor( colorBlue );

 GfxSelectPen( colorBlue, 1 ); 
// broader color 

 GfxRectangle(80,220,120,280);
_SECTION_END();

_SECTION_BEGIN("MACDLOWHBULLISH");
r1 = Param( "Fast avg", 12, 2, 200, 1 );
r2 = Param( "Slow avg", 26, 2, 200, 1 );
r3 = Param( "Signal avg", 9, 2, 200, 1 );
r4 = Param( "Wk slow", 17, 2, 200, 1 );
r5 = Param( "Wk fast", 8, 2, 200, 1 );
m1=MACD(r1,r2);
s1=Signal(r1,r2,r3);





rsidn=m1<0 AND m1>s1;
rsiresult2 = WriteIf( rsidn,"cd", "");
if ( rsiresult2 =="cd")

 {
 GfxSelectSolidBrush( ColorRGB(0,147,0)); 

 }

 else

 if ( rsiresult2 =="")

 {
 GfxSelectSolidBrush( ColorRGB(0,0,94) ); 

 }
 RequestTimedRefresh( 0 );
 GfxSelectFont( "Arial", 10, 100 );
 GfxSetBkMode( 1 );
 GfxSetTextColor( colorBlue );

 GfxSelectPen( colorBlue, 1 ); 
// broader color 

 GfxRectangle(120,315,180,280);
_SECTION_END();

_SECTION_BEGIN("MACDLOWHBEARISH");
r1 = Param( "Fast avg", 12, 2, 200, 1 );
r2 = Param( "Slow avg", 26, 2, 200, 1 );
r3 = Param( "Signal avg", 9, 2, 200, 1 );
r4 = Param( "Wk slow", 17, 2, 200, 1 );
r5 = Param( "Wk fast", 8, 2, 200, 1 );
m1=MACD(r1,r2);
s1=Signal(r1,r2,r3);





rsidn=m1>0 AND m1<s1;
rsiresult2 = WriteIf( rsidn,"cd", "");
if ( rsiresult2 =="cd")

 {
 GfxSelectSolidBrush( ColorRGB(225,0,0)); 

 }

 else

 if ( rsiresult2 =="")

 {
 GfxSelectSolidBrush( ColorRGB(0,0,94) ); 

 }
 RequestTimedRefresh( 0 );
 GfxSelectFont( "Arial", 10, 100 );
 GfxSetBkMode( 1 );
 GfxSetTextColor( colorBlue );

 GfxSelectPen( colorBlue, 1 ); 
// broader color 

 GfxRectangle(20,315,80,280);
_SECTION_END();

_SECTION_BEGIN("MACDHIGHHBEARISH");
r1 = Param( "Fast avg", 12, 2, 200, 1 );
r2 = Param( "Slow avg", 26, 2, 200, 1 );
r3 = Param( "Signal avg", 9, 2, 200, 1 );
r4 = Param( "Wk slow", 17, 2, 200, 1 );
r5 = Param( "Wk fast", 8, 2, 200, 1 );
m1=MACD(r1,r2);
s1=Signal(r1,r2,r3);





rsidn=m1<0 AND m1<s1;
rsiresult2 = WriteIf( rsidn,"cd", "");
if ( rsiresult2 =="cd")

 {
 GfxSelectSolidBrush( ColorRGB(225,0,0)); 

 }

 else

 if ( rsiresult2 =="")

 {
 GfxSelectSolidBrush( ColorRGB(0,0,94) ); 

 }
 RequestTimedRefresh( 0 );
 GfxSelectFont( "Arial", 10, 100 );
 GfxSetBkMode( 1 );
 GfxSetTextColor( colorBlue );

 GfxSelectPen( colorBlue, 1 ); 
// broader color 

 GfxRectangle(80,375,120,315);
_SECTION_END();
 

_SECTION_BEGIN("spiker");
C1 = Ref(C, -1);
uc = C > C1; dc = C <= C1;
ud = C > O; dd = C <= O;


green = 1; blue = 2; yellow = 3; red = 4; white = 5;
VType = IIf(ud,          
         IIf(uc, green, yellow),
       IIf(dd, 
         IIf(dc, red, blue), white));

/* green volume: up-day and up-close*/
gv = IIf(VType == green, V, 0); 
/* yellow volume: up-day but down-close */
yv = IIf(VType == yellow, V, 0); 
/* red volume: down-day and down-close */
rv = IIf(VType == red, V, 0); 
/* blue volume: down-day but up-close */
bv = IIf(VType == blue, V, 0); 


uv = gv + bv; uv1 = Ref(uv, -1); /* up volume */
dv = rv + yv; dv1 = Ref(dv, -1); /* down volume */


VolPer = Param("Adjust Vol. MA per.", 10, 1, 255, 1);
ConvPer = Param("Adjust Conv. MA per.", 4, 1, 255, 1);


MAuv = TEMA(uv, VolPer ); mauv1 = Ref(mauv, -1);
MAdv = TEMA(dv, VolPer ); madv1 = Ref(madv, -1);
MAtv = TEMA(V, VolPer );//total volume

//////************** By Easyalgo.in *************//////
////// +91-8448735946, Support@easyalgo.in  ///////////
//***************************************************//



Converge = (TEMA(MAuv - MAdv, ConvPer));
Converge1 = Ref(Converge, -1);
ConvergeUp = Converge > Converge1;
ConvergeOver = Converge > 0;
rising = ConvergeUp AND ConvergeOver;
falling = !ConvergeUp AND ConvergeOver;


_SECTION_END();

_SECTION_BEGIN("bearishline");
GfxSelectFont( "Arial", 10, 100 );
 GfxSetBkMode( 1 );
 GfxSetTextColor( colorRed );

 GfxSelectPen( colorRed, 1 ); 


GfxMoveTo( 25,320 );
GfxLineTo( 75, 370 );  
_SECTION_END();
_SECTION_BEGIN("bullishline");
GfxSelectFont( "Arial", 10, 100 );
 GfxSetBkMode( 1 );
 GfxSetTextColor( colorGreen );

 GfxSelectPen( colorGreen, 1 ); 


 //////************** By Easyalgo.in *************//////
////// +91-8448735946, Support@easyalgo.in  ///////////
//***************************************************//


GfxMoveTo( 125,225 );
GfxLineTo( 175, 275 );  
_SECTION_END();

_SECTION_BEGIN("trendline");

farback=Param("How Far back to go",100,50,5000,10);
nBars = Param("Number of bars", 12, 5, 40);
aHPivs = H - H;aLPivs = L - L;
aHPivHighs = H - H;aLPivLows = L - L;aHPivIdxs = H - H;aLPivIdxs = L - L;
nHPivs = 0;nLPivs = 0;lastHPIdx = 0;lastLPIdx = 0;lastHPH = 0;lastLPL = 0;
curPivBarIdx = 0;
//aHHVBars = HHVBars(H, nBars);aLLVBars = LLVBars(L, nBars);
//aHHV = HHV(H, nBars);aLLV = LLV(L, nBars);
//aVisBars = Status("barvisible");nLastVisBar = LastValue(Highest(IIf(aVisBars, BarIndex(), 0)));
//_TRACE("Last visible bar: " + nLastVisBar);
//curBar = (BarCount-1);curTrend = "";if (aLLVBars[curBar] < aHHVBars[curBar]) {
//curTrend = "D";}else {curTrend = "U";}
//for (i=0; i<farback; i++) {curBar = (BarCount - 1) - i;
a1=ahpivs==1;a2=alpivs==1;
x = Cum(1);s1=L;s11=H;pS = a2 == 1;
endt= SelectedValue(ValueWhen( pS, x, 1 ));
startt=SelectedValue(ValueWhen( pS, x, 2 ));
dtS =endt-startt;
endS = SelectedValue(ValueWhen( pS, s1, 1 ) );
startS = SelectedValue( ValueWhen( pS, s1, 2 ));aS = (endS-startS)/dtS;
bS = endS;trendlineS = aS * ( x -endt ) + bS;
g3= IIf(x>startt-10,trendlineS,-1e10);

_SECTION_END();

_SECTION_BEGIN("trendlineA");
dn=g3>C;
up=g3<C;
 bbresult1 = WriteIf( dn,"dn", "");
 bbresult2 = WriteIf( up,"up", "");
 RequestTimedRefresh( 0 );
 if ( bbresult1 =="dn")
 {
 GfxSelectSolidBrush( ColorRGB(255,0,0) ); 

 }
 else

 if ( bbresult2 =="up")

 {
 GfxSelectSolidBrush( ColorRGB(0,147,0) ); 

 }

GfxSelectFont( "Arial", 10, 100 );
 GfxSetBkMode( 1 );
 GfxSetTextColor( colorWhite );
GfxSelectPen( colorWhite, 1 ); 

 GfxCircle( 30,229,8 );
 _SECTION_END();
 
_SECTION_BEGIN("trendlineA");
dn=g3>C;
up=g3<C;
 bbresult1 = WriteIf( dn,"dn", "");
 bbresult2 = WriteIf( up,"up", "");
 RequestTimedRefresh( 0 );
 if ( bbresult1 =="dn")
 {
 GfxSelectSolidBrush( ColorRGB(255,0,0) ); 

 }
 else

 if ( bbresult2 =="up")

 {
 GfxSelectSolidBrush( ColorRGB(0,147,0) ); 

 }

GfxSelectFont( "Arial", 10, 100 );
 GfxSetBkMode( 1 );
 GfxSetTextColor( colorWhite );
GfxSelectPen( colorWhite, 1 ); 

 GfxCircle( 168,367,8 );
 _SECTION_END();

_SECTION_BEGIN("TRENDLINEline");
GfxSelectFont( "Arial", 10, 100 );
 GfxSetBkMode( 1 );
 GfxSetTextColor( colorWhite );

 GfxSelectPen( colorWhite, 1 ); 

//////************** By Easyalgo.in *************//////
////// +91-8448735946, Support@easyalgo.in  ///////////
//***************************************************//

 

GfxMoveTo( 35,234 );
GfxLineTo( 163, 362 );  
_SECTION_END();
_SECTION_END();



_SECTION_BEGIN("traing sl");

function vstop_func(trBull,trBear)
{
	trailArray[ 0 ] = C[ 0 ]; // initialize
	for( i = 1; i < BarCount; i++ )
	{
		prev = trailArray[ i - 1 ];
 
		if (C[ i ] > prev AND C[ i - 1 ] > prev)
		{
			trailArray[ i ] = Max(prev,C[ i ] - trBull[ i ]);
		}
		else if (C[ i ] < prev AND C[ i - 1 ] < prev)
		{
			trailArray[ i ] = Min(prev,C[ i ] + trBear[ i ]);
		}
		else if (C[ i ] > prev)
		{
			trailArray[ i ] = C[ i ] - trBull[ i ];
		}
		else
		{
			trailArray[ i ] = C[ i ] + trBear[ i ];	
		}
	}
	return trailArray;
}

per = 20;
multBull = 2;
multBear = 2;

trBull = multBull * ATR(per);
trBear = multBear * ATR(per);

trailArray = vstop_func(trBull,trBear);
s0=trailArray;

s1= s0 > C ;
s2= s0 <C ;
ccresult1 = WriteIf( s1,"cu", "");
 ccresult2 = WriteIf( s2,"cd", "");

GfxSelectFont("arial", 13, 700 ); GfxSetBkMode( colorRed);
GfxSetTextColor( ParamColor("Color",colorRed) );
Hor=Param("Horizontal Position",30,10,1200,1);
Ver=Param("Vertical Position",185,100,50,50);
//////************** By Easyalgo.in *************//////
////// +91-8448735946, Support@easyalgo.in  ///////////
//***************************************************//

if ( ccresult1 =="cu")


{
 GfxTextOut(""+s0,Hor , Ver );
}
else

GfxSelectFont("arial", 13, 700 ); GfxSetBkMode( colorGreen );
GfxSetTextColor( ParamColor("Color",colorGreen) );
Hor=Param("Horizontal Position",75,10,1200,1);
Ver=Param("Vertical Position",185,100,50,50);

 if ( ccresult2 =="")

{
GfxTextOut(""+s0,Hor , Ver );
}
_SECTION_END();

_SECTION_BEGIN("traing s2");

s0=trailArray;

s1= s0 > C ;
s2= s0 <C ;
ccresult1 = WriteIf( s1,"cu", "");
 ccresult2 = WriteIf( s2,"cd", "");

GfxSelectFont("arial", 13, 700 ); GfxSetBkMode( colorBrightGreen );
GfxSetTextColor( ParamColor("Color",colorBrightGreen) );
Hor=Param("Horizontal Position",30,10,1200,1);
Ver=Param("Vertical Position",185,100,50,50);

if ( ccresult2 =="cd")


{
 GfxTextOut(""+s0,Hor , Ver );
}
else

GfxSelectFont("arial", 13, 700 ); GfxSetBkMode( colorWhite );
GfxSetTextColor( ParamColor("Color",colorWhite) );
Hor=Param("Horizontal Position",75,10,1200,1);
Ver=Param("Vertical Position",185,100,50,50);

 if ( ccresult1 =="")

{
GfxTextOut(""+s0,Hor , Ver );
}

_SECTION_END();

_SECTION_BEGIN("Signal Panel");

showsl = 0;
no=10;
res=HHV(H,no);
sup=LLV(L,no);
avd=IIf(C>Ref(res,-1),1,IIf(C<Ref(sup,-1),-1,0));
avn=ValueWhen(avd!=0,avd,1);
s5d=IIf(avn==1,sup,res);
if (showsl == 0){Plot(s5d,"Stop Loss",colorYellow,styleLine);}
exitlong = Cross(s5d, C);
PlotShapes(exitlong * shapeSquare, colorRed,0,H,40);
PlotShapes(exitlong * shapeSquare, colorOrange,0,H,50);
PlotShapes(exitlong * shapeDownArrow, colorWhite,0,H,-45);

exitshort = Cross(C, s5d);
PlotShapes(exitshort * shapeSquare, colorLime,0,L,-40);
PlotShapes(exitshort * shapeSquare, colorBrightGreen,0,L,-50);
PlotShapes(exitshort * shapeUpArrow, colorWhite,0,L,-45);

Buy = exitshort;
Sell = exitlong;
Short = Sell;
Cover = Buy;
Buy = ExRem(Buy,Sell);
Sell = ExRem(Sell,Buy);
Short = ExRem(Short, Cover);
Cover = ExRem(Cover, Short);
 
for(i=BarCount-1;i>1;i--)
{
if(Buy[i] == 1)
{
entry = C[i];
sig = "Buy";
sl = s5d[i];
tar1 = entry + (entry * .00222);
tar2 = entry + (entry * .00301);
tar3 = entry + (entry * .00583);
 
bars = i;
i = 0;
}
if(Sell[i] == 1)
{
sig = "Sell";
entry = C[i];
sl = s5d[i];
tar1 = entry - (entry * .0022);
tar2 = entry - (entry * .0030);
tar3 = entry - (entry * .0058);
 
 
bars = i;
i = 0;
}
}
Offset = 20;
Clr = IIf(sig == "Buy", colorLime, colorRed);
ssl = IIf(bars == BarCount-1, s5d[BarCount-1], Ref(s5d, -1));
//s1 = ssl[BarCount-1];

Targets = ParamToggle("Targets","Show|Hide",1);

if (Targets == 1 )
{

 
Plot(LineArray(bars-Offset, tar1, BarCount, tar1,1), "", Clr, styleLine|styleDashed, Null, Null, Offset);
Plot(LineArray(bars-Offset, tar2, BarCount, tar2,1), "", Clr, styleLine|styleDashed, Null, Null, Offset);
Plot(LineArray(bars-Offset, tar3, BarCount, tar3,1), "", Clr, styleLine|styleDashed, Null, Null, Offset);
} 
//Plot(LineArray(bars-Offset, s1, BarCount, s0,1), "", colorWhite, styleLine|styleLine, Null, Null, Offset);
Plot(LineArray(bars-Offset, entry, BarCount, entry,1), "", colorLightBlue, styleLine|styleDots, Null, Null, Offset);
 
for (i=bars; i <BarCount;i++)
{
PlotText(""+sig+"@"+entry, BarCount+3,entry,Null,colorLightBlue);
PlotText("T1 "+tar1,BarCount+3,tar1,Null,Clr);
PlotText("T2 "+tar2,BarCount+3,tar2,Null,Clr);
PlotText ("T3 "+tar3,BarCount+3,tar3,Null,Clr);
 
}
 
 

//////************** By Easyalgo.in *************//////
////// +91-8448735946, Support@easyalgo.in  ///////////
//***************************************************//

 
 
 
 
 
 
 
 
 
 
 
 
 
messageboard = ParamToggle("Message Board","Show|Hide",1);
if (messageboard == 1 )
{
GfxSelectFont( "Tahoma", 12, 100 );
GfxSetBkMode( 1 );
GfxSetTextColor( colorWhite );
 
if ( sig =="Buy")
{
GfxSelectSolidBrush( colorBlue ); // this is the box background color
}
else
{
GfxSelectSolidBrush( colorRed ); // this is the box background color
}
pxHeight = Status( "pxchartheight" ) ;
xx = Status( "pxchartwidth");
Left = 1100;
width = 320;
x = 5;
x2 = 240;
 
y = pxHeight;
 
 
lotsize = -1;

if(Name() == "ACC-F"){lotsize=500;} else if(Name() == "ADANIENT-F"){lotsize = 4000;} else if(Name() == "ADANIPORTS-F"){lotsize = 2500;}
else if(Name() == "M_ALUMINIU-JAN" OR Name() == "M_ALUMINIU-FEB" OR Name() == "M_ALUMINIU-MAR" OR Name() == "M_ALUMINIU-APR" OR Name() == "M_ALUMINIU-MAY" OR Name() == "M_ALUMINIU-JUN" OR Name() == "M_ALUMINIU-JUL" OR Name() == "M_ALUMINIU-AUG" OR Name() == "M_ALUMINIU-SEP" OR Name() == "M_ALUMINIU-OCT" OR Name() == "M_ALUMINIU-NOV" OR Name() == "M_ALUMINIU-DEC"){lotsize = 5000;}
else if(Name() == "AMARAJABAT-F"){lotsize = 1000;}else if(Name() == "AMBUJACEM-F"){lotsize = 3000;}
else if(Name() == "APOLLOHOSP-F"){lotsize = 500;}else if(Name() == "APOLLOTYRE-F"){lotsize = 5000;}else if(Name() == "ASHOKLEY-F"){lotsize = 9000;}
else if(Name() == "ASIANPAINT-F"){lotsize = 300;}else if(Name() == "AUROPHARMA-F"){lotsize = 1300;}else if(Name() == "AXISBANK-F"){lotsize = 1200;}
else if(Name() == "BAJAJ-AUTO-F"){lotsize = 250;}else if(Name() == "BAJAJFINSV-F"){lotsize = 125;}else if(Name() == "BAJFINANCE-F"){lotsize = 250;}
else if(Name() == "BALKRISIND-F"){lotsize = 800;}else if(Name() == "BANDHANBNK-F"){lotsize = 1800;}else if(Name() == "BANKBARODA-F"){lotsize = 8200;}
else if(Name() == "BANKNIFTY-F" ){lotsize = 25;}else if(Name() == "BATAINDIA-I"){lotsize = 550;}else if(Name() == "BEL-F"){lotsize = 7600;}
else if(Name() == "BERGEPAINT-F"){lotsize = 1100;}else if(Name() == "BHARATFORG-F"){lotsize = 1500;}else if(Name() == "BHEL-F"){lotsize = 21000;}
else if(Name() == "BHARTIARTL-F"){lotsize = 1851;}else if(Name() == "BIOCON-F"){lotsize = 2300;}else if(Name() == "BOSCHLTD-F"){lotsize = 50;}
else if(Name() == "BPCL-F"){lotsize = 1800;}else if(Name() == "BRITANIA-F"){lotsize = 200;}else if(Name() == "CADILAHC-F"){lotsize = 2200;}
else if(Name() == "CANBK-F"){lotsize = 5000;}else if(Name() == "CENTURYTEX-F"){lotsize = 1400;}else if(Name() == "CHOLAFIN-F"){lotsize = 2500;}
else if(Name() == "CIPLA-F"){lotsize = 1300;}else if(Name() == "COALINDIA-F"){lotsize = 3700;}else if(Name() == "COLPAL-F"){lotsize = 700;}
else if(Name() == "CONCOR-F"){lotsize = 1563;}
else if(Name() == "M_COPPER-JAN" OR Name() == "M_COPPER-FEB" OR Name() == "M_COPPER-MAR" OR Name() == "M_COPPER-APR" OR Name() == "M_COPPER-MAY" OR Name() == "M_COPPER-JUN" OR Name() == "M_COPPER-JUL" OR Name() == "M_COPPER-AUG" OR Name() == "M_COPPER-SEP" OR Name() == "M_COPPER-OCT" OR Name() == "M_COPPER-NOV" OR Name() == "M_COPPER-DEC"){lotsize = 2500;}
else if(Name() == "M_CRUDEOIL-JAN" OR Name() == "M_CRUDEOIL-FEB" OR Name() == "M_CRUDEOIL-MAR" OR Name() == "M_CRUDEOIL-APR" OR Name() == "M_CRUDEOIL-MAY" OR Name() == "M_CRUDEOIL-JUN" OR Name() == "M_CRUDEOIL-JUL" OR Name() == "M_CRUDEOIL-AUG" OR Name() == "M_CRUDEOIL-SEP" OR Name() == "M_CRUDEOIL-OCT" OR Name() == "M_CRUDEOIL-NOV" OR Name() == "M_CRUDEOIL-DEC"){lotsize = 100;}
else if(Name() == "CUMMINSIND-F"){lotsize = 1200;}else if(Name() == "DABUR-F"){lotsize = 1250;}else if(Name() == "DIVISLAB-F"){lotsize = 400;}
else if(Name() == "DLF-F"){lotsize = 3300;}else if(Name() == "DRREDDY-F"){lotsize = 250;}else if(Name() == "EICHERMOT-F"){lotsize = 35;}
else if(Name() == "EQUITAS-F"){lotsize = 7600;}else if(Name() == "ESCORTS-F"){lotsize = 1100;}else if(Name() == "EURINR-JAN" OR Name() == "EURINR-FEB" OR Name() == "EURINR-MAR" OR Name() == "EURINR-APR" OR Name() == "EURINR-MAY" OR Name() == "EURINR-JUN" OR Name() == "EURINR-JUL" OR Name() == "EURINR-AUG" OR Name() == "EURINR-SEP" OR Name() == "EURINR-OCT" OR Name() == "EURINR-NOV" OR Name() == "EURINR-DEC"  ){lotsize = 1000;}
else if(Name() == "M_EURUSD-JAN" OR Name() == "M_EURUSD-FEB" OR Name() == "M_EURUSD-MAR" OR Name() == "M_EURUSD-APR" OR Name() == "M_EURUSD-MAY" OR Name() == "M_EURUSD-JUN" OR Name() == "M_EURUSD-JUL" OR Name() == "M_EURUSD-AUG" OR Name() == "M_EURUSD-SEP" OR Name() == "M_EURUSD-OCT" OR Name() == "M_EURUSD-NOV" OR Name() == "M_EURUSD-DEC"){lotsize = 1000;} 
else if(Name() == "M_GBPINR-JAN" OR Name() == "M_GBPINR-FEB" OR Name() == "M_GBPINR-MAR" OR Name() == "M_GBPINR-APR"  OR Name() == "M_GBPINR-MAY"  OR Name() == "M_GBPINR-JUN"  OR Name() == "M_GBPINR-JUL"  OR Name() == "M_GBPINR-AUG"  OR Name() == "M_GBPINR-SEP"  OR Name() == "M_GBPINR-OCT"  OR Name() == "M_GBPINR-NOV"  OR Name() == "M_GBPINR-DEC" ){lotsize = 1000;}
else if(Name() == "M_GBPUSD-JAN" OR Name() == "M_GBPUSD-FEB" OR Name() == "M_GBPUSD-MAR" OR Name() == "M_GBPUSD-APR" OR Name() == "M_GBPUSD-MAY" OR Name() == "M_GBPUSD-JUN" OR Name() == "M_GBPUSD-JUL" OR Name() == "M_GBPUSD-AUG" OR Name() == "M_GBPUSD-SEP" OR Name() == "M_GBPUSD-OCT" OR Name() == "M_GBPUSD-NOV" OR Name() == "M_GBPUSD-DEC"){lotsize = 1000;} 
else if(Name() == "M_JPYINR-JAN" OR Name() == "M_JPYINR-FEB" OR Name() == "M_JPYINR-MAR" OR Name() == "M_JPYINR-APR" OR Name() == "M_JPYINR-MAY" OR Name() == "M_JPYINR-JUN" OR Name() == "M_JPYINR-JUL" OR Name() == "M_JPYINR-AUG" OR Name() == "M_JPYINR-SEP" OR Name() == "M_JPYINR-OCT" OR Name() == "M_JPYINR-NOV" OR Name() == "M_JPYINR-DEC"){lotsize = 1000;}
else if(Name() == "EXIDEIND-F"){lotsize = 3600;}else if(Name() == "FEDERALBNK-F"){lotsize = 8500;}else if(Name() == "GAIL-F"){lotsize = 6100;}
else if(Name() == "GLENMARK-F"){lotsize = 2300;}else if(Name() == "GMRINFRA-F"){lotsize = 45000;}else if(Name() == "GODREJPROP-F"){lotsize = 1000;}
else if(Name() == "M_GOLD-JAN" OR Name() == "M_GOLD-FEB" OR Name() == "M_GOLD-MAR" OR Name() == "M_GOLD-APR" OR Name() == "M_GOLD-MAY" OR Name() == "M_GOLD-JUN" OR Name() == "M_GOLD-JUL" OR Name() == "M_GOLD-AUG" OR Name() == "M_GOLD-SEP" OR Name() == "M_GOLD-OCT" OR Name() == "M_GOLD-NOV" OR Name() == "M_GOLD-DEC" ){lotsize = 100;}
else if(Name() == "M_GOLDM-JAN" OR Name() == "M_GOLDM-FEB" OR Name() == "M_GOLDM-MAR" OR Name() == "M_GOLDM-APR" OR Name() == "M_GOLDM-MAY" OR Name() == "M_GOLDM-JUN" OR Name() == "M_GOLDM-JUL" OR Name() == "M_GOLDM-AUG" OR Name() == "M_GOLDM-SEP" OR Name() == "M_GOLDM-OCT" OR Name() == "M_GOLDM-NOV" OR Name() == "M_GOLDM-DEC"){lotsize = 10;}
else if(Name() == "GRASIM-F"){lotsize = 950;}
else if(Name() == "HAVELLS-F"){lotsize = 1000;}else if(Name() == "HCLTECH-F"){lotsize = 1400;}else if(Name() == "HDFC-F"){lotsize = 300;}
else if(Name() == "HDFCBANK-F"){lotsize = 550;}else if(Name() == "HDFCLIFE-F"){lotsize = 1100;}else if(Name() == "HEROMOTOCO-F"){lotsize = 300;}
else if(Name() == "HINDALCO-F"){lotsize = 4300;}else if(Name() == "HINDPETRO-F"){lotsize = 2700;}else if(Name() == "HINDUNILIVR-F"){lotsize = 300;}
else if(Name() == "IBULHSGFIN-F"){lotsize = 3100;}else if(Name() == "ICICIBANK-F"){lotsize = 1375;}else if(Name() == "ICICIPRULI-F"){lotsize = 1500;}
else if(Name() == "IDEA-F"){lotsize = 140000;}else if(Name() == "IDFCFIRSTB-F"){lotsize = 19000;}else if(Name() == "IGL-F"){lotsize = 1375;}
else if(Name() == "INDIGO-F"){lotsize = 500;}else if(Name() == "INDUSINDBK-F"){lotsize = 800;}else if(Name() == "INFRATEL-F"){lotsize = 2800;}
else if(Name() == "INFY-F"){lotsize = 1200;}else if(Name() == "IOC-F"){lotsize = 5700;}else if(Name() == "ITC-F"){lotsize = 3200;}
else if(Name() == "JINDALSTEL-F"){lotsize = 5000;}else if(Name() == "JSWSTEEL-F"){lotsize = 2700;}else if(Name() == "JUBLFOOD-F"){lotsize = 500;}
else if(Name() == "KOTAKBANK-F"){lotsize = 400;}else if(Name() == "L&TFH-F"){lotsize = 6800;}
else if(Name() == "M_LEAD-JAN" OR Name() == "M_LEAD-FEB" OR Name() == "M_LEAD-MAR" OR Name() == "M_LEAD-APR" OR Name() == "M_LEAD-MAY" OR Name() == "M_LEAD-JUN" OR Name() == "M_LEAD-JUL" OR Name() == "M_LEAD-AUG" OR Name() == "M_LEAD-SEP" OR Name() == "M_LEAD-OCT" OR Name() == "M_LEAD-NOV" OR Name() == "M_LEAD-DEC"){lotsize = 5000;}
else if(Name() == "LICHSGFIN-F"){lotsize = 2000;}else if(Name() == "LT-F"){lotsize = 550;}else if(Name() == "LUPIN-F"){lotsize = 850;}
else if(Name() == "M&M-F"){lotsize = 1400;}else if(Name() == "M&MFIN-F"){lotsize = 3444;}else if(Name() == "MANAPPURAM-F"){lotsize = 6000;}
else if(Name() == "MARICO-F"){lotsize = 2000;}else if(Name() == "MARUTI-F"){lotsize = 100;}else if(Name() == "MCDOWELL-N-F"){lotsize = 1250;}
else if(Name() == "M_MENTHAOI-JAN" OR Name() == "M_MENTHAOI-FEB" OR Name() == "M_MENTHAOI-MAR" OR Name() == "M_MENTHAOI-APR" OR Name() == "M_MENTHAOI-MAY" OR Name() == "M_MENTHAOI-JUN" OR Name() == "M_MENTHAOI-JUL" OR Name() == "M_MENTHAOI-AUG" OR Name() == "M_MENTHAOI-SEP" OR Name() == "M_MENTHAOI-OCT" OR Name() == "M_MENTHAOI-NOV" OR Name() == "M_MENTHAOI-DEC"){lotsize = 1080;}
else if(Name() == "MFSL-F"){lotsize = 1300;}else if(Name() == "MGL-F"){lotsize = 600;}
else if(Name() == "MINDTREE-F"){lotsize = 800;}else if(Name() == "MOTHERSUMI-F"){lotsize = 750;}else if(Name() == "NATIONALUM-F"){lotsize = 17000;}
else if(Name() == "M_NATURALGAS-JAN" OR Name() == "M_NATURALGAS-FEB" OR Name() == "M_NATURALGAS-MAR" OR Name() == "M_NATURALGAS-APR" OR Name() == "M_NATURALGAS-MAY" OR Name() == "M_NATURALGAS-JUN" OR Name() == "M_NATURALGAS-JUL" OR Name() == "M_NATURALGAS-AUG" OR Name() == "M_NATURALGAS-SEP" OR Name() == "M_NATURALGAS-OCT" OR Name() == "M_NATURALGAS-NOV"  OR Name() == "M_NATURALGAS-DEC"){lotsize = 1250;}
else if(Name() == "NAUKRI-F"){lotsize = 250;}else if(Name() == "NESTLEIND-F"){lotsize = 50;}
else if(Name() == "M_NICKEL-JAN" OR Name() == "M_NICKEL-FEB" OR Name() == "M_NICKEL-MAR" OR Name() == "M_NICKEL-APR" OR Name() == "M_NICKEL-MAY" OR Name() == "M_NICKEL-JUN" OR Name() == "M_NICKEL-JUL" OR Name() == "M_NICKEL-AUG" OR Name() == "M_NICKEL-SEP" OR Name() == "M_NICKEL-OCT" OR Name() == "M_NICKEL-NOV" OR Name() == "M_NICKEL-DEC"){lotsize = 1500;}
else if(Name() == "NIFTY-F"){lotsize = 75;}else if(Name() == "NIITECH-F"){lotsize = 375;}
else if(Name() == "NMDC-F"){lotsize = 6700;}else if(Name() == "NTPC-F"){lotsize = 5700;}else if(Name() == "ONGC-F"){lotsize = 7700;}
else if(Name() == "PAGEIND-F"){lotsize = 30;}else if(Name() == "PEL-F"){lotsize = 550;}else if(Name() == "PETRONET-F"){lotsize = 3000;}
else if(Name() == "PFC-F"){lotsize = 6200;}else if(Name() == "PIDILITIND-F"){lotsize = 500;}else if(Name() == "PNB-F"){lotsize = 14000;}
else if(Name() == "POWERGRID-F"){lotsize = 4000;}else if(Name() == "PVR-F"){lotsize = 407;}else if(Name() == "RAMCOCEM-F"){lotsize = 850;}
else if(Name() == "RBLBANK-F"){lotsize = 2600;}else if(Name() == "RECLTD-F"){lotsize = 6000;}else if(Name() == "RELIANCE-F"){lotsize = 505;}
else if(Name() == "SAIL-F"){lotsize = 19000;}else if(Name() == "SBIN-F"){lotsize = 3000;}else if(Name() == "SHREECEM-F"){lotsize = 50;}
else if(Name() == "SIEMENS-F"){lotsize = 550;}
else if(Name() == "M_SILVER-JAN" OR Name() == "M_SILVER-FEB" OR Name() == "M_SILVER-MAR" OR Name() == "M_SILVER-APR" OR Name() == "M_SILVER-MAY" OR Name() == "M_SILVER-JUN" OR Name() == "M_SILVER-JUL" OR Name() == "M_SILVER-AUG" OR Name() == "M_SILVER-SEP" OR Name() == "M_SILVER-OCT" OR Name() == "M_SILVER-NOV" OR Name() == "M_SILVER-DEC"){lotsize = 30;}
else if(Name() == "M_SILVERM-JAN" OR Name() == "M_SILVERM-FEB" OR Name() == "M_SILVERM-MAR" OR Name() == "M_SILVERM-APR" OR Name() == "M_SILVERM-MAY" OR Name() == "M_SILVERM-JUN" OR Name() == "M_SILVERM-JUL" OR Name() == "M_SILVERM-AUG" OR Name() == "M_SILVERM-SEP" OR Name() == "M_SILVERM-OCT" OR Name() == "M_SILVERM-NOV" OR Name() == "M_SILVERM-DEC"){lotsize = 5;}
else if(Name() == "M_SILVERMI-JAN" OR Name() == "M_SILVERMI-FEB" OR Name() == "M_SILVERMI-MAR" OR Name() == "M_SILVERMI-APR" OR Name() == "M_SILVERMI-MAY" OR Name() == "M_SILVERMI-JUN" OR Name() == "M_SILVERMI-JUL" OR Name() == "M_SILVERMI-AUG" OR Name() == "M_SILVERMI-SEP" OR Name() == "M_SILVERMI-OCT" OR Name() == "M_SILVERMI-NOV" OR Name() == "M_SILVERMI-DEC"){lotsize = 1;}
else if(Name() == "SBILIFE-F"){lotsize = 750;}else if(Name() == "SRF-F"){lotsize = 250;}
else if(Name() == "SRTRANSFIN-F"){lotsize = 667;}else if(Name() == "SUNPHARMA-F"){lotsize = 1400;}else if(Name() == "SUNTV-F"){lotsize = 1500;}
else if(Name() == "TATACHEM-F"){lotsize = 2000;}else if(Name() == "TATACONSUM-F"){lotsize = 2700;}else if(Name() == "TATAMOTORS-F"){lotsize = 5700;}
else if(Name() == "TATAPOWER-F"){lotsize = 13500;}else if(Name() == "TATASTEEL-F"){lotsize = 1700;}else if(Name() == "TCS-F"){lotsize = 300;}
else if(Name() == "TECHM-F"){lotsize = 1200;}else if(Name() == "TITAN-F"){lotsize = 750;}else if(Name() == "TORNTPHARM-F"){lotsize = 500;}
else if(Name() == "TVSMOTOR-F"){lotsize = 1400;}else if(Name() == "UBL-F"){lotsize = 700;}else if(Name() == "UJJIVAN-F"){lotsize = 2200;}
else if(Name() == "ULTRACEMO-F"){lotsize = 200;}else if(Name() == "UPL-F"){lotsize = 1300;}else if(Name() == "VEDL-F"){lotsize = 6200;}
else if(Name() == "VOLTAS-F"){lotsize = 1000;}else if(Name() == "WIPRO-F"){lotsize = 3200;}
else if(Name() == "M_ZINC-JAN" OR Name() == "M_ZINC-FEB" OR Name() == "M_ZINC-MAR" OR Name() == "M_ZINC-APR" OR Name() == "M_ZINC-MAY" OR Name() == "M_ZINC-JUN" OR Name() == "M_ZINC-JUL" OR Name() == "M_ZINC-AUG" OR Name() == "M_ZINC-SEP" OR Name() == "M_ZINC-OCT" OR Name() == "M_ZINC-NOV" OR Name() == "M_ZINC-DEC"){lotsize = 5000;} 
else if(Name() == "ZEEL-F"){lotsize = 3000;}
else if(Name() == "M_USDINR-JAN" OR Name() == "M_USDINR-FEB"  OR Name() == "M_USDINR-MAR" OR Name() == "M_USDINR-APR"  OR Name() == "M_USDINR-MAY" OR Name() == "M_USDINR-JUN"  OR Name() == "M_USDINR-JUL" OR Name() == "M_USDINR-AUG"  OR Name() == "M_USDINR-SEP" OR Name() == "M_USDINR-OCT"  OR Name() == "M_USDINR-NOV" OR Name() == "M_USDINR-DEC"){lotsize = 1000;} 
else if(Name() == "M_USDJPY-JAN" OR Name() == "M_USDJPY-FEB" OR Name() == "M_USDJPY-MAR" OR Name() == "M_USDJPY-APR" OR Name() == "M_USDJPY-MAY" OR Name() == "M_USDJPY-JUN" OR Name() == "M_USDJPY-JUL" OR Name() == "M_USDJPY-AUG" OR Name() == "M_USDJPY-SEP" OR Name() == "M_USDJPY-OCT" OR Name() == "M_USDJPY-NOV" OR Name() == "M_USDJPY-DEC"){lotsize = 1000;}

else if(Name() == "ACC-I"){lotsize=500;} else if(Name() == "ADANIENT-I"){lotsize = 4000;} else if(Name() == "ADANIPORTS-I"){lotsize = 2500;}
else if(Name() == "ALUMINIUM-I" OR Name() == "ALUMINIUM-II"){lotsize = 5000;}else if(Name() == "AMARAJABAT-I"){lotsize = 1000;}else if(Name() == "AMBUJACEM-I"){lotsize = 3000;}
else if(Name() == "APOLLOHOSP-I"){lotsize = 500;}else if(Name() == "APOLLOTYRE-I"){lotsize = 5000;}else if(Name() == "ASHOKLEY-I"){lotsize = 9000;}
else if(Name() == "ASIANPAINT-I"){lotsize = 300;}else if(Name() == "AUROPHARMA-I"){lotsize = 1300;}else if(Name() == "AXISBANK-I"){lotsize = 1200;}
else if(Name() == "BAJAJ-AUTO-I"){lotsize = 250;}else if(Name() == "BAJAJFINSV-I"){lotsize = 125;}else if(Name() == "BAJFINANCE-I"){lotsize = 250;}
else if(Name() == "BALKRISIND-I"){lotsize = 800;}else if(Name() == "BANDHANBNK-I"){lotsize = 1800;}else if(Name() == "BANKBARODA-I"){lotsize = 8200;}
else if(Name() == "BANKNIFTY-I" OR Name() == "BANKNIFTY-II"){lotsize = 25;}else if(Name() == "BATAINDIA-I"){lotsize = 550;}else if(Name() == "BEL-I"){lotsize = 7600;}
else if(Name() == "BERGEPAINT-I"){lotsize = 1100;}else if(Name() == "BHARATFORG-I"){lotsize = 1500;}else if(Name() == "BHEL-I"){lotsize = 21000;}
else if(Name() == "BHARTIARTL-I"){lotsize = 1851;}else if(Name() == "BIOCON-I"){lotsize = 2300;}else if(Name() == "BOSCHLTD-I"){lotsize = 50;}
else if(Name() == "BPCL-I"){lotsize = 1800;}else if(Name() == "BRITANIA-I"){lotsize = 200;}else if(Name() == "CADILAHC-I"){lotsize = 2200;}
else if(Name() == "CANBK-I"){lotsize = 5000;}else if(Name() == "CENTURYTEX-I"){lotsize = 1400;}else if(Name() == "CHOLAFIN-I"){lotsize = 2500;}
else if(Name() == "CIPLA-I"){lotsize = 1300;}else if(Name() == "COALINDIA-I"){lotsize = 3700;}else if(Name() == "COLPAL-I"){lotsize = 700;}
else if(Name() == "CONCOR-I"){lotsize = 1563;}else if(Name() == "COPPER-I" OR Name() == "COPPER-II"){lotsize = 2500;}else if(Name() == "CRUDEOIL-I" OR Name() == "CRUDEOIL-II"){lotsize = 100;}
else if(Name() == "CUMMINSIND-I"){lotsize = 1200;}else if(Name() == "DABUR-I"){lotsize = 1250;}else if(Name() == "DIVISLAB-I"){lotsize = 400;}
else if(Name() == "DLF-I"){lotsize = 3300;}else if(Name() == "DRREDDY-I"){lotsize = 250;}else if(Name() == "EICHERMOT-I"){lotsize = 35;}
else if(Name() == "EQUITAS-I"){lotsize = 7600;}else if(Name() == "ESCORTS-I"){lotsize = 1100;}else if(Name() == "EURINR-I" OR Name() == "EURINR-II" OR Name() == "EURINR-III"){lotsize = 1000;}
else if(Name() == "EURUSD-I" OR Name() == "EURUSD-II" OR Name() == "EURUSD-III"){lotsize = 1000;} else if(Name() == "GBPINR-I" OR Name() == "GBPINR-II" OR Name() == "GBPINR-III"){lotsize = 1000;}
else if(Name() == "GBPUSD-I" OR Name() == "GBPUSD-II" OR Name() == "GBPUSD-III"){lotsize = 1000;} else if(Name() == "JPYINR-I" OR Name() == "JPYINR-II" OR Name() == "JPYINR-III"){lotsize = 1000;}
else if(Name() == "EXIDEIND-I"){lotsize = 3600;}else if(Name() == "FEDERALBNK-I"){lotsize = 8500;}else if(Name() == "GAIL-I"){lotsize = 6100;}
else if(Name() == "GLENMARK-I"){lotsize = 2300;}else if(Name() == "GMRINFRA-I"){lotsize = 45000;}else if(Name() == "GODREJPROP-I"){lotsize = 1000;}
else if(Name() == "GOLD-I" OR Name() == "GOLD-II"){lotsize = 100;}else if(Name() == "GOLDM-I" OR Name() == "GOLDM-II"){lotsize = 10;}else if(Name() == "GRASIM-I"){lotsize = 950;}
else if(Name() == "HAVELLS-I"){lotsize = 1000;}else if(Name() == "HCLTECH-I"){lotsize = 1400;}else if(Name() == "HDFC-I"){lotsize = 300;}
else if(Name() == "HDFCBANK-I"){lotsize = 550;}else if(Name() == "HDFCLIFE-I"){lotsize = 1100;}else if(Name() == "HEROMOTOCO-I"){lotsize = 300;}
else if(Name() == "HINDALCO-I"){lotsize = 4300;}else if(Name() == "HINDPETRO-I"){lotsize = 2700;}else if(Name() == "HINDUNILIVR-I"){lotsize = 300;}
else if(Name() == "IBULHSGFIN-I"){lotsize = 3100;}else if(Name() == "ICICIBANK-I"){lotsize = 1375;}else if(Name() == "ICICIPRULI-I"){lotsize = 1500;}
else if(Name() == "IDEA-I"){lotsize = 140000;}else if(Name() == "IDFCFIRSTB-I"){lotsize = 19000;}else if(Name() == "IGL-I"){lotsize = 1375;}
else if(Name() == "INDIGO-I"){lotsize = 500;}else if(Name() == "INDUSINDBK-I"){lotsize = 800;}else if(Name() == "INFRATEL-I"){lotsize = 2800;}
else if(Name() == "INFY-I"){lotsize = 1200;}else if(Name() == "IOC-I"){lotsize = 5700;}else if(Name() == "ITC-I"){lotsize = 3200;}
else if(Name() == "JINDALSTEL-I"){lotsize = 5000;}else if(Name() == "JSWSTEEL-I"){lotsize = 2700;}else if(Name() == "JUBLFOOD-I"){lotsize = 500;}
else if(Name() == "KOTAKBANK-I"){lotsize = 400;}else if(Name() == "L&TFH-I"){lotsize = 6800;}else if(Name() == "LEAD-I"){lotsize = 5000;}
else if(Name() == "LICHSGFIN-I"){lotsize = 2000;}else if(Name() == "LT-I"){lotsize = 550;}else if(Name() == "LUPIN-I"){lotsize = 850;}
else if(Name() == "M&M-I"){lotsize = 1400;}else if(Name() == "M&MFIN-I"){lotsize = 3444;}else if(Name() == "MANAPPURAM-I"){lotsize = 6000;}
else if(Name() == "MARICO-I"){lotsize = 2000;}else if(Name() == "MARUTI-I"){lotsize = 100;}else if(Name() == "MCDOWELL-N-I"){lotsize = 1250;}
else if(Name() == "MENTHAOIL-I"){lotsize = 1080;}else if(Name() == "MFSL-I"){lotsize = 1300;}else if(Name() == "MGL-I"){lotsize = 600;}
else if(Name() == "MINDTREE-I"){lotsize = 800;}else if(Name() == "MOTHERSUMI-I"){lotsize = 750;}else if(Name() == "NATIONALUM-I"){lotsize = 17000;}
else if(Name() == "NATURALGAS-I"){lotsize = 1250;}else if(Name() == "NAUKRI-I"){lotsize = 250;}else if(Name() == "NESTLEIND-I"){lotsize = 50;}
else if(Name() == "NICKEL-I"){lotsize = 1500;}else if(Name() == "NIFTY-I" OR Name() == "NIFTY-II"){lotsize = 75;}else if(Name() == "NIITECH-I"){lotsize = 375;}
else if(Name() == "NMDC-I"){lotsize = 6700;}else if(Name() == "NTPC-I"){lotsize = 5700;}else if(Name() == "ONGC-I"){lotsize = 7700;}
else if(Name() == "PAGEIND-I"){lotsize = 30;}else if(Name() == "PEL-I"){lotsize = 550;}else if(Name() == "PETRONET-I"){lotsize = 3000;}
else if(Name() == "PFC-I"){lotsize = 6200;}else if(Name() == "PIDILITIND-I"){lotsize = 500;}else if(Name() == "PNB-I"){lotsize = 14000;}
else if(Name() == "POWERGRID-I"){lotsize = 4000;}else if(Name() == "PVR-I"){lotsize = 407;}else if(Name() == "RAMCOCEM-I"){lotsize = 850;}
else if(Name() == "RBLBANK-I"){lotsize = 2600;}else if(Name() == "RECLTD-I"){lotsize = 6000;}else if(Name() == "RELIANCE-I"){lotsize = 505;}
else if(Name() == "SAIL-I"){lotsize = 19000;}else if(Name() == "SBIN-I"){lotsize = 3000;}else if(Name() == "SHREECEM-I"){lotsize = 50;}
else if(Name() == "SIEMENS-I"){lotsize = 550;}else if(Name() == "SILVER-I" OR Name() == "SILVER-II"){lotsize = 30;}else if(Name() == "SILVERM-I" OR Name() == "SILVERM-II"){lotsize = 5;}
else if(Name() == "SILVERMIC-I" OR Name() == "SILVERMIC-II"){lotsize = 1;}else if(Name() == "SBILIFE-I"){lotsize = 750;}else if(Name() == "SRF-I"){lotsize = 250;}
else if(Name() == "SRTRANSFIN-I"){lotsize = 667;}else if(Name() == "SUNPHARMA-I"){lotsize = 1400;}else if(Name() == "SUNTV-I"){lotsize = 1500;}
else if(Name() == "TATACHEM-I"){lotsize = 2000;}else if(Name() == "TATACONSUM-I"){lotsize = 2700;}else if(Name() == "TATAMOTORS-I"){lotsize = 5700;}
else if(Name() == "TATAPOWER-I"){lotsize = 13500;}else if(Name() == "TATASTEEL-I"){lotsize = 1700;}else if(Name() == "TCS-I"){lotsize = 300;}
else if(Name() == "TECHM-I"){lotsize = 1200;}else if(Name() == "TITAN-I"){lotsize = 750;}else if(Name() == "TORNTPHARM-I"){lotsize = 500;}
else if(Name() == "TVSMOTOR-I"){lotsize = 1400;}else if(Name() == "UBL-I"){lotsize = 700;}else if(Name() == "UJJIVAN-I"){lotsize = 2200;}
else if(Name() == "ULTRACEMO-I"){lotsize = 200;}else if(Name() == "UPL-I"){lotsize = 1300;}else if(Name() == "VEDL-I"){lotsize = 6200;}
else if(Name() == "VOLTAS-I"){lotsize = 1000;}else if(Name() == "WIPRO-I"){lotsize = 3200;}else if(Name() == "ZINC-I"){lotsize = 5000;} else if(Name() == "ZEEL-I"){lotsize = 3000;}
else if(Name() == "USDINR-I" OR Name() == "USDINR-II" OR Name() == "USDINR-III"){lotsize = 1000;} else if(Name() == "USDJPY-I" OR Name() == "USDJPY-II" OR Name() == "USDJPY-III"){lotsize = 1000;}


else if(Name() == "ACC" OR Name() == "ADANIPORTS" OR Name() == "AMARAJABAT" OR Name() == "AMBUJACEM" OR Name() == "APOLLOHOSP" OR Name() == "APOLLOTYRE" 
OR Name() == "ASIANPAINT" OR Name() == "ASHOKLEY" OR Name() == "AUROPHARMA" OR Name() == "ADANIENT" OR Name() == "AXISBANK" OR Name() == "BAJAJ-AUTO" OR Name() == "BAJAJFINSV" 
OR Name() == "BAJFINANCE" OR Name() == "BALKRISIND" OR Name() == "BANDHANBNK" OR Name() == "BANKBARODA" OR Name() == "BATAINDIA" OR Name() == "BEL" 
OR Name() == "BERGEPAINT" OR Name() == "BHARATFORG" OR Name() == "BHEL" OR Name() == "BHARTIARTL" OR Name() == "BIOCON" OR Name() == "BOSCHLTD" 
OR Name() == "BPCL" OR Name() == "BRITANIA" OR Name() == "CADILAHC" OR Name() == "CANBK" OR Name() == "CENTURYTEX" OR Name() == "CHOLAFIN" 
OR Name() == "CIPLA" OR Name() == "COALINDIA" OR Name() == "COLPAL" OR Name() == "CUMMINSIND" OR Name() == "DABUR" OR Name() == "DIVISLAB" 
OR Name() == "DLF" OR Name() == "DRREDDY" OR Name() == "EICHERMOT" OR Name() == "EQUITAS" OR Name() == "ESCORTS" OR Name() == "EXIDEIND" 
OR Name() == "FEDERALBNK" OR Name() == "GAIL" OR Name() == "GLENMARK" OR Name() == "GMRINFRA" OR Name() == "GODREJPROP" OR Name() == "GRASIM" 
OR Name() == "HAVELLS" OR Name() == "HCLTECH" OR Name() == "HDFCBANK" OR Name() == "HDFC" OR Name() == "HDFCLIFE" OR Name() == "HEROMOTOCO" 
OR Name() == "HINDALCO" OR Name() == "HINDPETRO" OR Name() == "HINDUNILIVR" OR Name() == "IBULHSGFIN" OR Name() == "ICICIBANK" OR Name() == "ICICIPRULI" 
OR Name() == "IDEA" OR Name() == "IDFCFIRSTB" OR Name() == "IGL" OR Name() == "INFRATEL" OR Name() == "INDUSINDBK" OR Name() == "INDIGO" 
OR Name() == "INFY" OR Name() == "IOC" OR Name() == "ITC" OR Name() == "JINDALSTEL" OR Name() == "JSWSTEEL" OR Name() == "JUBLFOOD" 
OR Name() == "KOTAKBANK" OR Name() == "L&TFH-" OR Name() == "LICHSGFIN" OR Name() == "LT" OR Name() == "LUPIN" OR Name() == "M&M" OR Name() == "M&MFIN" 
OR Name() == "MARICO" OR Name() == "MARUTI" OR Name() == "MANAPPURAM" OR Name() == "MCDOWELL-N" OR Name() == "MFSL" OR Name() == "MINDTREE" 
OR Name() == "MOTHERSUMI" OR Name() == "NATIONALUM" OR Name() == "NAUKRI" OR Name() == "NESTLEIND" OR Name() == "NIITECH" OR Name() == "NMDC" 
OR Name() == "NTPC" OR Name() == "ONGC" OR Name() == "PAGEIND" OR Name() == "PEL" OR Name() == "PIDILITIND" 
OR Name() == "PETRONET" OR Name() == "PFC" OR Name() == "POWERGRID" OR Name() == "PVR" OR Name() == "PNB" OR Name() == "RAMCOCEM" 
OR Name() == "RBLBANK" OR Name() == "RECLTD" OR Name() == "RELIANCE" OR Name() == "SAIL" OR Name() == "SBIN" OR Name() == "SHREECEM" 
OR Name() == "SIEMENS" OR Name() == "SBILIFE" OR Name() == "SRTRANSFIN" OR Name() == "SUNPHARMA" OR Name() == "SUNTV" OR Name() == "TATACHEM"
OR Name() == "TATACONSUM" OR Name() == "TATAMOTORS" OR Name() == "TATAPOWER" OR Name() == "TATASTEEL" OR Name() == "TCS" OR Name() == "TECHM"
OR Name() == "TITAN" OR Name() == "TORNTPHARM" OR Name() == "TVSMOTOR" OR Name() == "UBL" OR Name() == "UJJIVAN" OR Name() == "ULTRACEMO"
OR Name() == "UPL" OR Name() == "VEDL" OR Name() == "VOLTAS" OR Name() == "WIPRO" OR Name() == "ZEEL" OR Name() == "IRCTC" OR Name() == "SBICARDS") 
{lotsize=1;} 

 
//GfxSelectPen( colorLavender, 1); // broader color
GfxRoundRect( x, y - 144, x2, y+7 , 7, 7 ) ;
//GfxTextOut( Name(),12,y-140);
//GfxTextOut( " Last Traded Price = "+  C , 08,y- 120 );
//GfxTextOut( ( "Signal Panel"),160,y-140);
//GfxTextOut( ("( " + (BarCount-bars-1) * Interval()/60 + " mins ago )"), 120, y-140) ; // The text format location
GfxTextOut( ("" + WriteIf(sig =="Buy ",sig + "@ ",sig + " @") + " : " + entry), 13, y-139);
GfxTextOut( ("SL : " + sl + ""), 13, y-58);
GfxTextOut( ("TGT 1 : " + tar1), 15, y -118);
GfxTextOut( ("TGT 2 : " + tar2), 15, y -98);
GfxTextOut( ("TGT 3 : " + tar3), 15, y -78);

if(lotsize == -1){
GfxTextOut( ("P/L : " + WriteVal(IIf(sig == "BUY",(C-entry),(entry-C)),2.2)), 13, y-35);
}
else {
GfxTextOut( ("P/L : " + WriteVal(IIf(sig == "BUY",(C-entry),(entry-C)),2.2))+ " (RS " + WriteVal(IIf(sig == "BUY",(C-entry)* lotsize,(entry-C)* lotsize),2.2) +")", 13, y-38);
GfxTextOut( ("Lot Size : " + lotsize), 13,y-18);
}
}
//////************** By Easyalgo.in *************//////
////// +91-8448735946, Support@easyalgo.in  ///////////
//***************************************************//












 
 
_buy = Ref(buy,-1); // enter your Buy logic here
_short =Ref(Short,-1); // enter your short logic here
_Sell =Ref(short,0); // enter your sell logic here
_cover = buy; // enter your cover logic here





	 Buy = Sell = Short = Cover = TSL = Null;
	 LongFlag = ShortFlag = Target = _BuyPrice = ShortTarget = 0; //Simple flags
	 _shortprice = buytarget=shorttarget=t=st=bsl=ssl=bp=sp=0;
	 buytarget1 =buytarget2 = 0;
	 btt1 = btt2=0;
	 btf1 = btf2=0;
	btf11 = btf22= btf33=0;
	btf111 = btf222= btf333=0;

 Shorttarget1 =Shorttarget2 = 0;
	 stt1 = stt2=0;
	 stf1 = stf2=0;
	stf11 = stf22= stf33=0;
	stf111 = stf222= stf333=0;

	 
	 
	 buysl = shortsl=0;
	 Starget= sstoploss = 0;
	 LF=SF=0;
	 //Using Loop to generate signals
	 for( i = 0; i < BarCount; i++ )
	 {
		 /////////////////////////////////////////Long Positions
		 
		 //////************** By Easyalgo.in *************//////
////// +91-8448735946, Support@easyalgo.in  ///////////
//***************************************************//

		 

		 if( _Buy[ i ] AND LongFlag == 0 AND ShortFlag==0)
		 {
			 Buy[ i ] = 1;
			 BuyPrice[i]=c[i];
			 _BuyPrice =c[i];
			 LongFlag = 1; 
			//entry = C[i];
			sig = "Buy";
			sl = s5d[i];
			buytarget = tar1[i];
			buytarget1 = tar2[i] ;
			buytarget2 = tar3[i];
			btf1 = 0;
			btf2=0;
		 }	
		 if( LongFlag==1 AND High[i]>buytarget[i] AND btf1==0)
		 {
			 Sell[ i ] = 1; 
			 SellPrice[i] = buytarget[i];
			 btf1 = 1;
			 btf11[i] = 1;
			 //LongFlag = 0;  
		 }
		 if( LongFlag==1 AND High[i]>buytarget1[i]  AND btf1==1 AND btf2==0)
		 {
			 Sell[ i ] = 1; 
			 SellPrice[i] = buytarget1[i];
			 //LongFlag = 0; 
			 btf2=1; 
			 btf22[i]=1; 
		 }
		 if( LongFlag==1 AND High[i]>buytarget2[i] AND btf1==1 AND btf2==1 )
		 {
			 Sell[ i ] = 1; 
			 SellPrice[i] = buytarget2[i];
			 LongFlag = 0;  
			 btf33[i]=1;
		 }

		 if( LongFlag==1 AND _sell[i])
		 {
		 
			 Sell[ i ] = 1; 
			 SellPrice[i] = buysl[i];
			 LongFlag = 0; 
		 
		 }
//////************** By Easyalgo.in *************//////
////// +91-8448735946, Support@easyalgo.in  ///////////
//***************************************************//

		



		 if( _Short[ i ] AND LongFlag == 0 AND ShortFlag==0)
		 {
			 Short[ i ] = 1;
			 ShortPrice[i]=c[i];
			 _ShortPrice =c[i];
			 ShortFlag = 1; 
			//entry = C[i];
			sig = "Short";
			sl = s5d[i];
			shorttarget = tar1[i];
			shorttarget1 = tar2[i] ;
			shorttarget2 = tar3[i];
			stf1 = 0;
			stf2=0;
		 }			 	 
		 if( ShortFlag==1 AND low[i]<shorttarget[i] AND stf1==0)
		 {
			 cover[ i ] = 1; 
			 CoverPrice[i] = buytarget[i];
			 stf1 = 1;
			 Stf11[i] = 1;
			 //LongFlag = 0;  
		 }
		 if( ShortFlag==1 AND low[i]<Shorttarget1[i]  AND stf1==1 AND stf2==0)
		 {
			 Cover[ i ] = 1; 
			 CoverPrice[i] = Shorttarget1[i];
			 //LongFlag = 0; 
			 stf2=1; 
			 stf22[i]=1; 
		 }
		 if( ShortFlag==1 AND low[i]<shorttarget2[i] AND Stf1==1 AND Stf2==1 )
		 {
			 Cover[ i ] = 1; 
			 CoverPrice[i] = Shorttarget2[i];
			 ShortFlag = 0;  
			 stf33[i]=1;
		 }

		 if( ShortFlag==1 AND _Cover[i])
		 {
		 
			 Cover[ i ] = 1; 
			 CoverPrice[i] = s5d[i];
			 ShortFlag = 0; 
		 
		 }




//////************** By Easyalgo.in *************//////
////// +91-8448735946, Support@easyalgo.in  ///////////
//***************************************************//










		 

//////////////// Reinitiate for reverse signal///////////////////////////		 

		 	 
		 
		 bt[i] = buyTarget[i];
		 btt1[i] = buyTarget1[i];
		 btt2[i] = buyTarget2[i];

		 bp[i] = _buyprice[i];

		 LF[i] = longflag[i];
		 btf111[i] =  btf11[i];
		 btf222[i]= btf22[i];
		 btf333[i]=btf33[i];

		 st[i] = ShortTarget[i];
		 stt1[i] = ShortTarget1[i];
		 stt2[i] = ShortTarget2[i];

		 sp[i] = _Shortprice[i];

		 SF[i] = Shortflag[i];
		 stf111[i] =  stf11[i];
		 stf222[i]= stf22[i];
		 stf333[i]=stf33[i];






		 
		 
	 }
	 



 

 
EncodeColor(colorBlack);












//////************** By Easyalgo.in *************//////
////// +91-8448735946, Support@easyalgo.in  ///////////
//***************************************************//



 _Buy= C>Ref(HHV(High,Buyperiods),-1) ;
 _Sell= C<Ref(LLV(Low,Sellperiods),-1);

_Buy = ExRem(_Buy,_Sell);
_Sell = ExRem(_Sell,_Buy);

 //PlotShapes( IIf( Buy, shapeHollowCircle, shapeNone ), colorGreen, layer = 0,yposition = HaLow, offset = -60);
 //PlotShapes( IIf( Sell, shapeHollowCircle, shapeNone ), colorRed, layer = 0, yposition = HaHigh, offset = 60);
 
_SECTION_END();

DayH = SelectedValue(TimeFrameGetPrice("H", inDaily));// yesterdays high 
DayL = SelectedValue(TimeFrameGetPrice("L", inDaily));//low 
DayH1 = SelectedValue(TimeFrameGetPrice("H", inDaily, -1));// yesterdays high 
DayL1 = SelectedValue(TimeFrameGetPrice("L", inDaily, -1));//low 
DayH2 = SelectedValue(TimeFrameGetPrice("H", inDaily, -2));// yesterdays high 
DayL2 = SelectedValue(TimeFrameGetPrice("L", inDaily, -2));//low 

Range = ((DayH +DayH1  +DayH2)/3 - (DayL+DayL1+DayL2)/3);
sr3= (Range *0.702)+DayL;
sr4= DayH-(Range *0.655);

_SECTION_BEGIN("CMP");
GfxSelectFont("arial", 13, 700 ); GfxSetBkMode( colorWhite );
GfxSetTextColor( ParamColor("Color",colorWhite) );
Hor=Param("Horizontal Position",120,10,1200,1);
Ver=Param("Vertical Position",185,100,50,50);
GfxTextOut(""+C,Hor , Ver );


_SECTION_END();
_SECTION_BEGIN("buycircle");
GfxSelectFont( "Arial", 10, 100 );
GfxSetBkMode( 1 );
GfxSetTextColor( colorBlue );
GfxSelectPen( colorBlue, 1 );
if ( ccresult2 =="cd")
{
GfxSelectSolidBrush( ColorRGB(0,255,0) ); 
}
else
{
GfxSelectSolidBrush( ColorRGB(0,0,94) );
} 
GfxCircle( 20,40,7 );

_SECTION_END();
_SECTION_BEGIN("sellcircle");
GfxSelectFont( "Arial", 10, 100 );
GfxSetBkMode( 1 );
GfxSetTextColor( colorBlue );
GfxSelectPen( colorBlue, 1 );
if ( ccresult1 =="cu")
{
GfxSelectSolidBrush( ColorRGB(255,0,0) ); 
}
else
{
GfxSelectSolidBrush( ColorRGB(0,0,94) );
} 

GfxCircle( 180,40,7 );

DayH = SelectedValue(TimeFrameGetPrice("H", inDaily));// yesterdays high 
DayL = SelectedValue(TimeFrameGetPrice("L", inDaily));//low 
DayH1 = SelectedValue(TimeFrameGetPrice("H", inDaily, -1));// yesterdays high 
DayL1 = SelectedValue(TimeFrameGetPrice("L", inDaily, -1));//low 
DayH2 = SelectedValue(TimeFrameGetPrice("H", inDaily, -2));// yesterdays high 
DayL2 = SelectedValue(TimeFrameGetPrice("L", inDaily, -2));//low 

Range = ((DayH +DayH1  +DayH2)/3 - (DayL+DayL1+DayL2)/3);
sr3= (Range *0.702)+DayL;
sr4= DayH-(Range *0.655);

style = styleLine | styleNoRescale|styleLine; 
Plot(sr3, "SR3",colorGreen  , styleLine|styleNoRescale);
Plot(sr4, "SR4",colorRed ,styleLine|styleNoRescale);



icol = IIf ( MA (Close,25) > Ref (MA (Close,25),-1),colorGreen,colorRed);
Plot( MA( High, 25 ),"", icol, styleThick);
Plot( MA( Low, 25 ), "",icol, styleThick);

_SECTION_END();
//////************** By Easyalgo.in *************//////
////// +91-8448735946, Support@easyalgo.in  ///////////
//***************************************************//



GfxSetBkMode(1);
 
 

 
_SECTION_BEGIN("NMN Chart Stamp");
SetFormulaName("NMN Chart Stamp");
GfxFont = "Times New Roman";
GfxSetOverlayMode(0);
GfxSelectFont(GfxFont, Status("pxheight")/25);
GfxSetTextAlign(6);                             // center alignment
GfxSetTextColor(ColorRGB(100,100,100));
GfxSetBkMode(0);                                    // transparent
    GfxTextOut(Name(), Status("pxwidth")/2, Status("pxheight")/12);
    GfxSetTextColor(ColorRGB(200,200,200));
    GfxTextOut("Easyalgo.in", Status("pxwidth")/1.15, Status("pxheight")/1.15);
//GfxSelectFont(GfxFont, Status("pxheight")/28);
//GfxSelectFont(GfxFont, Status("pxheight")/18);
//GfxSelectFont("Tahoma", Status("pxheight")/18);
_SECTION_END();