please modify following the afl sound signal add and targate

    SetChartOptions(0,chartShowArrows|chartShowDates);
	SetChartBkColor(ParamColor("Outer panel",colorLightBlue)); // color of outer border 
	SetChartBkGradientFill( ParamColor("Inner panel upper",colorBlue),ParamColor("Inner panel lower",colorBlack));
	tchoice=Param("Title Selection ",2,1,2,1);

_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;
	bi = BarIndex(); 
	Lbi = LastValue(BarIndex()); 
	sbi = SelectedValue(bi); 
	x1= BarCount-1; 
Title = EncodeColor(55)+  Title = Name() + "     " + EncodeColor(32) + Date() +
"      " + EncodeColor(5) + "{{INTERVAL}}  " +
	EncodeColor(55)+ "     Open = "+ EncodeColor(52)+ WriteVal(O,dec) + 
	EncodeColor(55)+ "     High = "+ EncodeColor(5) + WriteVal(H,dec) +
	EncodeColor(55)+ "      Low = "+ EncodeColor(32)+ WriteVal(L,dec) + 
	EncodeColor(55)+ "    Close = "+ EncodeColor(52)+ WriteVal(C,dec)+
	EncodeColor(55)+ "    Volume = "+ EncodeColor(52)+ WriteVal(V,1);
_SECTION_END();
_SECTION_BEGIN( "BASERECTANGEL" );
 
GfxSelectFont( "Arial", 10, 100 );
 GfxSetBkMode( 1 );
 GfxSetTextColor( colorBlue );
 GfxSelectSolidBrush( colorDarkTeal ); 
 GfxSelectPen( colorBlue, 1 ); 
// broader color 
 GfxRectangle(0,15,203,400);

_SECTION_END();
_SECTION_BEGIN( "BASERECTANGEL" );
 
GfxSelectFont( "Arial", 10, 100 );
 GfxSetBkMode( 1 );
 GfxSetTextColor( colorBlue );
 GfxSelectSolidBrush( colorDarkTeal  ); 
 GfxSelectPen( colorBlue, 1 ); 
// broader color 
 GfxRectangle(202,15,300,400);

_SECTION_END();

_SECTION_BEGIN("res/sup-s1");

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); 
 PP = (DayH + DayL + DayO + DayO) / 4 ;  
 R1 = (2 * PP) - DayL;  
 S1 = (2 * PP) - DayH;  
 R2 = PP + R1 - S1;  
 S2 = PP + S1 - R1;  
 R3 = R2 + (R1 - PP);  
 S3 = S2 - (PP - S1); 
 style = styleLine | styleThick + styleNoRescale; 
 rcolor = colorBlue; 
 scolor = colorRed; 
 pcolor = colorGreen;  

GfxSelectFont("arial", 10, 700 ); GfxSetBkMode( colorWhite );
GfxSetTextColor( ParamColor("Color",colorRed) );
Hor=230; 
Ver=230; 

 GfxTextOut(""+s1,Hor , Ver );

_SECTION_END();

_SECTION_BEGIN("res/sup-s2");

GfxSelectFont("arial", 10, 700 ); GfxSetBkMode( colorWhite );
GfxSetTextColor( ParamColor("Color",colorRed) );
Hor=230; 
Ver=260; 
GfxTextOut(""+s2,Hor , Ver );
_SECTION_END();

_SECTION_BEGIN("res/sup-s3");

GfxSelectFont("arial", 10, 700 ); GfxSetBkMode( colorWhite );
GfxSetTextColor( ParamColor("Color",colorRed) );
Hor=230; 
Ver=290; 
GfxTextOut(""+s3,Hor , Ver );
_SECTION_END();

_SECTION_BEGIN("res/sup-r1");

GfxSelectFont("arial", 10, 700 ); GfxSetBkMode( colorWhite );
GfxSetTextColor( ParamColor("Color",colorGreen) );
Hor=230; 
Ver=320; ;
GfxTextOut(""+r1,Hor , Ver );
_SECTION_END();
_SECTION_BEGIN("res/sup-r2");

GfxSelectFont("arial", 10, 700 ); GfxSetBkMode( colorWhite );
GfxSetTextColor( ParamColor("Color",colorGreen) );
Hor=230; 
Ver=350; 
GfxTextOut(""+r2,Hor , Ver );
_SECTION_END();

_SECTION_BEGIN("res/sup-r3");

GfxSelectFont("arial", 10, 700 ); GfxSetBkMode( colorWhite );
GfxSetTextColor( ParamColor("Color",colorGreen) );
Hor=230; 
Ver=380; 
GfxTextOut(""+r3,Hor , Ver );
_SECTION_END();

_SECTION_BEGIN("MACD");
r1 = 12; 
r2 = 26; 
r3 = 9; 
r4 = 17; 
r5 = 8; 
m1=MACD(r1,r2); 
s1=Signal(r1,r2,r3); 

_SECTION_END();

