MarcoValente

RSD Fractal Dimension Moving Average

504 2 43
Here is a Fractal Dimension Moving Average , that include a trend follow/divergence based on RSI , Stoch ,and ADX. Combineted this algo with the FDMA algo , we have a MA reactive without following the yo-yo during high volatility period. Can set the range from a min and max bars you want to have your MA , the value are powered , so the min can set 1 to 10 that s is 1 to 60 bars and the Max 13 to 24 range 100 to 300. Period length and RSD len-0.37% are use to calculate Fractal Dimen and Trend parameter
If you need more info how to set go here
http://etfhq.com/blog/2012/01/21/fractal-dimension-adaptive-moving-average-d-ama/
Remove from Favorite Scripts Add to Favorite Scripts
//@version=2
study("RSD Fractal Dimension Moving Average",shorttitle="RSD FD",overlay=true)
price=input(hl2)
len=input(defval=80,title="Len Period",minval=1)
fast=input(defval=19,title="Max Range MA(Powered) ", minval=1)
slow=input(defval=3,title="Min Range MA(Powered)",minval=1)
change=abs(price-price[len])
len1 = len/2
H1 = highest(high,len1)
L1 = lowest(low,len1)
N1 = (H1-L1)/len1
H2 = highest(high,len)[len1]
L2 = lowest(low,len)[len1]
N2 = (H2-L2)/len1
H3 = highest(high,len)
L3 = lowest(low,len)
N3 = (H3-L3)/len
dimen1 = (log(N1+N2)-log(N3))/log(len/len1)
diff = iff(N1>0 and N2>0 and N3>0,dimen1,nz(dimen1[1]))
le=input(defval=10,title="Period Rsi,Stch,Adx")
//rsi
rr=rsi(hl2,le)
//stoch
st=stoch(hl2,high,low,le)
//adx
up = change(high)
down = -change(low)
trur = rma(tr, le)
plus = fixnan(100 * rma(up > down and up > 0 ? up : 0, le) / trur)
minus = fixnan(100 * rma(down > up and down > 0 ? down : 0, le) / trur)
sum = plus + minus 
adx = 100 * rma(abs(plus - minus) / (sum == 0 ? 1 : sum), le)

fq=(rr+st+plus)/300
dif=abs(fq[0]-fq[1])
signal=abs(fq-fq[le])
noise=sum(dif, le)
ef=noise!=0 ? signal/noise : 1
ER=abs(dimen1-1)
E=fq*ER
//
fastestSC=2/(fast+1)
slowestSC=2/(slow+1)
SC=pow((E*(fastestSC-slowestSC)+slowestSC),2)
out=nz(out[1])+SC*(price-nz(out[1]))
col=out>close?red :lime
plot(out,color=col,title="RSD-AMA",linewidth=2)
Alphaoptions
2 months ago
Very nice job. Is there a separate script link for the support/resistance/pivot lines?
Reply
MarcoValente PRO Alphaoptions
2 months ago
Try to copy this one , if can not look for ("Fractal Support Resistance) on TView script

//@version=2
//synapticex.com
study("Fractal Support Resistance", shorttitle="FSR", overlay=true)
tf = input(title="Resolution", type=resolution, defval = "current")
vamp = input(title="VolumeMA", type=integer, defval=6)
vam = sma(volume, vamp)

up = high>high and high>high and high<high and high<high and volume>vam
down = low<low and low<low and low>low and low>low and volume>vam
fractalup = up ? high : fractalup
fractaldown = down ? low : fractaldown

fuptf = security(tickerid,tf == "current" ? period : tf, fractalup)
fdowntf = security(tickerid,tf == "current" ? period : tf, fractaldown)

plot(fuptf, "FractalUp", color=lime, linewidth=1, style=cross, transp=0, offset =-3, join=false)
plot(fdowntf, "FractalDown", color=red, linewidth=1, style=cross, transp=0, offset=-3, join=false)

Reply
Ideas Scripts Chart
United States
United Kingdom
India
España
Italia
Brasil
Россия
Türkiye
日本
한국
Home Stock Screener Economic Calendar How It Works Chart Features House Rules Moderators For the WEB Widgets Stock Charting Library Priority Support Feature Request Blog & News FAQ Help & Wiki Twitter
Private Messages Chat Ideas Published Followers Following Priority Support Public Profile Profile Settings Billing Sign Out