커뮤니티
수식부탁드립니다
2018-02-14 00:19:10
176
글번호 116614
#56678 수식에서 타주기분봉수식과 오른쪽 그리기추세선 이름과 값을 우측으로 텍스트 출력 부탁드립니다.
미리감사드립니다
답변 1
예스스탁 예스스탁 답변
2018-02-14 13:20:44
안녕하세요
예스스탁입니다.
1
input : 타주기분(30);
var : S1(0),DD(0),TM(0),TF(0),cnt(0);
var : D1(0),T1(0),TL1(0),TL2(0),TL3(0),TL4(0);
var : tx1(0),tx2(0),tx3(0),tx4(0);
Array : OO[10](0),CC[10](0);
if Bdate != bdate[1] Then{
var1 = 0;
var2 = 0;
DD = sdate;
D1 = sdate;
TL_Delete(TL1);
TL_Delete(TL2);
TL_Delete(TL1);
TL_Delete(TL2);
}
if DD > 0 then
{
if sdate == D1 Then
TM = TimeToMinutes(stime)-S1;
Else
TM = TimeToMinutes(stime)+1440-S1;
TF = TM%타주기분;
if Bdate != Bdate[1] or (Bdate == Bdate[1] and TF < TF[1]) Then
{
OO[0] = O;
for cnt = 1 to 9{
OO[cnt] = OO[cnt-1][1];
CC[cnt] = CC[cnt-1][1];
}
if Bdate == Bdate[1] and CC[1] > OO[1] and abs(CC[1]-OO[1]) > var1 Then
{
plot1(1);
var1 = abs(CC[1]-OO[1]);
value1 = (CC[1]+OO[1])/2;
value2 = CC[1];
TL_Delete(TL1);
TL_Delete(TL2);
TL1 = TL_New(D1,T1,value1,sdate,stime,value1);
TL2 = TL_New(D1,T1,value2,sdate,stime,value2);
//색상지정
TL_SetColor(TL1,RED);
TL_SetColor(TL2,RED);
TL_SetExtRight(TL1,True);
TL_SetExtRight(TL2,True);
Text_Delete(Tx1);
Text_Delete(Tx2);
Tx1 = Text_New(sdate,stime,value1,NumToStr(value1,2));
Tx2 = Text_New(sDate,sTime,value2,NumToStr(value2,2));
//색상지정
Text_SetColor(Tx1,RED);
Text_SetColor(Tx2,RED);
}
if Bdate == Bdate[1] and CC[1] < OO[1] and abs(CC[1]-OO[1]) > var2 Then
{
plot1(-1);
var2 = abs(CC[1]-OO[1]);
value3 = (CC[1]+OO[1])/2;
value4 = CC[1];
TL_Delete(TL3);
TL_Delete(TL4);
//색상지정
TL3 = TL_New(D1,T1,value3,sdate,stime,value3);
TL4 = TL_New(D1,T1,value4,sdate,stime,value4);
TL_SetColor(TL3,BLUE);
TL_SetColor(TL4,BLUE);
TL_SetExtRight(TL3,True);
TL_SetExtRight(TL4,True);
Text_Delete(Tx3);
Text_Delete(Tx4);
Tx3 = Text_New(sdate,stime,value3,NumToStr(value3,2));
Tx4 = Text_New(sDate,sTime,value4,NumToStr(value4,2));
//색상지정
Text_SetColor(Tx3,BLUE);
Text_SetColor(Tx4,BLUE);
}
}
CC[0] = C;
}
Text_SetLocation(tx1,sdate,stime,value1);
Text_SetLocation(tx2,sdate,stime,value2);
Text_SetLocation(tx3,sdate,stime,value3);
Text_SetLocation(tx4,sdate,stime,value4);
2
var : D1(0),T1(0),TL1(0),TL2(0),TL3(0),TL4(0);
var : tx1(0),tx2(0),tx3(0),tx4(0);
if Bdate != bdate[1] Then{
var1 = 0;
var2 = 0;
D1 = sdate[1];
T1 = stime[1];
TL_Delete(TL1);
TL_Delete(TL2);
TL_Delete(TL1);
TL_Delete(TL2);
}
if C > O and abs(C-O) > var1 Then{
var1 = abs(c-O);
value1 = (C+O)/2;
value2 = C;
TL_Delete(TL1);
TL_Delete(TL2);
TL1 = TL_New(D1,T1,value1,sdate,stime,value1);
TL2 = TL_New(D1,T1,value2,sdate,stime,value2);
//색상지정
TL_SetColor(TL1,RED);
TL_SetColor(TL2,RED);
TL_SetExtRight(TL1,True);
TL_SetExtRight(TL2,True);
Text_Delete(Tx1);
Text_Delete(Tx2);
Tx1 = Text_New(sdate,stime,value1,NumToStr(value1,2));
Tx2 = Text_New(sDate,sTime,value2,NumToStr(value2,2));
//색상지정
Text_SetColor(Tx1,RED);
Text_SetColor(Tx2,RED);
}
if C < O and abs(C-O) > var2 Then{
var2 = abs(c-O);
value3 = (C+O)/2;
value4 = C;
TL_Delete(TL3);
TL_Delete(TL4);
//색상지정
TL3 = TL_New(D1,T1,value3,sdate,stime,value3);
TL4 = TL_New(D1,T1,value4,sdate,stime,value4);
TL_SetColor(TL3,BLUE);
TL_SetColor(TL4,BLUE);
TL_SetExtRight(TL3,True);
TL_SetExtRight(TL4,True);
Text_Delete(Tx3);
Text_Delete(Tx4);
Tx3 = Text_New(sdate,stime,value3,NumToStr(value3,2));
Tx4 = Text_New(sDate,sTime,value4,NumToStr(value4,2));
//색상지정
Text_SetColor(Tx3,BLUE);
Text_SetColor(Tx4,BLUE);
}
Text_SetLocation(tx1,sdate,stime,value1);
Text_SetLocation(tx2,sdate,stime,value2);
Text_SetLocation(tx3,sdate,stime,value3);
Text_SetLocation(tx4,sdate,stime,value4);
즐거운 하루되세요
> 골든키 님이 쓴 글입니다.
> 제목 : 수식부탁드립니다
> #56678 수식에서 타주기분봉수식과 오른쪽 그리기추세선 이름과 값을 우측으로 텍스트 출력 부탁드립니다.
미리감사드립니다
다음글
이전글