커뮤니티
부탁드립니다.
2019-12-10 10:24:34
269
글번호 134247
첨부 이미지
그림1
그림2
그림3
그림4
도움 주심에 감사 드립니다.
그림(4개)과 같이 부탁 드립니다.
미리 감사 드립니다.
답변 1
예스스탁 예스스탁 답변
2019-12-11 09:46:59
안녕하세요
예스스탁입니다.
input : n1(300),n2(700);
var : HH(0),HI(0),LL(0),LI(0),cnt(0);
var : TL1(0),TL2(0),TL3(0),TL4(0),TL5(0),TL6(0),TL7(0),TL8(0),TL9(0),TL10(0);
HH = H[n1];
HI = n1;
LL = L[n1];
LI = n1;
for cnt = n1 to n2
{
if H[cnt] > HH Then
{
HH = H[cnt];
HI = cnt;
}
if L[cnt] < LL Then
{
LL = L[cnt];
LI = cnt;
}
}
TL_Delete(TL1);
TL_Delete(TL2);
TL_Delete(TL3);
TL_Delete(TL4);
TL_Delete(TL5);
TL_Delete(TL6);
TL_Delete(TL7);
TL_Delete(TL8);
TL_Delete(TL9);
TL_Delete(TL10);
TL1 = TL_New(sdate[HI],stime[HI],HH,sdate[LI],stime[LI],HH);
TL2 = TL_New(sdate[HI],stime[HI],LL,sdate[LI],stime[LI],LL);
TL3 = TL_New(sdate[HI],stime[HI],HH,sdate[HI],stime[HI],LL);
TL4 = TL_New(sdate[LI],stime[LI],HH,sdate[LI],stime[LI],LL);
TL5 = TL_New(sdate[min(HI,LI)],stime[min(HI,LI)],LL+(HH-LL)*0.236,sdate,stime,LL+(HH-LL)*0.236);
TL6 = TL_New(sdate[min(HI,LI)],stime[min(HI,LI)],LL+(HH-LL)*0.500,sdate,stime,LL+(HH-LL)*0.500);
TL7 = TL_New(sdate[min(HI,LI)],stime[min(HI,LI)],LL+(HH-LL)*0.764,sdate,stime,LL+(HH-LL)*0.764);
TL8 = TL_New(sdate[min(HI,LI)-(max(HI,LI)-min(HI,LI))],stime[min(HI,LI)-(max(HI,LI)-min(HI,LI))],HH,sdate[min(HI,LI)-(max(HI,LI)-min(HI,LI))],stime[min(HI,LI)-(max(HI,LI)-min(HI,LI))],LL);
TL9 = TL_New(sdate[min(HI,LI)],stime[min(HI,LI)],HH,sdate[min(HI,LI)-(max(HI,LI)-min(HI,LI))],stime[min(HI,LI)-(max(HI,LI)-min(HI,LI))],LL+(HH-LL)*0.500);
TL10 = TL_New(sdate[min(HI,LI)],stime[min(HI,LI)],LL,sdate[min(HI,LI)-(max(HI,LI)-min(HI,LI))],stime[min(HI,LI)-(max(HI,LI)-min(HI,LI))],LL+(HH-LL)*0.500);
TL_SetExtRight(TL5,True);
TL_SetExtRight(TL6,True);
TL_SetExtRight(TL7,True);
TL_SetExtRight(TL9,True);
TL_SetExtRight(TL10,True);
TL_SetColor(TL1,pink);
TL_SetColor(TL2,pink);
TL_SetColor(TL3,pink);
TL_SetColor(TL4,pink);
TL_SetColor(TL5,GREEN);
TL_SetColor(TL6,GREEN);
TL_SetColor(TL7,GREEN);
TL_SetColor(TL8,BLACK);
TL_SetColor(TL9,RED);
TL_SetColor(TL10,RED);
TL_SetSize(TL1,2);
TL_SetSize(TL2,2);
TL_SetSize(TL3,2);
TL_SetSize(TL4,2);
TL_SetSize(TL5,2);
TL_SetSize(TL6,2);
TL_SetSize(TL7,2);
TL_SetSize(TL8,2);
TL_SetSize(TL9,2);
TL_SetSize(TL10,2);
즐거운 하루되세요
> 뮬리 님이 쓴 글입니다.
> 제목 : 부탁드립니다.
> 도움 주심에 감사 드립니다.
그림(4개)과 같이 부탁 드립니다.
미리 감사 드립니다.