_SECTION_BEGIN("Forex_Main_mrtq13");
 ///////////////////////////////////
 Title =
 EncodeColor(colorWhite)+ Title = Name () + " | " 
 +EncodeColor(colorYellow) + Date() + " | " 

 +EncodeColor(colorTurquoise)+ "O : "+ EncodeColor(colorLightGrey)+ O + " | "
 +EncodeColor(colorTurquoise)+ "H : "+ EncodeColor(colorLightGrey)+ H + " | "
 +EncodeColor(colorTurquoise)+ "L : "+ EncodeColor(colorLightGrey)+ L + " | "
 +EncodeColor(colorTurquoise)+ "C : "+ WriteIf(C> Ref(C, -1),EncodeColor(colorBrightGreen),EncodeColor(colorRed))+ C + " | "
 +EncodeColor(colorTurquoise)+ "Change : ("+ WriteIf(C> Ref(C, -1),EncodeColor(colorBrightGreen),EncodeColor(colorRed)) + WriteVal(C-Ref(C,-1))+" Rs."
 +EncodeColor(colorTurquoise)+ " /"+ WriteIf(C> Ref(C, -1),EncodeColor(colorBrightGreen),EncodeColor(colorRed))+ WriteVal( ROC( C, 1 ))+""+ " % "
 +EncodeColor(colorTurquoise)+ ") | Volume : " + WriteIf(V> Ref(V, -1),EncodeColor(colorBrightGreen),EncodeColor(colorRed))+ WriteVal(V,1)
 ; 
 _SECTION_END(); 

_SECTION_BEGIN("Flower");
Show_color = ParamToggle("Display CandleColor", "No|Yes", 1);
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); 
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 | styleCandle); 
_SECTION_END();
_SECTION_BEGIN("Bands");

SupResB =6; 
nn=SupResB; 
Bandlinecol=ParamColor("SupResLineColor",ColorRGB(82,82,82));
ParmCloud = ParamToggle("Cloud", "No|Yes", 0);
BoxCloudColor=ParamColor("BoxCloudColor",ColorRGB(27,27,27));
Line2=Param("ResLineLength",100,2,500,0.1);
Daysback1    = Line2; 
FirstBar1    = BarCount - DaysBack1; 
Hh=HHV(flowerHigh,nn);
LL=LLV(flowerLow,nn);
Res2=Hh;
Sup2=LL;
BandRes=IIf(BarIndex() >= Firstbar1,EndValue(Res2),Null);
BandSup=IIf(BarIndex() >= Firstbar1,EndValue(Sup2),Null);
Plot(BandRes,"",Bandlinecol,ParamStyle("ShortSupBand",styleLine|styleDashed|stylehidden|styleNoTitle|styleNoLabel|styleThick,maskAll));
Plot(BandSup,"",Bandlinecol,ParamStyle("ShortResBand",styleLine|styleDashed|stylehidden|styleNoTitle|styleNoLabel|styleThick,maskAll));
CS=BandRes;
CR=BandSup;
if(parmCloud == 1)
PlotOHLC( CS, CS, CR,CR, "Band",BoxCloudColor, styleCloud | styleNoLabel|styleNoTitle); 
_SECTION_END();

_SECTION_BEGIN("Breakout Setting");
 Buyperiods=5; 
 Sellperiods=5; 

 HaClose =EMA((O+H+L+C)/4,3);  
 //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();

_SECTION_BEGIN("Graphics");
GrpPrm=Param("Graphic Space",-5,-10,10);
GraphXSpace=GrpPrm;
_SECTION_END();

//#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( colorDarkTeal ); 

 }

 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=23; 
MA2=50; 
TCLen=10; 
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( colorDarkTeal ); 

 }

 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( colorDarkTeal ); 

 }

 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( colorDarkTeal ); 

 }

 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( colorDarkTeal ); 

 }

 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( colorDarkTeal ); 

 }

 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( colorDarkTeal ); 

 }

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

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


 _SECTION_END();


_SECTION_BEGIN("MACDHIGHBULLISH");
r1 = 12; 
r2 = 26; 
r3 = 9; 
r4 = 17; 
r5 = 8; 
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( colorDarkTeal ); 

 }
 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 = 12; 
r2 = 26; 
r3 = 9; 
r4 = 17; 
r5 = 8; 
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( colorDarkTeal ); 

 }
 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 = 12; 
r2 = 26; 
r3 = 9; 
r4 = 17; 
r5 = 8; 
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( colorDarkTeal ); 

 }
 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 = 12; 
r2 = 26; 
r3 = 9; 
r4 = 17; 
r5 = 8; 
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( colorDarkTeal ); 

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

 GfxSelectPen( colorBlue, 1 ); 
// broader color 

 GfxRectangle(80,375,120,315);
_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 ); 


 

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


_SECTION_BEGIN("volume1");


 
 
 
GfxSelectSolidBrush( colorDarkTeal );

GfxRoundRect(240,30,260,200,20,20);

_SECTION_END();
_SECTION_BEGIN("volume2");


 
 
 
GfxSelectSolidBrush( colorDarkTeal );

GfxCircle( 250,180,23 );

_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);  
dv = rv + yv; dv1 = Ref(dv, -1);  


VolPer = 10; 
ConvPer = 4; 


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




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("vol30");
rsiup=rising; 
rsidn=falling; 
down=Converge > 0; 
rsiresult1 = WriteIf( rsiup,"ab", ""); 
rsiresult2 = WriteIf( rsidn,"cd", ""); 
rsiresult3 = WriteIf( down,"ef", ""); 
 RequestTimedRefresh( 0 );
 if ( rsiresult1 =="ab")
 {
 GfxSelectSolidBrush( ColorRGB(0,147,0) ); 
GfxSelectFont( "Arial", 10, 100 );
 GfxSetBkMode( 1 );
 GfxSetTextColor( colorGreen );
 GfxSelectPen( colorGreen, 1 );
 }
 else

 if ( rsiresult2 =="cd")
 {
 GfxSelectSolidBrush( ColorRGB(0,85,0) ); 
GfxSelectFont( "Arial", 10, 100 );
 GfxSetBkMode( 1 );
 GfxSetTextColor( colorDarkGreen );
 GfxSelectPen( colorDarkGreen, 1 );

 }

