안녕하세요 예스스탁입니다. 정확한 내용이 파악되지 않습니다. 좀더 자세한 내용을 올려주시거나 02-34532-1060으로 전화주시기 바랍니다. 즐거운 하루되세요 > 외국인 님이 쓴 글입니다. > 제목 : 수정부탁드립니다 > 상승하락 저점기준 바닥 마감 최고점 기준 마감 3회 시(예비연장신호변경부탁) 직선표시 및 지그재그표시 부탁합니다. input: length(10),선선굵기(2),gh색상두께(30),직선굵기(1); var:상승색gh(Red),하락색gh(Lime); Var:rjj(0),jjj(0),HHh(0),LLl(0),최종고가(0),최종저가(0),최종꼭지점(""),처리구분(""),utx(0),저hdbox(0),저dbox(0), 저hText1사각(0),cddbox(0),Teext1(0),Teext2(0),sTL55사각(0),ssTL55사각(0), rTL1(0),Text1(0),rTL2(0),rTL3(0),rTL4(0),rTL5(0),rTL12(0),rTL13(0),rTL14(0),rTL15(0),ttT(0),고점변곡(""),저점변곡(""); var : clr1(0),clr2(0),BE(0),SE(0),cnt(0),upcond(False),dncond(False),text2(0); Array:고[10,4](0),저[10,4](0); // 1:가격,2:Index,3:sDate,4:sTime #==========================================# HHh = IFF(0==1,C,H); LLl = IFF(0==1,C,L); If Index == 0 Then { 고[1,1] = HHh; 저[1,1] = LLl; } Condition11 = Highest(HHh,length) == HHh and 최종고가 <> HHh; Condition12 = Lowest (LLl,length) == LLl and 최종저가 <> LLl; 처리구분 = ""; If Condition11 and Condition12 Then // 기간고점과 기간저점 동시 발생 { If 최종꼭지점 == "저점" Then { If 저[1,1] > LLl Then 처리구분 = "저점처리"; Else 처리구분 = "고점처리"; } Else If 최종꼭지점 == "고점" Then { If 고[1,1] < HHh Then 처리구분 = "고점처리"; Else 처리구분 = "저점처리"; } } Else If Condition11 Then 처리구분 = "고점처리"; Else If Condition12 Then 처리구분 = "저점처리"; #==========================================# If 처리구분 == "고점처리" Then { ttT = 1; 최종고가 = HHh; // 신규고점을 체크하기 위해 저장 If 최종꼭지점 == "저점" Then { For rjj = 10 DownTo 2 { For jjj = 1 To 4 { 고[rjj,jjj] = 고[rjj-1,jjj]; } } 고[1,1] = HHh; 고[1,2] = Index; 고[1,3] = sDate; 고[1,4] = sTime; If 1 == 1 Then { rTL1 = TL_New(저[1,3],저[1,4],저[1,1],고[1,3],고[1,4],고[1,1]); // Box_Delete(cdbox); rTL2 = TL_New(고[1,3],고[1,4],0,저[1,3],저[1,4],저[1,1]); //수직선 TL_SetSize(rtl2,3); tl_setcolor(rtl2,tomato); Text1 = Text_New(저[1,3],저[1,4],저[1,1],NewLine+NewLine+NewLine+NewLine+NumToStr(저[1,1],2)+"매수"); Text_SetStyle(Text1, 2, 2); Text_SetColor(Text1,Red); text2 = text_new(sDate[Ceiling((고[1,2]-저[1,2])/2)],sTime[Ceiling((고[1,2]-저[1,2])/2)],(고[1,1]+저[1,1])/2,"상승1파"+NewLine); Text_SetStyle(text2,2,1); } TL_SetSize(rTL1,선선굵기); TL_SetColor(rTL1,Gray); } Else If 고[1,1] < HHh Then // 1번 고점보다 높은 고가 출현 { 고[1,1] = HHh; 고[1,2] = Index; 고[1,3] = sDate; 고[1,4] = sTime; TL_SetEnd(rTL1,고[1,3],고[1,4],고[1,1]); // 시작점은 변동없고 끝점의 위치가 현재 봉으로 연장된 것임 Text_Delete(Teext1); If 1 == 1 Then { Text_SetLocation(Text1,저[1,3],저[1,4],저[1,1]); Text_SetLocation(text2,sDate[Ceiling((고[1,2]-저[1,2])/2)],sTime[Ceiling((고[1,2]-저[1,2])/2)],(고[1,1]+저[1,1])/2); } } 최종꼭지점 = "고점"; } Text_Delete(Teext1); Teext1 = text_new(저[1,3],저[1,4],저[1,1],NewLine+NewLine+NumToStr(저[1,1],2)+"예비연장 매수"); //수정 text_SetStyle(Teext1, 2, 2); Text_SetColor(Teext1,Red); TL_Delete(ssTL55사각); ssTL55사각 = TL_New(고[1,3],고[1,4],0,저[1,3],저[1,4],저[1,1]);//수직선 연장예비신호(수정) tL_SetSize(ssTL55사각,직선굵기); tL_SetColor(ssTL55사각,LimE); #==========================================# If 처리구분 == "저점처리" Then { ttT = -1; 최종저가 = LLl; If 최종꼭지점 == "고점" then { For rjj = 10 DownTo 2 { For jjj = 1 To 4 { 저[rjj,jjj] = 저[rjj-1,jjj]; } } 저[1,1] = LLl; 저[1,2] = Index; 저[1,3] = sDate; 저[1,4] = sTime; If 1 == 1 Then { rTL1 = TL_New(고[1,3],고[1,4],고[1,1],저[1,3],저[1,4],저[1,1]); rTL2 = TL_New(고[1,3],고[1,4],고[1,1],저[1,3],저[1,4],999999999); //수직선 TL_SetSize(rtl2,3); tl_setcolor(rtl2,lime); Text1 = Text_New(고[1,3],고[1,4],고[1,1],NumToStr(고[1,1],2)+"매도"+NewLine+NewLine+NewLine); Text_SetStyle(Text1, 2, 2); Text_SetColor(Text1,Blue); text2 = text_new(sDate[Ceiling((저[1,2]-고[1,2])/2)],sTime[Ceiling((저[1,2]-고[1,2])/2)],(고[1,1]+저[1,1])/2,NewLine+"하락1파"); Text_SetStyle(text2,2,0); } TL_SetSize(rTL1,직선굵기); TL_SetColor(rTL1,Gray); } Else If 저[1,1] > LLl then { 저[1,1] = LLl; 저[1,2] = Index; 저[1,3] = sDate; 저[1,4] = sTime; TL_SetEnd(rTL1,저[1,3],저[1,4],저[1,1]); If 1 == 1 Then { Text_SetLocation(Text1,고[1,3],고[1,4],고[1,1]); Text_SetLocation(text2,sDate[Ceiling((저[1,2]-고[1,2])/2)],sTime[Ceiling((저[1,2]-고[1,2])/2)],(고[1,1]+저[1,1])/2); } } 최종꼭지점 = "저점"; } Text_Delete(Teext1); Teext1 = text_new(고[1,3],고[1,4],고[1,1],NumToStr(고[1,1],2)+"예비연장 매도"+NewLine); //수정 Text_SetStyle(Teext1, 2, 2); Text_SetColor(Teext1,Blue); TL_Delete(sTL55사각); sTL55사각 = TL_New(고[1,3],고[1,4],고[1,1],저[1,3],저[1,4],999999999);//수직선 연장예비신호 tL_SetSize(sTL55사각,직선굵기); tL_SetColor(sTL55사각,LimE);