안녕하세요 예스스탁입니다. 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(D2,T2,양봉중심1,양봉날짜1,양봉시간1,양봉중심1); TL22 = TL_New(D2,T2,양봉종가1,양봉날짜1,양봉시간1,양봉종가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(양봉날짜1,양봉시간1,양봉중심1,NumToStr(양봉중심1,2)); Tx22 = Text_New(양봉날짜1,양봉시간1,양봉종가1,NumToStr(양봉종가1,2)); //색상지정 Text_SetColor(Tx11,RED); Text_SetColor(Tx22,RED); TL_Delete(TL33); TL_Delete(TL44); //색상지정 TL33 = TL_New(D2,T2,음봉중심1,음봉날짜1,음봉시간1,음봉중심1); TL44 = TL_New(D2,T2,음봉종가1,음봉날짜1,음봉시간1,음봉종가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(음봉날짜1,음봉시간1,음봉중심1,NumToStr(음봉중심1,2)); Tx44 = Text_New(음봉날짜1,음봉시간1,음봉종가1,NumToStr(음봉종가1,2)); //색상지정 Text_SetColor(Tx33,BLUE); Text_SetColor(Tx44,BLUE); TL_Delete(TL1); TL_Delete(TL2); TL_Delete(TL1); TL_Delete(TL2); } if C > O and abs(C-O) > 양봉길이 Then{ 양봉길이 = abs(c-O); 양봉중심 = (C+O)/2; 양봉종가 = C; 양봉날짜 = sdate[1]; 양봉시간 = sTime[1]; 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); #당일 양봉길이가 전일양봉길이보다 크면 전일값 삭제 if 양봉길이 > 양봉길이1 then{ TL_Delete(TL11); TL_Delete(TL22); Text_Delete(Tx11); Text_Delete(TL22); } } if C < O and abs(C-O) > 음봉길이 Then{ 음봉길이 = abs(c-O); 음봉중심 = (C+O)/2; 음봉종가 = C; 음봉날짜 = sdate[1]; 음봉시간 = sTime[1]; 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); #당일 음봉길이가 전일음봉길이보다 크면 전일값 삭제 if 음봉길이 > 음봉길이1 then{ TL_Delete(TL33); TL_Delete(TL44); Text_Delete(Tx33); Text_Delete(TL44); } } 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); 즐거운 하루되세요 > 골든키 님이 쓴 글입니다. > 제목 : 수식부탁드립니다 > 매번 고맙습니다 아래수식을 1) 전일의 양봉중 가장 큰 양봉(꼬리제외몸통만)의 중심과 종가를 현재까지 오른쪽 추세선 그리기로 현재값(우측끝에)출력하면 좋겠습니다 2) 전일의 음봉중 가장 큰 음봉(꼬리제외몸통만)의 중심과 종가를 현재까지 오른쪽 추세선 그리기로 현재값(우측끝에)출력하면 좋겠습니다 3) 만일 당일에 전일의 양봉,음봉을 갱신하는 양봉,음봉 출현시 1),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);