else

 

 {
 GfxSelectSolidBrush( ColorRGB(255,0,0) ); 
GfxSelectFont( "Arial", 10, 100 );
 GfxSetBkMode( 1 );
 GfxSetTextColor( colorRed );
 GfxSelectPen( colorRed, 1 );

 }
GfxRectangle(241,50,259,200);

_SECTION_END();
_SECTION_BEGIN("vol31");
rsiup=rising; 
rsidn=falling; 
down=Converge > 0; 
rsiresult1 = WriteIf( rsiup,"ab", ""); 
rsiresult2 = WriteIf( rsidn,"cd", ""); 
rsiresult3 = WriteIf( down,"ef", ""); 
 RequestTimedRefresh( 0 ); 
 if ( rsiresult1 =="ab")
 {
 GfxSelectSolidBrush( ColorRGB(0,147,0) ); 
GfxSelectFont( "Arial", 10, 100 );
 GfxSetBkMode( 1 );
 GfxSetTextColor( colorGreen );
 GfxSelectPen( colorGreen, 1 );
 }
 else

 if ( rsiresult2 =="cd")
 {
 GfxSelectSolidBrush( ColorRGB(0,85,0) ); 
GfxSelectFont( "Arial", 10, 100 );
 GfxSetBkMode( 1 );
 GfxSetTextColor( colorDarkGreen );
 GfxSelectPen( colorDarkGreen, 1 );

 }

else

 

 {
 GfxSelectSolidBrush( ColorRGB(255,0,0) ); 
GfxSelectFont( "Arial", 10, 100 );
 GfxSetBkMode( 1 );
 GfxSetTextColor( colorRed );
 GfxSelectPen( colorRed, 1 );

 }
GfxCircle( 250,180,22 );

_SECTION_END();

