커뮤니티
부탁드립니다.
2018-08-13 19:45:23
218
글번호 121340
도움주심에 감사드립니다.
1)다음수식의
날짜1 시간1을 현재로 부터 과거 200봉전
날짜2 시간2을 현재로 부터 과거 100봉전으로 하는
수식으로 수정 부탁 드립니다.
2)다음수식을 일봉 주봉 월봉에서 사용토록 부탁 드립니다.
미리 감사 드립니다.
input : 날짜1(20180810),시간1(110000);
input : 날짜2(20180813),시간2(110000);
var : hh(0),ll(0),Tcond(false),T1(0),T2(0),dd(0),TT(0);
var : TL1(0),TL2(0),TL3(0),TL4(0),tx(0);
if sdate == 날짜1 and
((sdate != sdate[1] and stime >= 시간1) or
(sdate == sdate[1] and stime >= 시간1 and stime[1] < 시간1)) Then
{
Tcond = true;
dd = 0;
hh = h;
ll = l;
T1 = TimeToMinutes(stime);
TL1 = TL_New(sdate[1],stime[1],hh,sdate,stime,hh);
TL2 = TL_New(sdate[1],stime[1],9999999999,sdate,stime,0);
TL_SetExtRight(TL1,true);
TL_SetExtLeft(TL1,true);
}
if Tcond == true then
{
if sdate != sdate[1] Then
dd = dd+1;
T2 = TimeToMinutes(stime);
if h > hh Then
hh = h;
if l < ll Then
ll = l;
TL_Delete(TL3);
TL_Delete(TL4);
TL3 = TL_New(sdate[1],stime[1],LL,sdate,stime,LL);
TL4 = TL_New(sdate[1],stime[1],9999999999,sdate,stime,0);
TL_SetExtRight(TL3,true);
TL_SetExtLeft(TL3,true);
if dd == 0 Then
TT = (T2-T1)/60;
if dd >= 1 Then
TT = ((1440-T1)+((dd-1)*1440)+T2)/60;
Text_Delete(Tx);
tx = Text_New(sdate,stime,(HH+LL)/2,"진폭 : "+NumToStr(hh-ll,2)+NewLine+"경과시간 : "+NumToStr(TT,2));
Text_SetStyle(tx,0,0);
}
if sdate == 날짜2 and
((sdate != sdate[1] and stime >= 시간2) or
(sdate == sdate[1] and stime >= 시간2 and stime[1] < 시간2)) Then
{
Tcond = false;
}
답변 1
예스스탁 예스스탁 답변
2018-08-14 13:49:31
안녕하세요
예스스탁입니다.
1.
input : bar1(200),bar2(100);
var : cnt(0),hh(0),ll(0),Tcond(false),T1(0),T2(0),dd(0),TT(0);
var : TL1(0),TL2(0),TL3(0),TL4(0),tx(0);
var1 = max(bar1,bar2);
var2 = min(bar1,bar2);
if H[var1] > 0 then
{
T1 = TimeToMinutes(stime)[var1];
T2 = TimeToMinutes(stime)[var2];
HH = H[var1];
LL = L[var2];
dd = 0;
for cnt = var1 downto var2
{
if Bdate[cnt] != bdate[cnt+1] Then
dd = dd + 1;
if H[cnt] > HH Then
HH = H[cnt];
if L[cnt] < LL Then
LL = L[cnt];
}
TL_Delete(TL1);
TL_Delete(TL2);
TL1 = TL_New(sdate[var1+1],stime[var1+1],hh,sdate[var1],stime[var1],hh);
TL2 = TL_New(sdate[var1],stime[var1],9999999999,sdate[var1],stime[var1],0);
TL_SetExtRight(TL1,true);
TL_SetExtLeft(TL1,true);
TL_Delete(TL3);
TL_Delete(TL4);
TL3 = TL_New(sdate[var2+1],stime[var2+1],LL,sdate[var2],stime[var2],LL);
TL4 = TL_New(sdate[var2],stime[var2],9999999999,sdate[var2],stime[var2],0);
TL_SetExtRight(TL3,true);
TL_SetExtLeft(TL3,true);
if dd == 0 Then
TT = (T2-T1)/60;
if dd >= 1 Then
TT = ((1440-T1)+((dd-1)*1440)+T2)/60;
Text_Delete(Tx);
tx = Text_New(sdate[var2],stime[var2],(HH+LL)/2,"진폭 : "+NumToStr(hh-ll,2)+NewLine+"경과시간 : "+NumToStr(TT,2));
Text_SetStyle(tx,0,0);
}
2
일봉주봉월봉은 사용자분이 날짜만 봉의 시작날짜로 정확히 지정하시면 됩니다.
일/주/월봉은 시간은 모두 90000시로 지정하셔야 합니다.
봉 내부의 시간은 알수없어 지정할수 없습니다.
즐거운 하루되세요
> yes 님이 쓴 글입니다.
> 제목 : 부탁드립니다.
> 도움주심에 감사드립니다.
1)다음수식의
날짜1 시간1을 현재로 부터 과거 200봉전
날짜2 시간2을 현재로 부터 과거 100봉전으로 하는
수식으로 수정 부탁 드립니다.
2)다음수식을 일봉 주봉 월봉에서 사용토록 부탁 드립니다.
미리 감사 드립니다.
input : 날짜1(20180810),시간1(110000);
input : 날짜2(20180813),시간2(110000);
var : hh(0),ll(0),Tcond(false),T1(0),T2(0),dd(0),TT(0);
var : TL1(0),TL2(0),TL3(0),TL4(0),tx(0);
if sdate == 날짜1 and
((sdate != sdate[1] and stime >= 시간1) or
(sdate == sdate[1] and stime >= 시간1 and stime[1] < 시간1)) Then
{
Tcond = true;
dd = 0;
hh = h;
ll = l;
T1 = TimeToMinutes(stime);
TL1 = TL_New(sdate[1],stime[1],hh,sdate,stime,hh);
TL2 = TL_New(sdate[1],stime[1],9999999999,sdate,stime,0);
TL_SetExtRight(TL1,true);
TL_SetExtLeft(TL1,true);
}
if Tcond == true then
{
if sdate != sdate[1] Then
dd = dd+1;
T2 = TimeToMinutes(stime);
if h > hh Then
hh = h;
if l < ll Then
ll = l;
TL_Delete(TL3);
TL_Delete(TL4);
TL3 = TL_New(sdate[1],stime[1],LL,sdate,stime,LL);
TL4 = TL_New(sdate[1],stime[1],9999999999,sdate,stime,0);
TL_SetExtRight(TL3,true);
TL_SetExtLeft(TL3,true);
if dd == 0 Then
TT = (T2-T1)/60;
if dd >= 1 Then
TT = ((1440-T1)+((dd-1)*1440)+T2)/60;
Text_Delete(Tx);
tx = Text_New(sdate,stime,(HH+LL)/2,"진폭 : "+NumToStr(hh-ll,2)+NewLine+"경과시간 : "+NumToStr(TT,2));
Text_SetStyle(tx,0,0);
}
if sdate == 날짜2 and
((sdate != sdate[1] and stime >= 시간2) or
(sdate == sdate[1] and stime >= 시간2 and stime[1] < 시간2)) Then
{
Tcond = false;
}
다음글