커뮤니티
부탁 드립니다.
2020-01-18 12:58:21
195
글번호 135244
첨부 이미지
그림1
도움에 감사 드립니다.
그림과 같이 부탁 드립니다.
- 1. q0118.PNG (0.06 MB)
답변 1
예스스탁 예스스탁 답변
2020-01-20 19:37:54
안녕하세요
예스스탁입니다.
input : n1(100),n2(200),n3(300);
var : TL1(0),TL2(0),TL3(0),TL4(0),TL5(0),cnt(0);
var : h1(0),h2(0),l1(0),l2(0),hi1(0),hi2(0),li1(0),li2(0);
if index > n3 then
{
TL_Delete(TL1);
TL_Delete(TL2);
TL_Delete(TL3);
TL1 = TL_New(sdate[n1],stime[n1],9999999,sdate[n1],stime[n1],0);
TL2 = TL_New(sdate[n2],stime[n2],9999999,sdate[n2],stime[n2],0);
TL3 = TL_New(sdate[n3],stime[n3],9999999,sdate[n3],stime[n3],0);
TL_SetColor(TL1,BLACK);
TL_SetColor(TL2,BLACK);
TL_SetColor(TL3,BLACK);
h1 = h[n1];
hi1 = n1;
l1 = l[n1];
li1 = n1;
for cnt = n1 to n2-1
{
if h[cnt] > h1 Then
{
h1 = h[cnt];
hi1 = cnt;
}
if l[cnt] < l1 Then
{
l1 = l[cnt];
li1 = cnt;
}
}
h2 = h[n2];
hi2 = n2;
l2 = l[n2];
li2 = n2;
for cnt = n2 to n3-1
{
if h[cnt] > h2 Then
{
h2 = h[cnt];
hi2 = cnt;
}
if l[cnt] < l2 Then
{
l2 = l[cnt];
li2 = cnt;
}
}
TL_Delete(TL4);
TL_Delete(TL5);
TL4 = TL_New(sdate[hi2],stime[hi2],h2,sdate[hi1],stime[hi1],h1);
TL5 = TL_New(sdate[li2],stime[li2],l2,sdate[li1],stime[li1],l1);
TL_SetExtRight(TL4,true);
TL_SetExtRight(TL5,true);
TL_SetColor(TL4,GREEN);
TL_SetColor(TL5,GREEN);
}
즐거운 하루되세요
> 뮬리 님이 쓴 글입니다.
> 제목 : 부탁 드립니다.
> 도움에 감사 드립니다.
그림과 같이 부탁 드립니다.