_SECTION_BEGIN("Average 0");
 //Average_switch = ParamToggle("Candle On/off", "Off|On");
 P = HaClose; 
 Type = ParamList("Type", "Weighted,Lagless-21,Hull-26,Linear
 Regression-45,Exponential,Double Exponential,Tripple
 Exponential,Wilders,Simple");
 Periods = 20; 
 Displacement = 1; 
 m = 0; 

 if( Type == "Weighted" ) m= WMA( P, Periods );
 if( Type == "Lagless-21" ) m= 2*EMA(P, Periods)-EMA(EMA(P, Periods), Periods); 
 if( Type == "Hull-26" ) m= WMA(2*(WMA(P, Periods/2))-WMA(P, Periods) ,4 );
 if( Type == "Linear Regression-45" ) m= LinearReg( P, Periods );
 if( Type == "Exponential" ) m = EMA( P, Periods );
 if( Type == "Double Exponential" ) m = DEMA( P, Periods );
 if( Type == "Tripple Exponential" ) m = TEMA( P, Periods );
 if( Type == "Wilders" ) m = Wilders( P, Periods );
 if( Type == "Simple" ) m = MA( P, Periods );

 Plot( m, _DEFAULT_NAME(), ParamColor("Color", colorLightGrey),ParamStyle("Style",styleLine |styleThick|styleNoTitle ,maskAll),Displacement );

 _SECTION_END();


 _SECTION_BEGIN("Average 1");
 //Average_switch = ParamToggle("Candle On/off", "Off|On");
 P = HaClose; 
 Type = ParamList("Type", "Weighted,Lagless-21,Hull-26,Linear
 Regression-45,Exponential,Double Exponential,Tripple
 Exponential,Wilders,Simple");
 Periods = 60; 
 Displacement = 1; 
 m = 0; 

 if( Type == "Weighted" ) m= WMA( P, Periods );
 if( Type == "Lagless-21" ) m= 2*EMA(P, Periods)-EMA(EMA(P, Periods), Periods); 
 if( Type == "Hull-26" ) m= WMA(2*(WMA(P, Periods/2))-WMA(P, Periods) ,4 );
 if( Type == "Linear Regression-45" ) m= LinearReg( P, Periods );
 if( Type == "Exponential" ) m = EMA( P, Periods );
 if( Type == "Double Exponential" ) m = DEMA( P, Periods );
 if( Type == "Tripple Exponential" ) m = TEMA( P, Periods );
 if( Type == "Wilders" ) m = Wilders( P, Periods );
 if( Type == "Simple" ) m = MA( P, Periods );

 Plot( m, _DEFAULT_NAME(), ParamColor("Color", colorGrey50),ParamStyle("Style",styleLine |styleNoTitle ,maskAll),Displacement );

 _SECTION_END();

 



 _SECTION_BEGIN("Average 5");
 P = HaClose; 
 Type = ParamList("Type", "Weighted,Lagless-21,Hull-26,Linear
 Regression-45,Exponential,Double Exponential,Tripple
 Exponential,Wilders,Simple");
 Periods = 120; 
 Displacement = 1; 
 m = 0; 

 if( Type == "Weighted" ) m= WMA( P, Periods );
 if( Type == "Lagless-21" ) m= 2*EMA(P, Periods)-EMA(EMA(P, Periods), Periods); 
 if( Type == "Hull-26" ) m= WMA(2*(WMA(P, Periods/2))-WMA(P, Periods) ,4 );
 if( Type == "Linear Regression-45" ) m= LinearReg( P, Periods );
 if( Type == "Exponential" ) m = EMA( P, Periods );
 if( Type == "Double Exponential" ) m = DEMA( P, Periods );
 if( Type == "Tripple Exponential" ) m = TEMA( P, Periods );
 if( Type == "Wilders" ) m = Wilders( P, Periods );
 if( Type == "Simple" ) m = MA( P, Periods );

 Plot( m, _DEFAULT_NAME(), ParamColor("Color", colorGrey40),ParamStyle("Style",styleLine |styleNoTitle ,maskAll),Displacement );
 _SECTION_END();


 _SECTION_BEGIN("Sell Average 3");
 P = HaClose; 
 Type = ParamList("Type", "Weighted,Lagless-21,Hull-26,Linear
 Regression-45,Exponential,Double Exponential,Tripple
 Exponential,Wilders,Simple");
 Periods = 180; 
 Displacement = 1; 
 m = 0; 

 if( Type == "Weighted" ) m= WMA( P, Periods );
 if( Type == "Lagless-21" ) m= 2*EMA(P, Periods)-EMA(EMA(P, Periods), Periods); 
 if( Type == "Hull-26" ) m= WMA(2*(WMA(P, Periods/2))-WMA(P, Periods) ,4 );
 if( Type == "Linear Regression-45" ) m= LinearReg( P, Periods );
 if( Type == "Exponential" ) m = EMA( P, Periods );
 if( Type == "Double Exponential" ) m = DEMA( P, Periods );
 if( Type == "Tripple Exponential" ) m = TEMA( P, Periods );
 if( Type == "Wilders" ) m = Wilders( P, Periods );
 if( Type == "Simple" ) m = MA( P, Periods );

 Plot( m, _DEFAULT_NAME(), ParamColor("Color", ColorRGB(40,40,40)),ParamStyle("Style",styleLine |styleNoTitle ,maskAll),Displacement );
 _SECTION_END();
_SECTION_BEGIN("trendline");

farback=100; 
nBars = 12; 
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;
if (aLLVBars[curBar] < aHHVBars[curBar]) {
if (curTrend == "U") {curTrend = "D";
curPivBarIdx = curBar - aLLVBars[curBar];aLPivs[curPivBarIdx] = 1;aLPivLows[nLPivs] = L[curPivBarIdx];
aLPivIdxs[nLPivs] = curPivBarIdx;nLPivs++;}
} else {if (curTrend == "D") {curTrend = "U";curPivBarIdx = curBar - aHHVBars[curBar];
aHPivs[curPivBarIdx] = 1;aHPivHighs[nHPivs] = H[curPivBarIdx];
aHPivIdxs[nHPivs] = curPivBarIdx;nHPivs++;}} }
curBar = (BarCount-1);candIdx = 0;candPrc = 0;lastLPIdx = aLPivIdxs[0];lastLPL = aLPivLows[0];
lastHPIdx = aHPivIdxs[0];lastHPH = aHPivHighs[0];if (lastLPIdx > lastHPIdx) {
candIdx = curBar - aHHVBars[curBar];candPrc = aHHV[curBar];
if (lastHPH < candPrc AND candIdx > lastLPIdx AND candIdx < curBar) {
aHPivs[candIdx] = 1;
for (j=0; j<nHPivs; j++) {aHPivHighs[nHPivs-j] = aHPivHighs[nHPivs-(j+1)];
aHPivIdxs[nHPivs-j] = aHPivIdxs[nHPivs-(j+1)];}aHPivHighs[0] = candPrc ;
aHPivIdxs[0] = candIdx;nHPivs++;}} else {
candIdx = curBar - aLLVBars[curBar];candPrc = aLLV[curBar];if (lastLPL > candPrc AND
candIdx > lastHPIdx AND candIdx < curBar) {
aLPivs[candIdx] = 1;
for (j=0; j<nLPivs; j++) {aLPivLows[nLPivs-j] = aLPivLows[nLPivs-(j+1)];
aLPivIdxs[nLPivs-j] = aLPivIdxs[nLPivs-(j+1)];}aLPivLows[0] = candPrc;
aLPivIdxs[0] = candIdx;nLPivs++;}}
for (k=0; k<nHPivs; k++) {_TRACE("High pivot no. " + k
+ " at barindex: " + aHPivIdxs[k] + ", "
+ WriteVal(ValueWhen(BarIndex()==aHPivIdxs[k],
DateTime(), 1), formatDateTime)+ ", " + aHPivHighs[k]);}
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);

pR = a1== 1; 
endt1= SelectedValue(ValueWhen( pR, x, 1 ));
startt1=SelectedValue(ValueWhen( pR, x, 2 ));
dtR =endt1-startt1; 
endR = SelectedValue(ValueWhen( pR, s11, 1 ) );
startR = SelectedValue( ValueWhen( pR, s11, 2 ));
aR = (endR-startR)/dtR;bR = endR;
trendlineR = aR * ( x -endt1 ) + bR; 
g4= IIf(x>startT1-10,trendlineR,-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 ); 


 

GfxMoveTo( 35,234 );
GfxLineTo( 163, 362 );  
_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);

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("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 );

_SECTION_END();

Please follow this advice: How to ask a good question

Hello hotnabin21,

what you expect from us ? You copy afl snips/sections with a bunch of mistakes and ask for support. Do you really understand what you are copying/pasting/doing here ? I guess you are not, you saw picture(s) of result(s) in the internet, but are you really clear what is the background of your afl chaining ? Please understand you will only be successful when you will be able to understand afl syntax, line by line and the math behind.

  1. learn afl
  2. split chained afl of anyone anywhere in the internet into separate sections
  3. study the math behind, additional the logic/objective of the developer
  4. correct the syntax until it will work
  5. use it if it could be helpful and you finally recognize the strategy

I only made this thing work no interest to study the logic behind just in time. I use lastest AB version. In my mind many features here are not working correct with this thing ...

SetChartOptions( 0, chartShowArrows | chartShowDates );
SetChartBkColor( ParamColor( "Outer panel", colorLightBlue ) ); // color of outer border
SetChartBkGradientFill( ParamColor( "Inner panel upper", colorBlue ), ParamColor( "Inner panel lower", colorBlack ) );
tchoice = Param( "Title Selection ", 2, 1, 2, 1 );

_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;
bi = BarIndex();
Lbi = LastValue( BarIndex() );
sbi = SelectedValue( bi );
x1 = BarCount - 1;
Title = EncodeColor( 55 ) +  Title = Name() + "     " + EncodeColor( 32 ) + Date() +
                                     "      " + EncodeColor( 5 ) + "{{INTERVAL}}  " +
                                     EncodeColor( 55 ) + "     Open = " + EncodeColor( 52 ) + WriteVal( O, dec ) +
                                     EncodeColor( 55 ) + "     High = " + EncodeColor( 5 ) + WriteVal( H, dec ) +
                                     EncodeColor( 55 ) + "      Low = " + EncodeColor( 32 ) + WriteVal( L, dec ) +
                                     EncodeColor( 55 ) + "    Close = " + EncodeColor( 52 ) + WriteVal( C, dec ) +
                                     EncodeColor( 55 ) + "    Volume = " + EncodeColor( 52 ) + WriteVal( V, 1 );
_SECTION_END();
_SECTION_BEGIN( "BASERECTANGEL" );

GfxSelectFont( "Arial", 10, 100 );
GfxSetBkMode( 1 );
GfxSetTextColor( colorBlue );
GfxSelectSolidBrush( colorDarkTeal );
GfxSelectPen( colorBlue, 1 );
// broader color
GfxRectangle( 0, 15, 203, 400 );

_SECTION_END();
_SECTION_BEGIN( "BASERECTANGEL" );

GfxSelectFont( "Arial", 10, 100 );
GfxSetBkMode( 1 );
GfxSetTextColor( colorBlue );
GfxSelectSolidBrush( colorDarkTeal );
GfxSelectPen( colorBlue, 1 );
// broader color
GfxRectangle( 202, 15, 300, 400 );

_SECTION_END();

_SECTION_BEGIN( "res/sup-s1" );

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 );
PP = ( DayH + DayL + DayO + DayO ) / 4 ;
R1 = ( 2 * PP ) - DayL;
S1 = ( 2 * PP ) - DayH;
R2 = PP + R1 - S1;
S2 = PP + S1 - R1;
R3 = R2 + ( R1 - PP );
S3 = S2 - ( PP - S1 );
style = styleLine | styleThick + styleNoRescale;
rcolor = colorBlue;
scolor = colorRed;
pcolor = colorGreen;

GfxSelectFont( "arial", 10, 700 );
GfxSetBkMode( colorWhite );
GfxSetTextColor( ParamColor( "Color", colorRed ) );
Hor = 230;
Ver = 230;

GfxTextOut( "" + s1, Hor , Ver );

_SECTION_END();

_SECTION_BEGIN( "res/sup-s2" );

GfxSelectFont( "arial", 10, 700 );
GfxSetBkMode( colorWhite );
GfxSetTextColor( ParamColor( "Color", colorRed ) );
Hor = 230;
Ver = 260;
GfxTextOut( "" + s2, Hor , Ver );
_SECTION_END();

_SECTION_BEGIN( "res/sup-s3" );

GfxSelectFont( "arial", 10, 700 );
GfxSetBkMode( colorWhite );
GfxSetTextColor( ParamColor( "Color", colorRed ) );
Hor = 230;
Ver = 290;
GfxTextOut( "" + s3, Hor , Ver );
_SECTION_END();

_SECTION_BEGIN( "res/sup-r1" );

GfxSelectFont( "arial", 10, 700 );
GfxSetBkMode( colorWhite );
GfxSetTextColor( ParamColor( "Color", colorGreen ) );
Hor = 230;
Ver = 320; ;
GfxTextOut( "" + r1, Hor , Ver );
_SECTION_END();
_SECTION_BEGIN( "res/sup-r2" );

GfxSelectFont( "arial", 10, 700 );
GfxSetBkMode( colorWhite );
GfxSetTextColor( ParamColor( "Color", colorGreen ) );
Hor = 230;
Ver = 350;
GfxTextOut( "" + r2, Hor , Ver );
_SECTION_END();

_SECTION_BEGIN( "res/sup-r3" );

GfxSelectFont( "arial", 10, 700 );
GfxSetBkMode( colorWhite );
GfxSetTextColor( ParamColor( "Color", colorGreen ) );
Hor = 230;
Ver = 380;
GfxTextOut( "" + r3, Hor , Ver );
_SECTION_END();

_SECTION_BEGIN( "MACD" );
r1 = 12;
r2 = 26;
r3 = 9;
r4 = 17;
r5 = 8;
m1 = MACD( r1, r2 );
s1 = Signal( r1, r2, r3 );

_SECTION_END();

_SECTION_BEGIN( "Forex_Main_mrtq13" );
///////////////////////////////////
Title =
    EncodeColor( colorWhite ) + Title = Name() + " | "
                                        + EncodeColor( colorYellow ) + Date() + " | "

                                        + EncodeColor( colorTurquoise ) + "O : " + EncodeColor( colorLightGrey ) + O + " | "
                                        + EncodeColor( colorTurquoise ) + "H : " + EncodeColor( colorLightGrey ) + H + " | "
                                        + EncodeColor( colorTurquoise ) + "L : " + EncodeColor( colorLightGrey ) + L + " | "
                                        + EncodeColor( colorTurquoise ) + "C : " + WriteIf( C > Ref( C, -1 ), EncodeColor( colorBrightGreen ), EncodeColor( colorRed ) ) + C + " | "
                                        + EncodeColor( colorTurquoise ) + "Change : (" + WriteIf( C > Ref( C, -1 ), EncodeColor( colorBrightGreen ), EncodeColor( colorRed ) ) + WriteVal( C - Ref( C, -1 ) ) + " Rs."
                                        + EncodeColor( colorTurquoise ) + " /" + WriteIf( C > Ref( C, -1 ), EncodeColor( colorBrightGreen ), EncodeColor( colorRed ) ) + WriteVal( ROC( C, 1 ) ) + "" + " % "
                                        + EncodeColor( colorTurquoise ) + ") | Volume : " + WriteIf( V > Ref( V, -1 ), EncodeColor( colorBrightGreen ), EncodeColor( colorRed ) ) + WriteVal( V, 1 )
                                        ;
_SECTION_END();

_SECTION_BEGIN( "Flower" );
Show_color = ParamToggle( "Display CandleColor", "No|Yes", 1 );
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 );
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 | styleCandle );
_SECTION_END();
_SECTION_BEGIN( "Bands" );

