안녕하세요 예스스탁입니다. 종목검색은 최대 500봉만 제공됩니다. 속성창에서 검색에 필요한 최소기간에 500봉으로 지정하고 일봉에서 검색하시면 됩니다. 1. var : YH(0),YL(0),H1(0),L1(0),H2(0),L2(0),cnt(0); var : LTL1(0),HTL1(0); if sdate > sdate[1]+1000 or index == 0 Then{ YH = H; YL = L; } if H > YH Then YH = H; if L < YL Then YL = L; #년간최고가발생 if H == YH then { H1 = H; L1 = L[25]; LTL1 = L1-(H1-L1)*1;#첫 파란선 } #년간최저가 발생 if L == YL then { H2 = H[25]; L2 = L; HTL1 = H2+(H2-L2)*1;#첫 노란선 } if LTL1 > 0 and HTL1 > 0 and C > LTL1 and C > HTL1 Then find(1); 2 현잭가가 첫번째 파란선+4%이내, 첫번째 노란선+-4% 이내인 종목을 찾습니다. var : YH(0),YL(0),H1(0),L1(0),H2(0),L2(0),cnt(0); var : LTL1(0),HTL1(0); if sdate > sdate[1]+1000 or index == 0 Then{ YH = H; YL = L; } if H > YH Then YH = H; if L < YL Then YL = L; #년간최고가발생 if H == YH then { H1 = H; L1 = L[25]; LTL1 = L1-(H1-L1)*1;#첫 파란선 } #년간최저가 발생 if L == YL then { H2 = H[25]; L2 = L; HTL1 = H2+(H2-L2)*1;#첫 노란선 } if LTL1 > 0 and HTL1 > 0 and (C <= LTL1*1.04 and C >= LTL1*0.96) and (C <= HTL1*1.04 and C >= HTL1*0.96) Then find(1); 즐거운 하루되세요 > 용각산 님이 쓴 글입니다. > 제목 : 부탁드립니다 > var : YH(0),YL(0),H1(0),L1(0),H2(0),L2(0),cnt(0); var : LTL(0),LTL1(0),LTL2(0),LTL3(0),LTL4(0),LTL5(0),LTL6(0); var : HTL(0),HTL1(0),HTL2(0),HTL3(0),HTL4(0),HTL5(0),HTL6(0); if bdate > bdate[1]+1000 or index == 0 Then{ YH = H; YL = L; } if H > YH Then YH = H; if L < YL Then YL = L; #년간최고가발생 if H == YH then { H1 = H; L1 = L[25]; var1 = sdate[25]; var2 = stime[25]; #이전출력선지움 TL_Delete(LTL); TL_Delete(LTL1); TL_Delete(LTL2); TL_Delete(LTL3); TL_Delete(LTL4); TL_Delete(LTL5); TL_Delete(LTL6); #새로운추세선 출력 LTL = TL_New(var1,var2,L1,sdate,stime,L1); LTL1 = TL_New(var1,var2,L1-(H1-L1)*1,sdate,stime,L1-(H1-L1)*1); LTL2 = TL_New(var1,var2,L1-(H1-L1)*2,sdate,stime,L1-(H1-L1)*2); LTL3 = TL_New(var1,var2,L1-(H1-L1)*3,sdate,stime,L1-(H1-L1)*3); LTL4 = TL_New(var1,var2,L1-(H1-L1)*4,sdate,stime,L1-(H1-L1)*4); LTL5 = TL_New(var1,var2,L1-(H1-L1)*5,sdate,stime,L1-(H1-L1)*5); LTL6 = TL_New(var1,var2,L1-(H1-L1)*6,sdate,stime,L1-(H1-L1)*6); #색상 TL_SetColor(LTL,BLUE); TL_SetColor(LTL1,BLUE); TL_SetColor(LTL2,BLUE); TL_SetColor(LTL3,BLUE); TL_SetColor(LTL4,BLUE); TL_SetColor(LTL5,BLUE); TL_SetColor(LTL6,BLUE); #굵기 TL_SetSize(LTL,3); TL_SetSize(LTL1,0); TL_SetSize(LTL2,0); TL_SetSize(LTL3,0); TL_SetSize(LTL4,0); TL_SetSize(LTL5,0); TL_SetSize(LTL6,0); #우측연장 TL_SetExtRight(LTL,True); TL_SetExtRight(LTL1,True); TL_SetExtRight(LTL2,True); TL_SetExtRight(LTL3,True); TL_SetExtRight(LTL4,True); TL_SetExtRight(LTL5,True); TL_SetExtRight(LTL6,True); } #년간최저가 발생 if L == YL then { H2 = H[25]; L2 = L; var3 = sdate[25]; var4 = stime[25]; #이전출력선지움 TL_Delete(HTL); TL_Delete(HTL1); TL_Delete(HTL2); TL_Delete(HTL3); TL_Delete(HTL4); TL_Delete(HTL5); TL_Delete(HTL6); #새로운추세선출력 HTL = TL_New(var3,var4,H2,sdate,stime,H2); HTL1 = TL_New(var3,var4,H2+(H2-L2)*1,sdate,stime,H2+(H2-L2)*1); HTL2 = TL_New(var3,var4,H2+(H2-L2)*2,sdate,stime,H2+(H2-L2)*2); HTL3 = TL_New(var3,var4,H2+(H2-L2)*3,sdate,stime,H2+(H2-L2)*3); HTL4 = TL_New(var3,var4,H2+(H2-L2)*4,sdate,stime,H2+(H2-L2)*4); HTL5 = TL_New(var3,var4,H2+(H2-L2)*5,sdate,stime,H2+(H2-L2)*5); HTL6 = TL_New(var3,var4,H2+(H2-L2)*6,sdate,stime,H2+(H2-L2)*6); #색상 TL_SetColor(HTL,YELLOW); TL_SetColor(HTL1,YELLOW); TL_SetColor(HTL2,YELLOW); TL_SetColor(HTL3,YELLOW); TL_SetColor(HTL4,YELLOW); TL_SetColor(HTL5,YELLOW); TL_SetColor(hTL6,YELLOW); #굵기 TL_SetSize(HTL,3); TL_SetSize(HTL1,0); TL_SetSize(HTL2,0); TL_SetSize(HTL3,0); TL_SetSize(HTL4,0); TL_SetSize(HTL5,0); TL_SetSize(HTL6,0); #우측연장 TL_SetExtRight(HTL,True); TL_SetExtRight(HTL1,True); TL_SetExtRight(HTL2,True); TL_SetExtRight(HTL3,True); TL_SetExtRight(HTL4,True); TL_SetExtRight(HTL5,True); TL_SetExtRight(HTL6,True); } 위 수식에서 var1 = sdate[25]; var2 = stime[25]; 25봉 고점 저점 파랑선 과 노랑선 있는대요 조건1) 현재가 > 첫번째 파랑선 노랑선 조건2) 현재가 가 첫번째 파랑선 노랑선 4%이내 인 종목을 검색 하기 ps)위 수식을 주식챠트에 입혓는대요 파랑선이 나타나지 않네요 방법없을가요? 감사합니다~