커뮤니티
수식부탁합니다.
2018-08-28 23:47:04
242
글번호 121693
노고에 감사드립니다.
아래의 수식의 일봉을 분봉 타주기로으로 전환하고 싶습니다.
수고부탁드립니다.
감사합니다.
input : Period(14);
var : DP(0),DM(0),adxv(0);
DP = ema(iff(H-H[1]>0 && H-H[1]>L[1]-L,H-H[1],0),Period)/
ema(max(max(H-L,abs(C[1]-H)),abs(C[1]-L)),Period)*100;
DM = ema(iff(L[1]-L>0 && H-H[1]<L[1]-L,L[1]-L,0),Period)/
ema(max(max(H-L,abs(C[1]-H)),abs(C[1]-L)),Period)*100;
adxv = Ema(abs(DP-DM)/(DP+DM),period)*100;
plot1(DP);
plot2(DM);
plot3(ADXv);
답변 1
예스스탁 예스스탁 답변
2018-08-29 15:24:33
안녕하세요
예스스탁입니다.
Input : Period(14);
Var : Ep(0),emav1(0),Pre1(0),DINDEX(0);
Var : emav2(0),Pre2(0),emav3(0),Pre3(0),emav4(0),Pre4(0);
var : DP(0),DM(0),ADXV(0),Pre5(0);
Ep = 2/(Period+1);
var1 = iff(DayHigh(0)-DayHigh(1) > 0 and DayHigh(0)-DayHigh(1) > DayLow(1)-DayLow(0),DayHigh(0)-DayHigh(1),0);
var2 = max(max(DayHigh(0)-DayLow(0),abs(DayClose(1)-H)),abs(DayClose(1)-L));
var3 = iff(DayLow(1)-DayLow(0) > 0 and DayHigh(0)-DayHigh(1) < DayLow(1)-DayLow(0),Daylow(1)-Daylow(0),0);
var4 = max(max(DayHigh(0)-DayLow(0),abs(DayClose(1)-DayHigh(0))),abs(DayClose(1)-DayLow(0)));
if bdate != bdate[1] then {
DINDEX = DINDEX + 1;
Pre1 = emav1[1];
Pre2 = emav2[1];
Pre3 = emav3[1];
Pre4 = emav4[1];
Pre5 = ADXv[1];
}
if DINDEX <= 1 then
{
emav1 = var1;
emav2 = var2;
emav3 = var3;
emav4 = var4;
DP = var1/var2*100;
DM = var1/var2*100;
var5 = abs(DP-DM)/(DP+DM);
ADXv = var5*100;
}
else{
emav1 = var1 * EP + Pre1 * (1-EP);
emav2 = var2 * EP + Pre2 * (1-EP);
emav3 = var3 * EP + Pre3 * (1-EP);
emav4 = var4 * EP + Pre4 * (1-EP);
DP = emav1/emav2*100;
DM = emav3/emav4*100;
var5 = abs(DP-DM)/(DP+DM);
ADXv = var5 * EP + Pre5 * (1-EP);
}
plot1(DP);
plot2(DM);
plot3(ADXv*100);
즐거운 하루되세요
> 천년대로 님이 쓴 글입니다.
> 제목 : 수식부탁합니다.
> 노고에 감사드립니다.
아래의 수식의 일봉을 분봉 타주기로으로 전환하고 싶습니다.
수고부탁드립니다.
감사합니다.
input : Period(14);
var : DP(0),DM(0),adxv(0);
DP = ema(iff(H-H[1]>0 && H-H[1]>L[1]-L,H-H[1],0),Period)/
ema(max(max(H-L,abs(C[1]-H)),abs(C[1]-L)),Period)*100;
DM = ema(iff(L[1]-L>0 && H-H[1]<L[1]-L,L[1]-L,0),Period)/
ema(max(max(H-L,abs(C[1]-H)),abs(C[1]-L)),Period)*100;
adxv = Ema(abs(DP-DM)/(DP+DM),period)*100;
plot1(DP);
plot2(DM);
plot3(ADXv);
다음글
이전글