커뮤니티
문의 드립니다.
2011-11-20 05:55:58
494
글번호 44952
적합 이동평균선 볼린져 밴드 지표식 부탁드립니다.
제가 하려니 계속 오류가 뜨네요.
결국 포기하고 부탁드립니다.
답변 1
예스스탁 예스스탁 답변
2011-11-21 10:28:09
안녕하세요
예스스탁입니다.
//Adaptive moving average
Inputs: Period(20),Dv(2);
Vars: Noise(0), Signal(0), Diff(0), efRatio(0), Smooth(1), Fastest(0.6667), Slowest(0.0645), AdaptMA(0);
Var : SumSqrt(0), Emav(0), Counter(0),AVGV(0),Stdv(0),bollup(0),bollDn(0);
Diff = AbsValue(Close - Close[1]);
IF CurrentBar <= Period Then
AdaptMA = Close;
IF CurrentBar > Period Then Begin
Signal = AbsValue(Close - Close[Period]);
Noise = accumN(Diff, Period);
efRatio = Signal / Noise;
Smooth = Power(efRatio * (Fastest - Slowest) + Slowest, 2);
AdaptMA = AdaptMA[1] + Smooth * (Close - AdaptMA[1]);
End;
If Period != 0 Then Begin
Avgv = AdaptMA;
SumSqrt = 0;
For Counter = 0 To Period - 1 Begin
SumSqrt = SumSqrt + (C[Counter] - AdaptMA) * (C[Counter] - AdaptMA);
End;
Stdv = SquareRoot(SumSqrt / Period);
End
Else
Stdv = 0;
bollup = AdaptMA + (Dv * stdv);
bolldn = AdaptMA - (Dv * stdv);
plot1(AdaptMA);
plot2(bollup);
plot3(bolldn);
즐거운 하루되세요
> 비츠로 님이 쓴 글입니다.
> 제목 : 문의 드립니다.
> 적합 이동평균선 볼린져 밴드 지표식 부탁드립니다.
제가 하려니 계속 오류가 뜨네요.
결국 포기하고 부탁드립니다.