Simple Trend

//Indicator for trend identification (based on position of moving averages)
//Editor - balance.
//21/05/2017


count1 = 0
count2=0
upcount=0
downcount=0

lma = Average(close)
sma = Average(close)

increase = sma>lma
decrease=lma>sma

while (increase) do
upcount =upcount +1
count1=count1+1
wend

while (decrease) do
count2 = count2+1
downcount=downcount-1
wend

UPtrend = upcount > unitsforthetrend
DOWNtrend= downcount < -unitsforthetrend

v=0

if (uptrend)then
v=1
elsif (downtrend)then
v=-1
else
v=0
endif

a=0

return v coloured(0,0,0)as "trend line",a coloured(255,0,0)as "zero line"