커뮤니티
부탁 드립니다.
2017-12-01 13:23:05
131
글번호 114634
도움 주심에 감사 드립니다.
계산 시작 시점을
____if index > X then{ //차트전체 X번째 봉부터 계산 ____이 아닌
1)지정한 일시 이후 부터
2)금일 08:00 이후 부터
3)금주 월요일 08:00 이후 부터
시작하는 수식 부탁 드립니다.
미리 감사 드립니다.
input : Price(1000), Per(10),N(3),color(green),X(100);
var : cnt(0),cnt1(0),cnt2(0),idx(0);
Array : VV[50](0);
Array : OTL[50](0),HTL[50](0),LTL[50](0),CTL[50](0);
Array : OTx[50](0),HTx[50](0),LTx[50](0),CTx[50](0),TX[50](0);
for cnt = 1 to 49{
VV[cnt] = 0;
}
if index > X then{ //차트전체 X번째 봉부터 계산
idx = idx+1;
#N개값 출력
for cnt1 = 1 to N{
#차트 과거봉 전체 스캔
for cnt2 = 1 to idx{
#Price대비 +- Per%안에 종가가 형성된
if C[cnt2] <= Price*(1+Per/100) and C[cnt2] >= Price*(1-Per/100) and
V[cnt2] > VV[cnt1] and
(cnt1 == 1 or (cnt1 >= 2 and V[cnt2] < VV[cnt1-1])) Then{
VV[cnt1] = V[cnt2];
#거래량순 상위 cnt1번째 값추세선 출력
#종가선
TL_Delete(CTL[cnt1]);
CTL[cnt1] = TL_New(Sdate[cnt2],stime[cnt2],C[cnt2],sdate,stime,C[cnt2]);
TL_SetExtLeft(CTL[cnt1],true);
TL_SetExtRight(CTL[cnt1],true);
TL_Setcolor(CTL[cnt1],color);
#거래량순 상위 cnt1번째 값텍스트 출력
#종가선값
Text_Delete(CTx[cnt1]);
// CTx[cnt1] = Text_New(sdate,stime,C[cnt2],"상위"+NumToStr(cnt1,0)+"번째봉 종가:"+NumToStr(C[cnt2],0));
Text_SetStyle(CTx[cnt1],0,0);
#점출력
Text_Delete(Tx[cnt1]);
Tx[cnt1] = Text_New(sdate[cnt2],stime[cnt2],C[cnt2],"●"+NumToStr(cnt1,0));
Text_SetStyle(Tx[cnt1],2,2);
text_setcolor(Tx[cnt1], color);
}
}
}
}
답변 1
예스스탁 예스스탁 답변
2017-12-01 16:27:11
안녕하세요
예스스탁입니다.
1.날짜/시간 지정
input : Price(1000), Per(10),N(3),color(green),X(100),날짜(20171130),시간(80000);
var : cnt(0),cnt1(0),cnt2(0),idx(0),TimeCond(false);
Array : VV[50](0);
Array : OTL[50](0),HTL[50](0),LTL[50](0),CTL[50](0);
Array : OTx[50](0),HTx[50](0),LTx[50](0),CTx[50](0),TX[50](0);
for cnt = 1 to 49{
VV[cnt] = 0;
}
if sdate == 날짜 and (stime == 시간 or (stime>시간 and stime[1] < 시간)) Then
TimeCond = true;
if TimeCond == true then{ //차트전체 X번째 봉부터 계산
idx = idx+1;
#N개값 출력
for cnt1 = 1 to N{
#차트 과거봉 전체 스캔
for cnt2 = 1 to idx{
#Price대비 +- Per%안에 종가가 형성된
if C[cnt2] <= Price*(1+Per/100) and C[cnt2] >= Price*(1-Per/100) and
V[cnt2] > VV[cnt1] and
(cnt1 == 1 or (cnt1 >= 2 and V[cnt2] < VV[cnt1-1])) Then{
VV[cnt1] = V[cnt2];
#거래량순 상위 cnt1번째 값추세선 출력
#종가선
TL_Delete(CTL[cnt1]);
CTL[cnt1] = TL_New(Sdate[cnt2],stime[cnt2],C[cnt2],sdate,stime,C[cnt2]);
TL_SetExtLeft(CTL[cnt1],true);
TL_SetExtRight(CTL[cnt1],true);
TL_Setcolor(CTL[cnt1],color);
#거래량순 상위 cnt1번째 값텍스트 출력
#종가선값
Text_Delete(CTx[cnt1]);
// CTx[cnt1] = Text_New(sdate,stime,C[cnt2],"상위"+NumToStr(cnt1,0)+"번째봉 종가:"+NumToStr(C[cnt2],0));
Text_SetStyle(CTx[cnt1],0,0);
#점출력
Text_Delete(Tx[cnt1]);
Tx[cnt1] = Text_New(sdate[cnt2],stime[cnt2],C[cnt2],"●"+NumToStr(cnt1,0));
Text_SetStyle(Tx[cnt1],2,2);
text_setcolor(Tx[cnt1], color);
}
}
}
}
2 금일 특정시간은 국내주식과 국내지수선물 주간장차트 일때만 가능합니다.
해외선물에서는 가능하지 않습니다.
input : Price(1000), Per(10),N(3),color(green),X(100),시간(80000);
var : cnt(0),cnt1(0),cnt2(0),idx(0),TimeCond(false);
Array : VV[50](0);
Array : OTL[50](0),HTL[50](0),LTL[50](0),CTL[50](0);
Array : OTx[50](0),HTx[50](0),LTx[50](0),CTx[50](0),TX[50](0);
for cnt = 1 to 49{
VV[cnt] = 0;
}
if CurrentDate == sdate and (stime == 시간 or (stime>시간 and stime[1] < 시간)) Then
TimeCond = true;
if TimeCond == true then{ //차트전체 X번째 봉부터 계산
idx = idx+1;
#N개값 출력
for cnt1 = 1 to N{
#차트 과거봉 전체 스캔
for cnt2 = 1 to idx{
#Price대비 +- Per%안에 종가가 형성된
if C[cnt2] <= Price*(1+Per/100) and C[cnt2] >= Price*(1-Per/100) and
V[cnt2] > VV[cnt1] and
(cnt1 == 1 or (cnt1 >= 2 and V[cnt2] < VV[cnt1-1])) Then{
VV[cnt1] = V[cnt2];
#거래량순 상위 cnt1번째 값추세선 출력
#종가선
TL_Delete(CTL[cnt1]);
CTL[cnt1] = TL_New(Sdate[cnt2],stime[cnt2],C[cnt2],sdate,stime,C[cnt2]);
TL_SetExtLeft(CTL[cnt1],true);
TL_SetExtRight(CTL[cnt1],true);
TL_Setcolor(CTL[cnt1],color);
#거래량순 상위 cnt1번째 값텍스트 출력
#종가선값
Text_Delete(CTx[cnt1]);
// CTx[cnt1] = Text_New(sdate,stime,C[cnt2],"상위"+NumToStr(cnt1,0)+"번째봉 종가:"+NumToStr(C[cnt2],0));
Text_SetStyle(CTx[cnt1],0,0);
#점출력
Text_Delete(Tx[cnt1]);
Tx[cnt1] = Text_New(sdate[cnt2],stime[cnt2],C[cnt2],"●"+NumToStr(cnt1,0));
Text_SetStyle(Tx[cnt1],2,2);
text_setcolor(Tx[cnt1], color);
}
}
}
}
3
해당 내용은 가능하지 않습니다
1번식으로 이번주 월요일날짜와 시간 지정해서 사용하셔야 합니다.
즐거운 하루되세요
> yes 님이 쓴 글입니다.
> 제목 : 부탁 드립니다.
> 도움 주심에 감사 드립니다.
계산 시작 시점을
____if index > X then{ //차트전체 X번째 봉부터 계산 ____이 아닌
1)지정한 일시 이후 부터
2)금일 08:00 이후 부터
3)금주 월요일 08:00 이후 부터
시작하는 수식 부탁 드립니다.
미리 감사 드립니다.
input : Price(1000), Per(10),N(3),color(green),X(100);
var : cnt(0),cnt1(0),cnt2(0),idx(0);
Array : VV[50](0);
Array : OTL[50](0),HTL[50](0),LTL[50](0),CTL[50](0);
Array : OTx[50](0),HTx[50](0),LTx[50](0),CTx[50](0),TX[50](0);
for cnt = 1 to 49{
VV[cnt] = 0;
}
if index > X then{ //차트전체 X번째 봉부터 계산
idx = idx+1;
#N개값 출력
for cnt1 = 1 to N{
#차트 과거봉 전체 스캔
for cnt2 = 1 to idx{
#Price대비 +- Per%안에 종가가 형성된
if C[cnt2] <= Price*(1+Per/100) and C[cnt2] >= Price*(1-Per/100) and
V[cnt2] > VV[cnt1] and
(cnt1 == 1 or (cnt1 >= 2 and V[cnt2] < VV[cnt1-1])) Then{
VV[cnt1] = V[cnt2];
#거래량순 상위 cnt1번째 값추세선 출력
#종가선
TL_Delete(CTL[cnt1]);
CTL[cnt1] = TL_New(Sdate[cnt2],stime[cnt2],C[cnt2],sdate,stime,C[cnt2]);
TL_SetExtLeft(CTL[cnt1],true);
TL_SetExtRight(CTL[cnt1],true);
TL_Setcolor(CTL[cnt1],color);
#거래량순 상위 cnt1번째 값텍스트 출력
#종가선값
Text_Delete(CTx[cnt1]);
// CTx[cnt1] = Text_New(sdate,stime,C[cnt2],"상위"+NumToStr(cnt1,0)+"번째봉 종가:"+NumToStr(C[cnt2],0));
Text_SetStyle(CTx[cnt1],0,0);
#점출력
Text_Delete(Tx[cnt1]);
Tx[cnt1] = Text_New(sdate[cnt2],stime[cnt2],C[cnt2],"●"+NumToStr(cnt1,0));
Text_SetStyle(Tx[cnt1],2,2);
text_setcolor(Tx[cnt1], color);
}
}
}
}