Entry1 = Highest[20](High)
UpTrend = LinearRegression[30](close)> Average[30](close)
C1=Close>Entry1[1] and Uptrend
C2 = lowest[40](low)
DownTrend = LinearRegression[30](close)< Average[30](close)
C3=close<C2[1] and DownTrend
if c1 > 0 then
Stage = 1
endif
if c3 > 0 then
Stage=-1
endif
if close< Average[30](close) and Stage[1]=1 then
Stage=0
endif

if close> Average[30](close) and Stage[1]=-1 then
Stage=0
endif
return Stage

//Stage2=1; Stage3=0; Stage4=-1; stage 1 =0