SupResB = 6;
nn = SupResB;
Bandlinecol = ParamColor( "SupResLineColor", ColorRGB( 82, 82, 82 ) );
ParmCloud = ParamToggle( "Cloud", "No|Yes", 0 );
BoxCloudColor = ParamColor( "BoxCloudColor", ColorRGB( 27, 27, 27 ) );
Line2 = Param( "ResLineLength", 100, 2, 500, 0.1 );
Daysback1    = Line2;
FirstBar1    = BarCount - DaysBack1;
Hh = HHV( flowerHigh, nn );
LL = LLV( flowerLow, nn );
Res2 = Hh;
Sup2 = LL;
BandRes = IIf( BarIndex() >= Firstbar1, EndValue( Res2 ), Null );
BandSup = IIf( BarIndex() >= Firstbar1, EndValue( Sup2 ), Null );
Plot( BandRes, "", Bandlinecol, ParamStyle( "ShortSupBand", styleLine | styleDashed | stylehidden | styleNoTitle | styleNoLabel | styleThick, maskAll ) );
Plot( BandSup, "", Bandlinecol, ParamStyle( "ShortResBand", styleLine | styleDashed | stylehidden | styleNoTitle | styleNoLabel | styleThick, maskAll ) );
CS = BandRes;
CR = BandSup;

