커뮤니티
1분봉 dema200 이평을 100틱챠트에 표시하기
2015-06-08 23:57:29
146
글번호 86956
항상 감사드립니다
아래식을 dema 이평으로 바꾸고 싶습니다
A:
1분봉에서 dema 이평 200선을 100틱챠트에 표시하기...
input : P(10);
var : Cma(0,data2),Hma(0,data2),Lma(0,data2);
Cma = data2(ma(c,P));
Hma = data2(ma(H,P));
Lma = data2(ma(L,P));
plot1(Cma);
plot2(Hma);
plot3(Lma);
B:
100틱봉에서 30분봉 10이평선 표시하기
input : P(10);
var : TF(0),cnt(0),Csum(0),Hsum(0),Lsum(0),Cma(0),Hma(0),Lma(0);
Array : CC[100](0),HH[100](0),LL[100](0);
TF = TimeToMinutes(stime);
if dayindex == 0 or (TF > TF[1]) Then{
HH[0] = H;
LL[0] = L;
for cnt = 1 to 99{
CC[cnt] = CC[cnt-1][1];
HH[cnt] = HH[cnt-1][1];
LL[cnt] = LL[cnt-1][1];
}
}
if H > HH[0] Then
HH[0] = H;
if L < LL[0] Then
LL[0] = L;
Csum = 0;
Hsum = 0;
Lsum = 0;
if CC[P] > 0 Then{
for cnt = 0 to P-1{
Csum = Csum+CC[cnt];
Hsum = Hsum+HH[cnt];
Lsum = Lsum+LL[cnt];
}
Cma = Csum/P;
Hma = Hsum/P;
Lma = Lsum/P;
plot1(Cma);
plot2(Hma);
plot3(Lma);
}
C:
100틱봉에서 30분봉 10이평을 상향돌파하면 매수,
100틱봉에서 30분봉 10이평을 하향돌파하면 매도,
감사합니다...
답변 1
예스스탁 예스스탁 답변
2015-06-09 11:19:10
안녕하세요
예스스탁입니다.
1.
INPUTS: LENGTH1(5),LENGTH2(20),LENGTH3(60);
VARS : DEMA1(0,data2),DEMA2(0,data2),DEMA3(0,data2);
var : V1(0,data2),val1(0,data2);
var : V2(0,data2),val2(0,data2);
var : V3(0,data2),val3(0,data2);
v1= data2(EMA(C,LENGTH1));
val1= data2(EMA(EMa(C,LENGTH1),LENGTH1));
v2= data2(EMA(C,LENGTH2));
val2= data2(EMA(EMa(C,LENGTH2),LENGTH2));
v3= data2(EMA(C,LENGTH3));
val3= data2(EMA(EMa(C,LENGTH3),LENGTH3));
DEMA1 = v1 * 2 - val1;
DEMA2 = v2 * 2 - val2;
DEMA3 = v3 * 2 - val3;
PLOT1(DEMA1, "DEMA1");
PLOT2(DEMA2, "DEMA2");
PLOT3(DEMA3, "DEMA3");
2.
input : X(30),P(10);
var : TF(0),cnt(0),Csum(0),Hsum(0),Lsum(0),Cma(0),Hma(0),Lma(0);
Array : CC[100](0),HH[100](0),LL[100](0);
TF = TimeToMinutes(stime)%X;
if dayindex == 0 or (TF < TF[1] and stime > stime[1]) Then{
HH[0] = H;
LL[0] = L;
for cnt = 1 to 99{
CC[cnt] = CC[cnt-1][1];
HH[cnt] = HH[cnt-1][1];
LL[cnt] = LL[cnt-1][1];
}
}
if H > HH[0] Then
HH[0] = H;
if L < LL[0] Then
LL[0] = L;
Csum = 0;
Hsum = 0;
Lsum = 0;
if CC[P] > 0 Then{
for cnt = 0 to P-1{
Csum = Csum+CC[cnt];
Hsum = Hsum+HH[cnt];
Lsum = Lsum+LL[cnt];
}
Cma = Csum/P;
Hma = Hsum/P;
Lma = Lsum/P;
plot1(Cma);
plot2(Hma);
plot3(Lma);
}
3.
input : X(30),P(10);
var : TF(0),cnt(0),Csum(0),Hsum(0),Lsum(0),Cma(0),Hma(0),Lma(0);
Array : CC[100](0),HH[100](0),LL[100](0);
TF = TimeToMinutes(stime)%X;
if dayindex == 0 or (TF < TF[1] and stime > stime[1]) Then{
HH[0] = H;
LL[0] = L;
for cnt = 1 to 99{
CC[cnt] = CC[cnt-1][1];
HH[cnt] = HH[cnt-1][1];
LL[cnt] = LL[cnt-1][1];
}
}
if H > HH[0] Then
HH[0] = H;
if L < LL[0] Then
LL[0] = L;
Csum = 0;
Hsum = 0;
Lsum = 0;
if CC[P] > 0 Then{
for cnt = 0 to P-1{
Csum = Csum+CC[cnt];
Hsum = Hsum+HH[cnt];
Lsum = Lsum+LL[cnt];
}
Cma = Csum/P;
Hma = Hsum/P;
Lma = Lsum/P;
if crossup(c,Cma) Then
buy();
if CrossDown(c,Cma) Then
sell();
}
즐거운 하루되세요
> 조민철 님이 쓴 글입니다.
> 제목 : 1분봉 dema200 이평을 100틱챠트에 표시하기
> 항상 감사드립니다
아래식을 dema 이평으로 바꾸고 싶습니다
A:
1분봉에서 dema 이평 200선을 100틱챠트에 표시하기...
input : P(10);
var : Cma(0,data2),Hma(0,data2),Lma(0,data2);
Cma = data2(ma(c,P));
Hma = data2(ma(H,P));
Lma = data2(ma(L,P));
plot1(Cma);
plot2(Hma);
plot3(Lma);
B:
100틱봉에서 30분봉 10이평선 표시하기
input : P(10);
var : TF(0),cnt(0),Csum(0),Hsum(0),Lsum(0),Cma(0),Hma(0),Lma(0);
Array : CC[100](0),HH[100](0),LL[100](0);
TF = TimeToMinutes(stime);
if dayindex == 0 or (TF > TF[1]) Then{
HH[0] = H;
LL[0] = L;
for cnt = 1 to 99{
CC[cnt] = CC[cnt-1][1];
HH[cnt] = HH[cnt-1][1];
LL[cnt] = LL[cnt-1][1];
}
}
if H > HH[0] Then
HH[0] = H;
if L < LL[0] Then
LL[0] = L;
Csum = 0;
Hsum = 0;
Lsum = 0;
if CC[P] > 0 Then{
for cnt = 0 to P-1{
Csum = Csum+CC[cnt];
Hsum = Hsum+HH[cnt];
Lsum = Lsum+LL[cnt];
}
Cma = Csum/P;
Hma = Hsum/P;
Lma = Lsum/P;
plot1(Cma);
plot2(Hma);
plot3(Lma);
}
C:
100틱봉에서 30분봉 10이평을 상향돌파하면 매수,
100틱봉에서 30분봉 10이평을 하향돌파하면 매도,
감사합니다...
다음글
이전글