|
PureBytes Links
Trading Reference Links
|
Hello,
Is there someone who is willing to help me
to translate this system coded in easy language to MS. Many THANKS in
advance
}<FONT
color=#0000ff>inputs:BBLength(38),BBStdDev(3),BBHPrice(ADAPTIVE(H,10)),BBLPrice(ADAPTIVE(L,10));<FONT
color=#0000ff>vars:BBH(0),BBL(0);BBH=BollingerBand(BBHPrice,BBLength,BBStdDev);BBL=BollingerBand(BBLPrice,BBLength,-BBStdDev);<FONT
color=#0000ff>if c >bbh <FONT
color=#0000ff>then buy;<FONT
color=#0000ff>if c<bbl <FONT
color=#0000ff>then sell;<FONT
color=#006400>{P.S. The adaptive function part is Perry Kaufmans:}<FONT
color=#0000ff>inputs:price(<FONT
color=#0000ff>numericseries),period(<FONT
color=#0000ff>numericsimple);<FONT
color=#0000ff>vars: noise(0),signal(0),dif(0),efratio(0), smooth(1),fastend(.666),slowend(.0645),am(0);<FONT
color=#006400>{CALCULATE EFFICIENCY RATIO}dif=@<FONT
color=#8000ff>AbsValue(price - price[1]);<FONT
color=#0000ff>if(<FONT
color=#0000ff>currentbar <= period) <FONT
color=#0000ff>then am =price;<FONT
color=#0000ff>if(<FONT
color=#0000ff>currentbar > period)<FONT
color=#0000ff>then <FONT
color=#0000ff>begin signal = @<FONT
color=#8000ff>AbsValue(price - price[period]); noise = @<FONT
color=#8000ff>summation(dif,period); efratio = signal/noise; smooth = @<FONT
color=#8000ff>Power(efratio*(fastend - slowend) + slowend,2);<FONT
color=#006400>{ADAPTIVE MOVING AVERAGE} am = am[1] + smooth*(price - am[1]); Adaptive=am; <FONT
color=#0000ff>end;
Greeting
Attachment:
Description: " "
Attachment:
Description: "Mickey"
|