a = close
c1 = ExponentialAverage[3](a)
c2 = ExponentialAverage[5](a)
c3 = ExponentialAverage[8](a)
c4 = ExponentialAverage[10](a)
c5 = ExponentialAverage[12](a)
c6 = ExponentialAverage[15](a)
GuppyCTMoy = (c1 + c2 + c3 + c4 + c5 + c6)/6
c7 = ExponentialAverage[30](a)
c8 = ExponentialAverage[35](a)
c9 = ExponentialAverage[40](a)
c10 = ExponentialAverage[45](a)
c11 = ExponentialAverage[50](a)
c12 = ExponentialAverage[60](a)
GuppyLTMoy = (c7 + c8 + c9 + c10 + c11 + c12)/6
Ecart = (GuppyCTMoy - GuppyLTMoy)
/////////////////////////// Paramètres de calcul de la moyenne du Guppy LT pour filtrer les entrées de position (la moyenne devant être entre le plancher et le plafond)
T1 = c7 - C7[1]
T2 = c8 - C8[1]
T3 = c9 - C9[1]
T4 = C10 - C10[1]
T5 = c11 - C11[1]
T6 = c12 - c12[1]
Guppy = (T1 + T2 + T3 + T4 + T5 + T6)/6
GuppyMoy = average[20](Guppy)*10
//////////////////////////////// Paramètres de calcul du plancher et du plafond pour filtrer la moyenne du Guppy LT ci-dessus
period = 200
if variation>0 then
HH = highest[period](ecart)
else
LL = lowest[period](ecart)
endif
sumplus=0
summinus=0
for i = 0 to period-1 do
if ecart[i]>0 then
sumplus=sumplus+ecart[i]
else
summinus=summinus+ecart[i]
endif
next
plus = sumplus/period //moyenne des ecarts + --> PLAFOND
minus = summinus/period //moyenne des ecarts - --> PLANCHER
////////////////////////////////// Paramètres de calcul de surachat et de survente pour filtrer l'écart GuppyCT - GuppyLT
midup = (hh + plus)/2
middn = (ll + minus)/2
//////////////////////////////////////////////////////////////////////////
GuppyFilter = (GuppyMoy < plus) and (guppyMoy > minus) and (ecart < midup) and (ecart > middn)
screener [guppyfilter]
.