if( parmCloud == 1 )
    PlotOHLC( CS, CS, CR, CR, "Band", BoxCloudColor, styleCloud | styleNoLabel | styleNoTitle );

_SECTION_END();

_SECTION_BEGIN( "Breakout Setting" );
Buyperiods = 5;
Sellperiods = 5;

HaClose = EMA( ( O + H + L + C ) / 4, 3 );
//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();

_SECTION_BEGIN( "Graphics" );
GrpPrm = Param( "Graphic Space", -5, -10, 10 );
GraphXSpace = GrpPrm;
_SECTION_END();

//#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( colorDarkTeal );

        }

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 = 23;
MA2 = 50;
TCLen = 10;
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( colorDarkTeal );

        }

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( colorDarkTeal );

        }

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( colorDarkTeal );

        }

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( colorDarkTeal );

        }

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( colorDarkTeal );

        }

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( colorDarkTeal );

        }

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

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


_SECTION_END();


_SECTION_BEGIN( "MACDHIGHBULLISH" );
r1 = 12;
r2 = 26;
r3 = 9;
r4 = 17;
r5 = 8;
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( colorDarkTeal );

    }

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 = 12;
r2 = 26;
r3 = 9;
r4 = 17;
r5 = 8;
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( colorDarkTeal );

    }

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 = 12;
r2 = 26;
r3 = 9;
r4 = 17;
r5 = 8;
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( colorDarkTeal );

    }

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 = 12;
r2 = 26;
r3 = 9;
r4 = 17;
r5 = 8;
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( colorDarkTeal );

    }

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

GfxSelectPen( colorBlue, 1 );
// broader color

GfxRectangle( 80, 375, 120, 315 );
_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 );




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


_SECTION_BEGIN( "volume1" );





GfxSelectSolidBrush( colorDarkTeal );

GfxRoundRect( 240, 30, 260, 200, 20, 20 );

_SECTION_END();
_SECTION_BEGIN( "volume2" );





GfxSelectSolidBrush( colorDarkTeal );

GfxCircle( 250, 180, 23 );

_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 );
dv = rv + yv;
dv1 = Ref( dv, -1 );


VolPer = 10;
ConvPer = 4;


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




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( "vol30" );
rsiup = rising;
rsidn = falling;
down = Converge > 0;
rsiresult1 = WriteIf( rsiup, "ab", "" );
rsiresult2 = WriteIf( rsidn, "cd", "" );
rsiresult3 = WriteIf( down, "ef", "" );
RequestTimedRefresh( 0 );

