<strong>// SIGNAUX RSI JPHP on chart PRC 20.10.2016</strong>
//signal=0
ME10=exponentialaverage[10]
NbBarLimit = 4
// periode=20
MyRSIprevious=RSI[p1](close)[1]
MyRSI=RSI[p1](close)
//vitesse =ME10-ME10[1]
C1= MyRSIprevious>70
C2=MyRSI<70
C3=MyRSIprevious<30
C4=MyRSI>30
C5=close crosses over ME10
C6=close crosses under ME10
//C9=vitesse>0
//C10=vitesse<0
C7= C1 and C2
C8=C3 and C4
if C7 or C8 then
MyIndex = BarIndex
warning =1
IF C7 then //surachat, on vend
resistance=highest[periode](high)
ENDIF
IF C8 then //survente, on achete
support=lowest[periode](low)
ENDIF
ENDIF
IF BarIndex <= MyIndex + NbBarLimit THEN
if C6 and warning=1 then //surachat, on vend
//signal=-1
//warning = 0
y1=resistance
for p = 0 to periode do
if high[p]=resistance then
x1 = barindex[p]
//break
endif
next
y2=y1
x2=x1+periode
DRAWSEGMENT(x1,y1,x2,y2)coloured(255,10,10)
endif
If C5 and warning =1 then //survente, on achete
//signal=1
//warning= 0
y1=support
for p = 0 to periode do
if low[p]=support then
//break
x1 = barindex[p]
endif
next
y2=y1
x2=x1+periode
DRAWSEGMENT(x1,y1,x2,y2)coloured(10,255,10)
endif
endif
//Else
//warning = 0
//ENDIF
Return //signal
<strong>// Variables :
// periode = 20 entier par défaut
// p1 = 14 entier periode RSI</strong>
.
