// SCALPING DAX INIDCATOR, USABLE ON ANY TOOL, SET UP TIME FRAME 1 MINUTE.
// PRC CONTRIBUTE_ ALE_15/12/2017
//DEFPARAM CALCULATEONLASTBARS=50000
//WHB=6
//WHS=6
//BIB=6
//BIS=6
//PPKKS=0.994
//PPKKB=0.994
//RES=3
//SUP=3
// GRAPHIC VARIABLES
PIP = 1*Pipsize //ARROW DISTANCE
LIN = 20 //LENGTH OF SEGMENT OF SUPPORT OR RESISTENCE
RESISTENCE = RES*Pipsize //DISTANCE OF THE SEGMENT OF THE RESISTENCE
SUPPORT = SUP*Pipsize //DISTANCE OF THE SEGMENT OF THE SUPPORT
// ENABLED PARNER 1-0 / ON-OFF
ONCE PrEnabled01 = P01 // SWITCH INDICATOR P01,P02 ETC ..
//////////////////////////////////////////////////////////////////////
// MODIFIED UNIVERSAL OSCILLATOR 1
whitenoiseB= (Close - Close[WHS])
if barindex>BIS then
a11= exp(-1.414 * 3.14159 / BIS)
b11= 2*a11 * Cos(1.414*180 /BIS)
c22= b11
c33= -a11 * a11
c11= 1 - c22 - c33
filtB= c11 * (whitenoiseB + whitenoiseB[1])/2+ c22*filtB[1] + c33*filtB[1]
filt11 = filtB
if ABS(filt11)>pkB[1] then
pkB = ABS(filt11)
else
pkB = PPKKS * pkB[1]
endif
if pkB=0 then
denomB = -1
else
denomB = pkB
endif
if denomB = -1 then
resultB = resultB[1]
else
resultB = filt11/pkB
endif
endif
// MODIFIED UNIVERSAL OSCILLATOR 2
whitenoise= (Close - Close[WHB])
if barindex>BIB then
// super smoother filter
a1= (-1.414 * 3.14159 / BIB)
b1= 2*a1 * Cos(1.414*180 /BIB)
c2= b1
c3= -a1 * a1
c1= 1 - c2 - c3
filt= c1 * (whitenoise + whitenoise[1])/2+ c2*filt[1] + c3*filt[1]
filt1 = filt
if ABS(filt1)>pk[1] then
pk = ABS(filt1)
else
pk = PPKKB * pk[1]
endif
if pk=0 then
denom = -1
else
denom = pk
endif
if denom = -1 then
resultS = resultS[1]
else
resultS = filt1/pk
endif
endif
//////////////////////////////////////////////////////////////////////
//PATNER UP 1
PrUp01 = results <-0.5
PrUp01 = PrUp01 and results crosses over resultb
PrUp01 = (PrUp01 and PrEnabled01)
//PATNER DOWN 1
PrDw01 = results >0.5
PrDw01 = PrDw01 and results crosses under resultb
PrDw01 = (PrDw01 and PrEnabled01)
//////////////////////////////////////////////////////////////////////
// COLORS OF THE ARROW AND SEGMENT
IF PrUp01 THEN
R=0
G=128
B=255
ELSIF PrDw01 THEN
R=0
G=128
B=255
endif
if TIME >=80000 and time <=210000 THEN
if PrUp01 then
DRAWARROWUP(barindex,LOW-PIP)coloured(R,G,B)
DRAWSEGMENT(barindex,LOW-SUPPORT,barindex-LIN, LOW-SUPPORT )coloured(R,G,B)
elsif PrDw01 then
DRAWARROWDOWN(barindex,HIGH+PIP)coloured(R,G,B)
DRAWSEGMENT(barindex,HIGH+RESISTENCE,barindex-LIN, HIGH+RESISTENCE)coloured(R,G,B)
endif
ENDIF
RETURN PrUp01,PrDw01
.