if( rsiresult1 == "ab" )
{
    GfxSelectSolidBrush( ColorRGB( 0, 147, 0 ) );
    GfxSelectFont( "Arial", 10, 100 );
    GfxSetBkMode( 1 );
    GfxSetTextColor( colorGreen );
    GfxSelectPen( colorGreen, 1 );
}
else

    if( rsiresult2 == "cd" )
    {
        GfxSelectSolidBrush( ColorRGB( 0, 85, 0 ) );
        GfxSelectFont( "Arial", 10, 100 );
        GfxSetBkMode( 1 );
        GfxSetTextColor( colorDarkGreen );
        GfxSelectPen( colorDarkGreen, 1 );

    }

    else



    {
        GfxSelectSolidBrush( ColorRGB( 255, 0, 0 ) );
        GfxSelectFont( "Arial", 10, 100 );
        GfxSetBkMode( 1 );
        GfxSetTextColor( colorRed );
        GfxSelectPen( colorRed, 1 );

    }

GfxRectangle( 241, 50, 259, 200 );

_SECTION_END();
_SECTION_BEGIN( "vol31" );
rsiup = rising;
rsidn = falling;
down = Converge > 0;
rsiresult1 = WriteIf( rsiup, "ab", "" );
rsiresult2 = WriteIf( rsidn, "cd", "" );
rsiresult3 = WriteIf( down, "ef", "" );
RequestTimedRefresh( 0 );

if( rsiresult1 == "ab" )
{
    GfxSelectSolidBrush( ColorRGB( 0, 147, 0 ) );
    GfxSelectFont( "Arial", 10, 100 );
    GfxSetBkMode( 1 );
    GfxSetTextColor( colorGreen );
    GfxSelectPen( colorGreen, 1 );
}
else

    if( rsiresult2 == "cd" )
    {
        GfxSelectSolidBrush( ColorRGB( 0, 85, 0 ) );
        GfxSelectFont( "Arial", 10, 100 );
        GfxSetBkMode( 1 );
        GfxSetTextColor( colorDarkGreen );
        GfxSelectPen( colorDarkGreen, 1 );

    }

    else



    {
        GfxSelectSolidBrush( ColorRGB( 255, 0, 0 ) );
        GfxSelectFont( "Arial", 10, 100 );
        GfxSetBkMode( 1 );
        GfxSetTextColor( colorRed );
        GfxSelectPen( colorRed, 1 );

    }

GfxCircle( 250, 180, 22 );

_SECTION_END();

_SECTION_BEGIN( "Average 0" );
//Average_switch = ParamToggle("Candle On/off", "Off|On");
P = HaClose;
Type = ParamList( "Type", "Weighted,Lagless_21,Hull_26,Linear_Regression_45,Exponential,Double_Exponential,Tripple_Exponential,Wilders,Simple" );
Periods = 20;
Displacement = 1;
m = 0;

if( Type == "Weighted" ) m = WMA( P, Periods );

if( Type == "Lagless_21" ) m = 2 * EMA( P, Periods ) - EMA( EMA( P, Periods ), Periods );

if( Type == "Hull_26" ) m = WMA( 2 * ( WMA( P, Periods / 2 ) ) - WMA( P, Periods ) , 4 );

if( Type == "Linear_Regression_45" ) m = LinearReg( P, Periods );

if( Type == "Exponential" ) m = EMA( P, Periods );

if( Type == "Double_Exponential" ) m = DEMA( P, Periods );

if( Type == "Tripple_Exponential" ) m = TEMA( P, Periods );

if( Type == "Wilders" ) m = Wilders( P, Periods );

if( Type == "Simple" ) m = MA( P, Periods );

Plot( m, _DEFAULT_NAME(), ParamColor( "Color", colorLightGrey ), ParamStyle( "Style", styleLine | styleThick | styleNoTitle , maskAll ), Displacement );

_SECTION_END();


_SECTION_BEGIN( "Average 1" );
//Average_switch = ParamToggle("Candle On/off", "Off|On");
P = HaClose;
Type = ParamList( "Type", "Weighted,Lagless_21,Hull_26,Linear_Regression_45,Exponential,Double_Exponential,Tripple_Exponential,Wilders,Simple" );
Periods = 60;
Displacement = 1;
m = 0;

if( Type == "Weighted" ) m = WMA( P, Periods );

if( Type == "Lagless_21" ) m = 2 * EMA( P, Periods ) - EMA( EMA( P, Periods ), Periods );

if( Type == "Hull_26" ) m = WMA( 2 * ( WMA( P, Periods / 2 ) ) - WMA( P, Periods ) , 4 );

if( Type == "Linear_Regression_45" ) m = LinearReg( P, Periods );

if( Type == "Exponential" ) m = EMA( P, Periods );

if( Type == "Double_Exponential" ) m = DEMA( P, Periods );

if( Type == "Tripple_Exponential" ) m = TEMA( P, Periods );

if( Type == "Wilders" ) m = Wilders( P, Periods );

if( Type == "Simple" ) m = MA( P, Periods );

Plot( m, _DEFAULT_NAME(), ParamColor( "Color", colorGrey50 ), ParamStyle( "Style", styleLine | styleNoTitle , maskAll ), Displacement );

_SECTION_END();





_SECTION_BEGIN( "Average 5" );
P = HaClose;
Type = ParamList( "Type", "Weighted,Lagless_21,Hull_26,Linear_Regression_45,Exponential,Double_Exponential,Tripple_Exponential,Wilders,Simple" );
Periods = 120;
Displacement = 1;
m = 0;

if( Type == "Weighted" ) m = WMA( P, Periods );

if( Type == "Lagless_21" ) m = 2 * EMA( P, Periods ) - EMA( EMA( P, Periods ), Periods );

if( Type == "Hull_26" ) m = WMA( 2 * ( WMA( P, Periods / 2 ) ) - WMA( P, Periods ) , 4 );

if( Type == "Linear_Regression_45" ) m = LinearReg( P, Periods );

