inputs:
	Price( Close),
	Length( 20),
	Displace( 0),
	UpColor( green),
	UpDotColor (green),
	DnColor (red),
	DnDotColor (red),
	BarOffset (.02),
	DotInLine("No"),
	PaintInBarLRCLine ("Yes");

variables:
	LinReg( 0 ), Trend (0), Transition (0) ;

if Displace >= 0 or CurrentBar > AbsValue( Displace ) then 
	begin
	LinReg = LinearRegValue( Price, Length, 0 ) ; 
	If LinReg > LinReg [1] then
	  Begin
	  If Trend = -1 then Transition = 1;
	  If PaintInBarLRCLine = "Yes" then Plot1[Displace]( LinReg, "LinReg", UpColor );
	  If DotInline <> "Yes" then Plot3[Displace] (High + BarOffset,"Up",UpColor);
	  Trend = 1;
	  End
	Else
	  Begin
	  If Trend = 1 then Transition = 1;
	  If PaintInBarLRCLine = "Yes" then Plot1 [Displace] ( LinReg, "LinReg",DnColor ) ;
	  If DotInLine <> "Yes" then Plot4 [Displace] (Low - BarOffset,"Dn",DnColor);
	  Trend = -1;
	  End;
	  
If Transition = 1 then
Begin
  If Trend = 1 then 
  Begin 
    If DotInLine = "Yes" then
      Plot5[Displace]( LinReg, "UpDotColor", UpDotColor )
    else
      Plot5(High +  BarOffset, "UpDotColor", UpDotColor);
    Alert; 
  End;
  If Trend = -1 then 
  Begin
    If DotInLine = "Yes" then
      Plot6 [Displace] ( LinReg, "DnDotColor", DnDotColor ) 
    else
      Plot6(Low - BarOffset, "DnDotColor", DnDotColor);
    Alert;
  End;
  Transition = Transition + 1;
End;	  
	
	{ Alert criteria }
	if Displace <= 0 then 
		begin
		if Price > LinReg and LinReg > LinReg[1] and LinReg[1] <= LinReg[2] then
			Alert( "LRC turning up" )
		else if Price < LinReg and LinReg < LinReg[1] and LinReg[1] >= LinReg[2] then
			Alert( "LRC turning down" );	
		end ;
	end ;