[b][b]OptVar2 Default: 10}
{#OptVar1 Default: 4}

var MA1, MA2, MA3, Trend1, Trend2, Trend3: integer;
var Trending, Bar, TrendPane: integer;
var x: float;

MA1 := 8;
MA2 := 13;
MA3 := 21;

Trend1 := EMASeries( #Close, MA1 );
Trend2 := EMASeries( #Close, MA2 );
Trend3 := EMASeries( #Close, MA3 );
PlotSeries( Trend1, 0, 007, 2 );
PlotSeries(
Trend2, 0, 060, 2 );
PlotSeries( Trend3, 0, 500, 2 );

{ Create Wealth-Lab Trend Index }
Trending := CreateSeries();
for Bar := 200 to BarCount() - 1 do
begin
x := ROC( Bar, Trend1, 20 ) * ROC( Bar, Trend2, 20
) * ROC( Bar, Trend3, 20 );
SetSeriesValue( Bar, Trending, x );
end;
TrendPane := CreatePane( 75, true, true );
PlotSeries( Trending, TrendPane, 004, 3 );
DrawLabel( 'WLTI (Wealth-Lab Trend Index', TrendPane );

{
WLTI value > 100 indicates bull trend, < -100 bear trend }
SetBarColors( 000, 000 );
for Bar := 50 to BarCount() - 1 do
begin
if GetSeriesValue( Bar, Trending ) > 100 then
SetBarColor( Bar, 009 )
else if
GetSeriesValue( Bar, Trending ) < -100 then
SetBarColor( Bar, 900 );
end[/b][/b]