if( Type == "Exponential" ) m = EMA( P, Periods );

if( Type == "Double_Exponential" ) m = DEMA( P, Periods );

if( Type == "Tripple_Exponential" ) m = TEMA( P, Periods );

if( Type == "Wilders" ) m = Wilders( P, Periods );

if( Type == "Simple" ) m = MA( P, Periods );

Plot( m, _DEFAULT_NAME(), ParamColor( "Color", colorGrey40 ), ParamStyle( "Style", styleLine | styleNoTitle , maskAll ), Displacement );
_SECTION_END();


_SECTION_BEGIN( "Sell Average 3" );
P = HaClose;
Type = ParamList( "Type", "Weighted,Lagless_21,Hull_26,Linear_Regression_45,Exponential,Double_Exponential,Tripple_Exponential,Wilders,Simple" );
Periods = 180;
Displacement = 1;
m = 0;

if( Type == "Weighted" ) m = WMA( P, Periods );

if( Type == "Lagless_21" ) m = 2 * EMA( P, Periods ) - EMA( EMA( P, Periods ), Periods );

if( Type == "Hull_26" ) m = WMA( 2 * ( WMA( P, Periods / 2 ) ) - WMA( P, Periods ) , 4 );

if( Type == "Linear_Regression_45" ) m = LinearReg( P, Periods );

if( Type == "Exponential" ) m = EMA( P, Periods );

if( Type == "Double_Exponential" ) m = DEMA( P, Periods );

if( Type == "Tripple_Exponential" ) m = TEMA( P, Periods );

if( Type == "Wilders" ) m = Wilders( P, Periods );

if( Type == "Simple" ) m = MA( P, Periods );

Plot( m, _DEFAULT_NAME(), ParamColor( "Color", ColorRGB( 40, 40, 40 ) ), ParamStyle( "Style", styleLine | styleNoTitle , maskAll ), Displacement );
_SECTION_END();
_SECTION_BEGIN( "trendline" );

farback = 100;
nBars = 12;
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;

    if( aLLVBars[curBar] < aHHVBars[curBar] )
    {
        if( curTrend == "U" )
        {
            curTrend = "D";
            curPivBarIdx = curBar - aLLVBars[curBar];
            aLPivs[curPivBarIdx] = 1;
            aLPivLows[nLPivs] = L[curPivBarIdx];
            aLPivIdxs[nLPivs] = curPivBarIdx;
            nLPivs++;
        }
    }
    else
    {
        if( curTrend == "D" )
        {
            curTrend = "U";
            curPivBarIdx = curBar - aHHVBars[curBar];
            aHPivs[curPivBarIdx] = 1;
            aHPivHighs[nHPivs] = H[curPivBarIdx];
            aHPivIdxs[nHPivs] = curPivBarIdx;
            nHPivs++;
        }
    }
}

curBar = ( BarCount - 1 );
candIdx = 0;
candPrc = 0;
lastLPIdx = aLPivIdxs[0];
lastLPL = aLPivLows[0];
lastHPIdx = aHPivIdxs[0];
lastHPH = aHPivHighs[0];

if( lastLPIdx > lastHPIdx )
{
    candIdx = curBar - aHHVBars[curBar];
    candPrc = aHHV[curBar];

    if( lastHPH < candPrc AND candIdx > lastLPIdx AND candIdx < curBar )
    {
        aHPivs[candIdx] = 1;

        for( j = 0; j < nHPivs; j++ )
        {
            aHPivHighs[nHPivs - j] = aHPivHighs[nHPivs - ( j + 1 )];
            aHPivIdxs[nHPivs - j] = aHPivIdxs[nHPivs - ( j + 1 )];
        }

        aHPivHighs[0] = candPrc ;
        aHPivIdxs[0] = candIdx;
        nHPivs++;
    }
}
else
{
    candIdx = curBar - aLLVBars[curBar];
    candPrc = aLLV[curBar];

    if( lastLPL > candPrc AND
            candIdx > lastHPIdx AND candIdx < curBar )
    {
        aLPivs[candIdx] = 1;

        for( j = 0; j < nLPivs; j++ )
        {
            aLPivLows[nLPivs - j] = aLPivLows[nLPivs - ( j + 1 )];
            aLPivIdxs[nLPivs - j] = aLPivIdxs[nLPivs - ( j + 1 )];
        }

        aLPivLows[0] = candPrc;
        aLPivIdxs[0] = candIdx;
        nLPivs++;
    }
}

for( k = 0; k < nHPivs; k++ )
{
    _TRACE( "High pivot no. " + k
            + " at barindex: " + aHPivIdxs[k] + ", "
            + WriteVal( ValueWhen( BarIndex() == aHPivIdxs[k],
                                   DateTime(), 1 ), formatDateTime ) + ", " + aHPivHighs[k] );
}

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 );

pR = a1 == 1;
endt1 = SelectedValue( ValueWhen( pR, x, 1 ) );
startt1 = SelectedValue( ValueWhen( pR, x, 2 ) );
dtR = endt1 - startt1;
endR = SelectedValue( ValueWhen( pR, s11, 1 ) );
startR = SelectedValue( ValueWhen( pR, s11, 2 ) );
aR = ( endR - startR ) / dtR;
bR = endR;
trendlineR = aR * ( x - endt1 ) + bR;
g4 = IIf( x > startT1 - 10, trendlineR, -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 );




GfxMoveTo( 35, 234 );
GfxLineTo( 163, 362 );
_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 );

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( "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 );

Best regards,
Peter

1 Like

This topic was automatically closed 100 days after the last reply. New replies are no longer allowed.