Param linii trendu for Amibroker (AFL)

_SECTION_BEGIN("Linie Trendu-Color");
P = ParamField("Price field",-1);
Periods1 = Param("Periods1", 2, 2, 300, 1, 10 );
Periods2 = Param("Periods2", 2, 2, 300, 1, 10 );
percent  = 0.01 * 1; 
firstpointL = Periods1 ;
firstpointH = Periods2 ;

y0=LastValue(Trough(L,percent,firstpointL)); 
y1=LastValue(Trough(Ref(L,-1),percent,1));

for( i = 1; i < BarCount AND y0 >= y1; i++ )
{
      
      firstpointL++;   
      y0=LastValue(Trough(L,percent,firstpointL));       
}

x0=BarCount - 1 - LastValue(TroughBars(L,percent,firstpointL)); 
x1=BarCount - 1 - LastValue(TroughBars(Ref(L,-1),percent,1)); 
LineL = LineArray( x0, y0, x1, y1, 1 ); 

Plot(C, "C", colorBlack, styleCandle); 

Plot( LineL, " Support Trend line", colorGreen,ParamStyle("LineL",styleLine|styleLine|styleDots,maskAll)); 


yt0=LastValue(Peak(H,percent,firstpointH)); 
yt1=LastValue(Peak(Ref(H,-1),percent,1));

for(i = 1; i < BarCount AND yt0 <= yt1; i++ )
{
      
      firstpointH++;      
      yt0=LastValue(Peak(H,percent,firstpointH)); 
}
xt0=BarCount - 1 - LastValue(PeakBars(H,percent,firstpointH)); 
xt1=BarCount - 1 - LastValue(PeakBars(Ref(H,-1),percent,1)); 
LineH = LineArray( xt0, yt0, xt1, yt1, 1 ); 

Plot( LineH, "Resistance Trend line", colorRed, ParamStyle("LineH",styleLine|styleLine|styleDots,maskAll));

PlotOHLC(LineH , LineH , LineL , LineL , "", ParamColor("Trójkąt",ColorRGB(217,255,255)), styleCloud | styleNoRescale);
	



_SECTION_END();