커뮤니티
수식 문의
2012-11-08 00:23:39
395
글번호 56318
가을을 너머 이제 겨울로 접어듭니다.
환절기 건강 조심하시고,
항상 감사드리고 있습니다.
ㄱ. 이평과 이평에 대한 이격도를 구하고 싶습니다.
현재 이격도는 종가와 n이평간의 이격도인데요,
종가 대신 단기 이평선을 넣어서 이격도를 구하고 싶습니다.
ㄴ.
지수이평과 지수이평에 대한 이격도를 구하고 싶습니다.
ㄷ. 아래는 쿠프먼 필터 수식입니다.
쿠프먼 필터 n값과 n2 이평선에 대한 이격도를 구하고 싶습니다.
ㄹ. LRL 과 n이평선에 대한 이격도를 구하고 싶습니다.
ㅁ. 시스템 수식 문의
매수조건
A. n봉전의 단기이평a과 장기이평b의 이격도가 (위의 ㄱ 수식 참고)
n2봉 기간 중 최저이고
B. 이격도값이 n3 이하이고
c. 단기이평과 장기이평의 이격도가 상향반전 할때,
(현재봉의 값이 직전봉 값보다 높아질 때)
매도조건
A. n4봉전의 단기이평c과 장기이평d의 이격도가 (위의 ㄱ 수식 참고)
n5봉 기간 중 최고이고
B. 이격도값이 n6 이상이고
c. 단기이평과 장기이평의 이격도가 하향반전 할때,
(현재봉의 값이 직전봉 값보다 낮아질 때)
매수조건의 모든 설정값과
매도조건의 모든 설정값을 모두 다르게 가져가고 싶습니다.
==========아래---------
input: period(10);
var: efratio(0), smooth(1), fastend(0.666), slowend(0.0645), AMA(0), diff(0), signal(0), noise(0);
efratio = 1;
diff = absvalue(C - C[1]);
if currentbar > period then {
signal = absvalue(C - C[period]);
noise = accumN(diff,period);
if noise <> 0 then efratio = signal / noise;
smooth = power(efratio*(fastend - slowend) + slowend,2);
AMA = AMA[1] + smooth*(C - AMA[1]);
}
else
AMA = C;
plot1(AMA);
답변 1
예스스탁 예스스탁 답변
2012-11-08 10:37:10
안녕하세요
예스스탁입니다.
1. 지표
input : n(3),n2(10),n3(95),n4(3),n5(10),n6(105);
input : maP1(5),maP2(20),emaP1(5),emap2(20),amaP1(5),amap2(20),LRLP(10),maPeriod(20);
var : ma1(0),ma2(0),ema1(0),ema2(0),LRLv(0),MAVV(0);
var: efratio1(0), smooth1(1), fastend1(0.666), slowend1(0.0645), diff1(0), signal1(0), noise1(0), AMA1(0);
var: efratio2(0), smooth2(1), fastend2(0.666), slowend2(0.0645), diff2(0), signal2(0), noise2(0), AMA2(0);
ma1 = ma(c,maP1);
ma2 = ma(c,maP2);
ema1 = ema(c,emaP1);
ema2 = ema(c,emaP2);
efratio1 = 1;
diff1 = absvalue(C - C[1]);
if currentbar > amaP1 then {
signal1 = absvalue(C - C[amaP1]);
noise1 = accumN(diff1,amaP1);
if noise1 <> 0 then efratio1 = signal1 / noise1;
smooth1 = power(efratio1*(fastend1 - slowend1) + slowend1,2);
AMA1 = AMA1[1] + smooth1*(C - AMA1[1]);
}
else
AMA1 = C;
efratio2 = 1;
diff2 = absvalue(C - C[1]);
if currentbar > amaP2 then {
signal2 = absvalue(C - C[amaP2]);
noise2 = accumN(diff2,amaP2);
if noise2 <> 0 then efratio2 = signal2 / noise2;
smooth2 = power(efratio2*(fastend2 - slowend2) + slowend2,2);
AMA2 = AMA2[1] + smooth2*(C - AMA2[1]);
}
else
AMA2 = C;
LRLv = LRL(C,LRLP);
MAvv = Ma(c,MaPeriod);
var1 = ma1/ma2*100;
var2 = ema1/ema2*100;
var3 = ama1/ama2*100;
var4 = LRLV/mavv*100;
plot1(var1);
plot2(var2);
plot3(var3);
plot4(var4);
PlotBaseLine1(100);
2. 시스템
input : n(3),n2(10),n3(95),n4(3),n5(10),n6(105);
input : maP1(5),maP2(20),emaP1(5),emap2(20),amaP1(5),amap2(20),LRLP(10),maPeriod(20);
var : ma1(0),ma2(0),ema1(0),ema2(0),LRLv(0),MAVV(0);
var: efratio1(0), smooth1(1), fastend1(0.666), slowend1(0.0645), diff1(0), signal1(0), noise1(0), AMA1(0);
var: efratio2(0), smooth2(1), fastend2(0.666), slowend2(0.0645), diff2(0), signal2(0), noise2(0), AMA2(0);
ma1 = ma(c,maP1);
ma2 = ma(c,maP2);
ema1 = ema(c,emaP1);
ema2 = ema(c,emaP2);
efratio1 = 1;
diff1 = absvalue(C - C[1]);
if currentbar > amaP1 then {
signal1 = absvalue(C - C[amaP1]);
noise1 = accumN(diff1,amaP1);
if noise1 <> 0 then efratio1 = signal1 / noise1;
smooth1 = power(efratio1*(fastend1 - slowend1) + slowend1,2);
AMA1 = AMA1[1] + smooth1*(C - AMA1[1]);
}
else
AMA1 = C;
efratio2 = 1;
diff2 = absvalue(C - C[1]);
if currentbar > amaP2 then {
signal2 = absvalue(C - C[amaP2]);
noise2 = accumN(diff2,amaP2);
if noise2 <> 0 then efratio2 = signal2 / noise2;
smooth2 = power(efratio2*(fastend2 - slowend2) + slowend2,2);
AMA2 = AMA2[1] + smooth2*(C - AMA2[1]);
}
else
AMA2 = C;
LRLv = LRL(C,LRLP);
MAvv = Ma(c,MaPeriod);
var1 = ma1/ma2*100;
var2 = ema1/ema2*100;
var3 = ama1/ama2*100;
var4 = LRLV/mavv*100;
if var1[n] == lowest(var1,n2)[n] and var1 < n3 and
var1 > var1[1] and var1[1] < var1[2] Then
buy();
if var1[n4] == highest(var1,n5)[n4] and var1 > n6 and
var1 < var1[1] and var1[1] > var1[2] Then
sell();
즐거운 하루되세요
> 흑수돌 님이 쓴 글입니다.
> 제목 : 수식 문의
> 가을을 너머 이제 겨울로 접어듭니다.
환절기 건강 조심하시고,
항상 감사드리고 있습니다.
ㄱ. 이평과 이평에 대한 이격도를 구하고 싶습니다.
현재 이격도는 종가와 n이평간의 이격도인데요,
종가 대신 단기 이평선을 넣어서 이격도를 구하고 싶습니다.
ㄴ.
지수이평과 지수이평에 대한 이격도를 구하고 싶습니다.
ㄷ. 아래는 쿠프먼 필터 수식입니다.
쿠프먼 필터 n값과 n2 이평선에 대한 이격도를 구하고 싶습니다.
ㄹ. LRL 과 n이평선에 대한 이격도를 구하고 싶습니다.
ㅁ. 시스템 수식 문의
매수조건
A. n봉전의 단기이평a과 장기이평b의 이격도가 (위의 ㄱ 수식 참고)
n2봉 기간 중 최저이고
B. 이격도값이 n3 이하이고
c. 단기이평과 장기이평의 이격도가 상향반전 할때,
(현재봉의 값이 직전봉 값보다 높아질 때)
매도조건
A. n4봉전의 단기이평c과 장기이평d의 이격도가 (위의 ㄱ 수식 참고)
n5봉 기간 중 최고이고
B. 이격도값이 n6 이상이고
c. 단기이평과 장기이평의 이격도가 하향반전 할때,
(현재봉의 값이 직전봉 값보다 낮아질 때)
매수조건의 모든 설정값과
매도조건의 모든 설정값을 모두 다르게 가져가고 싶습니다.
==========아래---------
input: period(10);
var: efratio(0), smooth(1), fastend(0.666), slowend(0.0645), AMA(0), diff(0), signal(0), noise(0);
efratio = 1;
diff = absvalue(C - C[1]);
if currentbar > period then {
signal = absvalue(C - C[period]);
noise = accumN(diff,period);
if noise <> 0 then efratio = signal / noise;
smooth = power(efratio*(fastend - slowend) + slowend,2);
AMA = AMA[1] + smooth*(C - AMA[1]);
}
else
AMA = C;
plot1(AMA);