커뮤니티
수식부탁드립니다
2018-02-21 05:38:23
163
글번호 116753
매번 고맙습니다
* 56715수식에서 약간의 수식수정 필요합니다 도움부탁드립니다
* 보내주신수식은 전일과 당일 두조건이 동시 표시됩니다,
* 원하는 식은 전일캔들조건을 당일에 갱신하는 캔들이 있을때만 당일캔들에 조건표시하고
(이때 전일 캔들조건표시는 삭제되게합니다)
* 당일에 전일캔들조건을 갱신하는 캔들이 없을때는 전일조건표시을 당일 현재까지 오른쪽
그리기로 연장하고싶습니다 (당일캔들에는 조건표시하지않는다)
* 결국 당일에 전일의 양봉,음봉길이를 갱신하는 캔들이 있을때는 당일갱신된 캔들에만 선을
그리기하고 (전일값은삭제),당일에 갱신하는 캔들이 없을때는 전일의 양봉,음봉의 캔들에
만 표기해서(당일값은표기안한다)당일 현재까지 오른쪽 그리기하여 차트에는 항상 4개의
선만 나타나게 되는 것입니다.
* 당일 장 종료후 초기화 (항상 전일의 캔들길이를 기준으로 합니다)
$ 감사합니다.
답변 2
예스스탁 예스스탁 답변
2018-02-21 11:49:36
안녕하세요
예스스탁입니다.
var : D1(0),T1(0),D2(0),T2(0);
var : TL1(0),TL2(0),TL3(0),TL4(0);
var : TL11(0),TL22(0),TL33(0),TL44(0);
var : tx1(0),tx2(0),tx3(0),tx4(0);
var : tx11(0),tx22(0),tx33(0),tx44(0);
var : 양봉길이(0),양봉종가(0),양봉중심(0),양봉날짜(0),양봉시간(0);
var : 음봉길이(0),음봉종가(0),음봉중심(0),음봉날짜(0),음봉시간(0);
var : 양봉길이1(0),양봉종가1(0),양봉중심1(0),양봉날짜1(0),양봉시간1(0);
var : 음봉길이1(0),음봉종가1(0),음봉중심1(0),음봉날짜1(0),음봉시간1(0);
if Bdate != bdate[1] Then{
양봉길이 = 0;
음봉길이 = 0;
D1 = sdate[1];
T1 = stime[1];
D2 = D1[1];
T2 = T1[1];
양봉길이1 = 양봉길이[1];
양봉날짜1 = 양봉날짜[1];
양봉시간1 = 양봉시간[1];
양봉중심1 = 양봉중심[1];
양봉종가1 = 양봉종가[1];
음봉길이1 = 음봉길이[1];
음봉날짜1 = 음봉날짜[1];
음봉시간1 = 음봉시간[1];
음봉중심1 = 음봉중심[1];
음봉종가1 = 음봉종가[1];
TL_Delete(TL11);
TL_Delete(TL22);
TL11 = TL_New(양봉날짜1,양봉시간1,양봉중심1,sdate,stime,양봉중심1);
TL22 = TL_New(양봉날짜1,양봉시간1,양봉종가1,sdate,stime,양봉종가1);
//색상지정
TL_SetColor(TL11,RED);
TL_SetColor(TL22,RED);
TL_SetExtRight(TL11,True);
TL_SetExtRight(TL22,True);
Text_Delete(Tx11);
Text_Delete(Tx22);
Tx11 = Text_New(sdate,stime,양봉중심1,NumToStr(양봉중심1,2));
Tx22 = Text_New(sdate,stime,양봉종가1,NumToStr(양봉종가1,2));
//색상지정
Text_SetColor(Tx11,RED);
Text_SetColor(Tx22,RED);
TL_Delete(TL33);
TL_Delete(TL44);
//색상지정
TL33 = TL_New(음봉날짜1,음봉시간1,음봉중심1,sdate,stime,음봉중심1);
TL44 = TL_New(음봉날짜1,음봉시간1,음봉종가1,sdate,stime,음봉종가1);
TL_SetColor(TL33,BLUE);
TL_SetColor(TL44,BLUE);
TL_SetExtRight(TL33,True);
TL_SetExtRight(TL44,True);
Text_Delete(Tx33);
Text_Delete(Tx44);
Tx33 = Text_New(sdate,stime,음봉중심1,NumToStr(음봉중심1,2));
Tx44 = Text_New(sdate,stime,음봉종가1,NumToStr(음봉종가1,2));
//색상지정
Text_SetColor(Tx33,BLUE);
Text_SetColor(Tx44,BLUE);
TL_Delete(TL1);
TL_Delete(TL2);
TL_Delete(TL3);
TL_Delete(TL4);
Text_Delete(Tx1);
Text_Delete(Tx2);
Text_Delete(Tx3);
Text_Delete(Tx4);
}
if C > O and abs(C-O) > 양봉길이 Then{
양봉길이 = abs(c-O);
양봉중심 = (C+O)/2;
양봉종가 = C;
양봉날짜 = sdate;
양봉시간 = sTime;
if (양봉길이1 == 0 or (양봉길이1 > 0 and 양봉길이 > 양봉길이1)) then
{
TL_Delete(TL1);
TL_Delete(TL2);
TL1 = TL_New(D1,T1,양봉중심,양봉날짜,양봉시간,양봉중심);
TL2 = TL_New(D1,T1,양봉종가,양봉날짜,양봉시간,양봉종가);
//색상지정
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(양봉날짜,양봉시간,양봉중심,NumToStr(양봉중심,2));
Tx2 = Text_New(양봉날짜,양봉시간,양봉종가,NumToStr(양봉종가,2));
//색상지정
Text_SetColor(Tx1,RED);
Text_SetColor(Tx2,RED);
TL_Delete(TL11);
TL_Delete(TL22);
Text_Delete(Tx11);
Text_Delete(Tx22);
}
}
if C < O and abs(C-O) > 음봉길이 Then{
음봉길이 = abs(c-O);
음봉중심 = (C+O)/2;
음봉종가 = C;
음봉날짜 = sdate;
음봉시간 = sTime;
if (음봉길이1 == 0 or (음봉길이1 > 0 and 음봉길이 > 음봉길이1)) Then
{
TL_Delete(TL3);
TL_Delete(TL4);
//색상지정
TL3 = TL_New(D1,T1,음봉중심,음봉날짜,음봉시간,음봉중심);
TL4 = TL_New(D1,T1,음봉종가,음봉날짜,음봉시간,음봉종가);
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(음봉날짜,음봉시간,음봉중심,NumToStr(음봉중심,2));
Tx4 = Text_New(음봉날짜,음봉시간,음봉종가,NumToStr(음봉종가,2));
//색상지정
Text_SetColor(Tx3,BLUE);
Text_SetColor(Tx4,BLUE);
TL_Delete(TL33);
TL_Delete(TL44);
Text_Delete(Tx33);
Text_Delete(Tx44);
}
}
Text_SetLocation(tx1,sdate,stime,양봉중심);
Text_SetLocation(tx2,sdate,stime,양봉종가);
Text_SetLocation(tx3,sdate,stime,음봉중심);
Text_SetLocation(tx4,sdate,stime,음봉종가);
Text_SetLocation(tx11,sdate,stime,양봉중심1);
Text_SetLocation(tx22,sdate,stime,양봉종가1);
Text_SetLocation(tx33,sdate,stime,음봉중심1);
Text_SetLocation(tx44,sdate,stime,음봉종가1);
즐거운 하루되세요
> 골든키 님이 쓴 글입니다.
> 제목 : 수식부탁드립니다
> 매번 고맙습니다
* 56715수식에서 약간의 수식수정 필요합니다 도움부탁드립니다
* 보내주신수식은 전일과 당일 두조건이 동시 표시됩니다,
* 원하는 식은 전일캔들조건을 당일에 갱신하는 캔들이 있을때만 당일캔들에 조건표시하고
(이때 전일 캔들조건표시는 삭제되게합니다)
* 당일에 전일캔들조건을 갱신하는 캔들이 없을때는 전일조건표시을 당일 현재까지 오른쪽
그리기로 연장하고싶습니다 (당일캔들에는 조건표시하지않는다)
* 결국 당일에 전일의 양봉,음봉길이를 갱신하는 캔들이 있을때는 당일갱신된 캔들에만 선을
그리기하고 (전일값은삭제),당일에 갱신하는 캔들이 없을때는 전일의 양봉,음봉의 캔들에
만 표기해서(당일값은표기안한다)당일 현재까지 오른쪽 그리기하여 차트에는 항상 4개의
선만 나타나게 되는 것입니다.
* 당일 장 종료후 초기화 (항상 전일의 캔들길이를 기준으로 합니다)
$ 감사합니다.
회원
2018-02-21 12:36:56
> 예스스탁 님이 쓴 글입니다.
> 제목 : Re : 수식부탁드립니다
>
안녕하세요
예스스탁입니다.
var : D1(0),T1(0),D2(0),T2(0);
var : TL1(0),TL2(0),TL3(0),TL4(0);
var : TL11(0),TL22(0),TL33(0),TL44(0);
var : tx1(0),tx2(0),tx3(0),tx4(0);
var : tx11(0),tx22(0),tx33(0),tx44(0);
var : 양봉길이(0),양봉종가(0),양봉중심(0),양봉날짜(0),양봉시간(0);
var : 음봉길이(0),음봉종가(0),음봉중심(0),음봉날짜(0),음봉시간(0);
var : 양봉길이1(0),양봉종가1(0),양봉중심1(0),양봉날짜1(0),양봉시간1(0);
var : 음봉길이1(0),음봉종가1(0),음봉중심1(0),음봉날짜1(0),음봉시간1(0);
if Bdate != bdate[1] Then{
양봉길이 = 0;
음봉길이 = 0;
D1 = sdate[1];
T1 = stime[1];
D2 = D1[1];
T2 = T1[1];
양봉길이1 = 양봉길이[1];
양봉날짜1 = 양봉날짜[1];
양봉시간1 = 양봉시간[1];
양봉중심1 = 양봉중심[1];
양봉종가1 = 양봉종가[1];
음봉길이1 = 음봉길이[1];
음봉날짜1 = 음봉날짜[1];
음봉시간1 = 음봉시간[1];
음봉중심1 = 음봉중심[1];
음봉종가1 = 음봉종가[1];
TL_Delete(TL11);
TL_Delete(TL22);
TL11 = TL_New(양봉날짜1,양봉시간1,양봉중심1,sdate,stime,양봉중심1);
TL22 = TL_New(양봉날짜1,양봉시간1,양봉종가1,sdate,stime,양봉종가1);
//색상지정
TL_SetColor(TL11,RED);
TL_SetColor(TL22,RED);
TL_SetExtRight(TL11,True);
TL_SetExtRight(TL22,True);
Text_Delete(Tx11);
Text_Delete(Tx22);
Tx11 = Text_New(sdate,stime,양봉중심1,NumToStr(양봉중심1,2));
Tx22 = Text_New(sdate,stime,양봉종가1,NumToStr(양봉종가1,2));
//색상지정
Text_SetColor(Tx11,RED);
Text_SetColor(Tx22,RED);
TL_Delete(TL33);
TL_Delete(TL44);
//색상지정
TL33 = TL_New(음봉날짜1,음봉시간1,음봉중심1,sdate,stime,음봉중심1);
TL44 = TL_New(음봉날짜1,음봉시간1,음봉종가1,sdate,stime,음봉종가1);
TL_SetColor(TL33,BLUE);
TL_SetColor(TL44,BLUE);
TL_SetExtRight(TL33,True);
TL_SetExtRight(TL44,True);
Text_Delete(Tx33);
Text_Delete(Tx44);
Tx33 = Text_New(sdate,stime,음봉중심1,NumToStr(음봉중심1,2));
Tx44 = Text_New(sdate,stime,음봉종가1,NumToStr(음봉종가1,2));
//색상지정
Text_SetColor(Tx33,BLUE);
Text_SetColor(Tx44,BLUE);
TL_Delete(TL1);
TL_Delete(TL2);
TL_Delete(TL3);
TL_Delete(TL4);
Text_Delete(Tx1);
Text_Delete(Tx2);
Text_Delete(Tx3);
Text_Delete(Tx4);
}
if C > O and abs(C-O) > 양봉길이 Then{
양봉길이 = abs(c-O);
양봉중심 = (C+O)/2;
양봉종가 = C;
양봉날짜 = sdate;
양봉시간 = sTime;
if (양봉길이1 == 0 or (양봉길이1 > 0 and 양봉길이 > 양봉길이1)) then
{
TL_Delete(TL1);
TL_Delete(TL2);
TL1 = TL_New(D1,T1,양봉중심,양봉날짜,양봉시간,양봉중심);
TL2 = TL_New(D1,T1,양봉종가,양봉날짜,양봉시간,양봉종가);
//색상지정
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(양봉날짜,양봉시간,양봉중심,NumToStr(양봉중심,2));
Tx2 = Text_New(양봉날짜,양봉시간,양봉종가,NumToStr(양봉종가,2));
//색상지정
Text_SetColor(Tx1,RED);
Text_SetColor(Tx2,RED);
TL_Delete(TL11);
TL_Delete(TL22);
Text_Delete(Tx11);
Text_Delete(Tx22);
}
}
if C < O and abs(C-O) > 음봉길이 Then{
음봉길이 = abs(c-O);
음봉중심 = (C+O)/2;
음봉종가 = C;
음봉날짜 = sdate;
음봉시간 = sTime;
if (음봉길이1 == 0 or (음봉길이1 > 0 and 음봉길이 > 음봉길이1)) Then
{
TL_Delete(TL3);
TL_Delete(TL4);
//색상지정
TL3 = TL_New(D1,T1,음봉중심,음봉날짜,음봉시간,음봉중심);
TL4 = TL_New(D1,T1,음봉종가,음봉날짜,음봉시간,음봉종가);
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(음봉날짜,음봉시간,음봉중심,NumToStr(음봉중심,2));
Tx4 = Text_New(음봉날짜,음봉시간,음봉종가,NumToStr(음봉종가,2));
//색상지정
Text_SetColor(Tx3,BLUE);
Text_SetColor(Tx4,BLUE);
TL_Delete(TL33);
TL_Delete(TL44);
Text_Delete(Tx33);
Text_Delete(Tx44);
}
}
Text_SetLocation(tx1,sdate,stime,양봉중심);
Text_SetLocation(tx2,sdate,stime,양봉종가);
Text_SetLocation(tx3,sdate,stime,음봉중심);
Text_SetLocation(tx4,sdate,stime,음봉종가);
Text_SetLocation(tx11,sdate,stime,양봉중심1);
Text_SetLocation(tx22,sdate,stime,양봉종가1);
Text_SetLocation(tx33,sdate,stime,음봉중심1);
Text_SetLocation(tx44,sdate,stime,음봉종가1);
즐거운 하루되세요
> 골든키 님이 쓴 글입니다.
> 제목 : 수식부탁드립니다
> 매번 고맙습니다
* 56715수식에서 약간의 수식수정 필요합니다 도움부탁드립니다
* 보내주신수식은 전일과 당일 두조건이 동시 표시됩니다,
* 원하는 식은 전일캔들조건을 당일에 갱신하는 캔들이 있을때만 당일캔들에 조건표시하고
(이때 전일 캔들조건표시는 삭제되게합니다)
* 당일에 전일캔들조건을 갱신하는 캔들이 없을때는 전일조건표시을 당일 현재까지 오른쪽
그리기로 연장하고싶습니다 (당일캔들에는 조건표시하지않는다)
* 결국 당일에 전일의 양봉,음봉길이를 갱신하는 캔들이 있을때는 당일갱신된 캔들에만 선을
그리기하고 (전일값은삭제),당일에 갱신하는 캔들이 없을때는 전일의 양봉,음봉의 캔들에
만 표기해서(당일값은표기안한다)당일 현재까지 오른쪽 그리기하여 차트에는 항상 4개의
선만 나타나게 되는 것입니다.
* 당일 장 종료후 초기화 (항상 전일의 캔들길이를 기준으로 합니다)
$ 감사합니다.
--------------------------------------------------------------------------------------
수식감사합니다.
다음글