Polarized Fractal Efficiency formula

[gary bodnar <gbodnar@xxxxxxxxxxxxxxxx>]

hi all
mov(if(c>ref(c,-1*(pd-1)),sqr(pwr(roc(c,(pd-1),$),2)+pwr(pd,2))/sum(sqr(  
pwr(roc(c,1,$),2)+1),(pd-1)),-1*sqr(pwr(roc(c,(pd-1),$),2)+pwr(pd,2))/su  
m(sqr(pwr(roc(c,1,$),2)+1),(pd-1)))*100,pd2,e)