커뮤니티

고점저점추세

프로필 이미지
nicejon
2019-10-19 15:18:02
237
글번호 132914
답변완료
1)첨부파일1은 아래식과 같습니다..... input : Left(5),right(5); var : T(0),cnt(0),TL(0),HTL1(0),HTL2(0),LTL1(0),LTL2(0); Array : SHD[5](0),SHT[5](0),SHV[5](0); Array : SLD[5](0),SLT[5](0),SLV[5](0); if SwingHigh(1,H,Left,Right,Left+Right+1) != -1 then { var2 = 0; var1 = var1+1; if var1 == 1 then { SHD[0] = sdate[right]; SHT[0] = stime[right]; SHV[0] = H[right]; for cnt = 1 to 4 { SHD[cnt] = SHD[cnt-1][1]; SHT[cnt] = SHT[cnt-1][1]; SHV[cnt] = SHV[cnt-1][1]; } if SLV[0] > 0 Then { TL = TL_New(SLD[0],SLT[0],SLV[0],SHD[0],SHT[0],SHV[0]); } } if var1 >= 2 and H[right] > SHV[0] then { SHD[0] = sdate[right]; SHT[0] = stime[right]; SHV[0] = H[right]; if SLV[0] > 0 Then { TL_Delete(TL); TL = TL_New(SLD[0],SLT[0],SLV[0],SHD[0],SHT[0],SHV[0]); } } if SHV[1] > 0 Then { TL_Delete(HTL1); HTL1 = TL_New(SHD[1],SHT[1],SHV[1],SHD[0],SHT[0],SHV[0]); TL_SetColor(HTL1,RED); } if SHV[2] > 0 Then { TL_Delete(HTL2); HTL2 = TL_New(SHD[2],SHT[2],SHV[2],SHD[0],SHT[0],SHV[0]); TL_SetColor(HTL2,RED); } } if SwingLow(1,L,Left,Right,Left+Right+1) != -1 then { var1 = 0; var2 = var2+1; if var2 == 1 then { SLD[0] = sdate[right]; SLT[0] = stime[right]; SLV[0] = L[right]; for cnt = 1 to 4 { SLD[cnt] = SLD[cnt-1][1]; SLT[cnt] = SLT[cnt-1][1]; SLV[cnt] = SLV[cnt-1][1]; } if SHV[0] > 0 Then { TL = TL_New(SHD[0],SHT[0],SHV[0],SLD[0],SLT[0],SLV[0]); } } if var2 >= 2 and L[right] < SLV[0] then { SLD[0] = sdate[right]; SLT[0] = stime[right]; SLV[0] = L[right]; TL_Delete(TL); if SHV[0] > 0 Then { TL = TL_New(SHD[0],SHT[0],SHV[0],SLD[0],SLT[0],SLV[0]); } } if SLV[1] > 0 Then { TL_Delete(LTL1); LTL1 = TL_New(SLD[1],SLT[1],SLV[1],SLD[0],SLT[0],SLV[0]); TL_SetColor(LTL1,BLUE); } if SLV[2] > 0 Then { TL_Delete(LTL2); LTL2 = TL_New(SLD[2],SLT[2],SLV[2],SLD[0],SLT[0],SLV[0]); TL_SetColor(LTL2,BLUE); } } 2)) 첨부파일2 처럼 구현하고 싶습니다.. 1)번지표에 추세선 연결점에서 옆으로 나오는 선까지 구현하고 싶습니다.. 도와주세요
지표
답변 2
프로필 이미지

예스스탁 예스스탁 답변

2019-10-18 15:18:58

안녕하세요 예스스탁입니다. 최근 100개의 고점과 저점만 가격이 만나는것을 감시하게 작성해 드립니다. 수식에서는 유동적인 수로 설정이 되지 않습니다. input : Left(5),right(5); var : T(0),cnt(0),TL(0),HTL1(0),HTL2(0),LTL1(0),LTL2(0); Array : SHD[5](0),SHT[5](0),SHV[5](0),SHTL[100](0); Array : SLD[5](0),SLT[5](0),SLV[5](0),SLTL[99](0); if SwingHigh(1,H,Left,Right,Left+Right+1) != -1 then { var2 = 0; var1 = var1+1; if var1 == 1 then { SHD[0] = sdate[right]; SHT[0] = stime[right]; SHV[0] = H[right]; for cnt = 1 to 4 { SHD[cnt] = SHD[cnt-1][1]; SHT[cnt] = SHT[cnt-1][1]; SHV[cnt] = SHV[cnt-1][1]; } if SLV[0] > 0 Then { TL = TL_New(SLD[0],SLT[0],SLV[0],SHD[0],SHT[0],SHV[0]); } } if var1 >= 2 and H[right] > SHV[0] then { SHD[0] = sdate[right]; SHT[0] = stime[right]; SHV[0] = H[right]; if SLV[0] > 0 Then { TL_Delete(TL); TL = TL_New(SLD[0],SLT[0],SLV[0],SHD[0],SHT[0],SHV[0]); } } if SHV[1] > 0 Then { TL_Delete(HTL1); HTL1 = TL_New(SHD[1],SHT[1],SHV[1],SHD[0],SHT[0],SHV[0]); TL_SetColor(HTL1,RED); } if SHV[2] > 0 Then { TL_Delete(HTL2); HTL2 = TL_New(SHD[2],SHT[2],SHV[2],SHD[0],SHT[0],SHV[0]); TL_SetColor(HTL2,RED); } SHTL[0] = TL_New(sdate[right],stime[right],H[right],sdate,stime,H[right]); TL_SetColor(SHTL[0],RED); for cnt = 1 to 99 { SHTL[cnt] = SHTL[cnt-1][1]; } } if SwingLow(1,L,Left,Right,Left+Right+1) != -1 then { #plot2(L,"2",blue); var1 = 0; var2 = var2+1; if var2 == 1 then { SLD[0] = sdate[right]; SLT[0] = stime[right]; SLV[0] = L[right]; for cnt = 1 to 4 { SLD[cnt] = SLD[cnt-1][1]; SLT[cnt] = SLT[cnt-1][1]; SLV[cnt] = SLV[cnt-1][1]; } if SHV[0] > 0 Then { TL = TL_New(SHD[0],SHT[0],SHV[0],SLD[0],SLT[0],SLV[0]); } } if var2 >= 2 and L[right] < SLV[0] then { SLD[0] = sdate[right]; SLT[0] = stime[right]; SLV[0] = L[right]; TL_Delete(TL); if SHV[0] > 0 Then { TL = TL_New(SHD[0],SHT[0],SHV[0],SLD[0],SLT[0],SLV[0]); } } if SLV[1] > 0 Then { TL_Delete(LTL1); LTL1 = TL_New(SLD[1],SLT[1],SLV[1],SLD[0],SLT[0],SLV[0]); TL_SetColor(LTL1,BLUE); } if SLV[2] > 0 Then { TL_Delete(LTL2); LTL2 = TL_New(SLD[2],SLT[2],SLV[2],SLD[0],SLT[0],SLV[0]); TL_SetColor(LTL2,BLUE); } SLTL[0] = TL_New(sdate[right],stime[right],L[right],sdate,stime,L[right]); TL_SetColor(SLTL[0],BLUE); for cnt = 1 to 99 { SLTL[cnt] = SLTL[cnt-1][1]; } } for cnt = 0 to 99 { if SHTL[cnt] > 0 then { TL_SetEnd(SHTL[cnt],sdate,stime,TL_GetBeginVal(SHTL[cnt])); if H >= TL_GetBeginVal(SHTL[cnt]) Then SHTL[cnt] = 0; } if SLTL[cnt] > 0 then { TL_SetEnd(SLTL[cnt],sdate,stime,TL_GetBeginVal(SLTL[cnt])); if L <= TL_GetBeginVal(SLTL[cnt]) Then SLTL[cnt] = 0; } } 즐거운 하루되세요 > nicejon 님이 쓴 글입니다. > 제목 : 고점저점추세 > 1)첨부파일1은 아래식과 같습니다..... input : Left(5),right(5); var : T(0),cnt(0),TL(0),HTL1(0),HTL2(0),LTL1(0),LTL2(0); Array : SHD[5](0),SHT[5](0),SHV[5](0); Array : SLD[5](0),SLT[5](0),SLV[5](0); if SwingHigh(1,H,Left,Right,Left+Right+1) != -1 then { var2 = 0; var1 = var1+1; if var1 == 1 then { SHD[0] = sdate[right]; SHT[0] = stime[right]; SHV[0] = H[right]; for cnt = 1 to 4 { SHD[cnt] = SHD[cnt-1][1]; SHT[cnt] = SHT[cnt-1][1]; SHV[cnt] = SHV[cnt-1][1]; } if SLV[0] > 0 Then { TL = TL_New(SLD[0],SLT[0],SLV[0],SHD[0],SHT[0],SHV[0]); } } if var1 >= 2 and H[right] > SHV[0] then { SHD[0] = sdate[right]; SHT[0] = stime[right]; SHV[0] = H[right]; if SLV[0] > 0 Then { TL_Delete(TL); TL = TL_New(SLD[0],SLT[0],SLV[0],SHD[0],SHT[0],SHV[0]); } } if SHV[1] > 0 Then { TL_Delete(HTL1); HTL1 = TL_New(SHD[1],SHT[1],SHV[1],SHD[0],SHT[0],SHV[0]); TL_SetColor(HTL1,RED); } if SHV[2] > 0 Then { TL_Delete(HTL2); HTL2 = TL_New(SHD[2],SHT[2],SHV[2],SHD[0],SHT[0],SHV[0]); TL_SetColor(HTL2,RED); } } if SwingLow(1,L,Left,Right,Left+Right+1) != -1 then { var1 = 0; var2 = var2+1; if var2 == 1 then { SLD[0] = sdate[right]; SLT[0] = stime[right]; SLV[0] = L[right]; for cnt = 1 to 4 { SLD[cnt] = SLD[cnt-1][1]; SLT[cnt] = SLT[cnt-1][1]; SLV[cnt] = SLV[cnt-1][1]; } if SHV[0] > 0 Then { TL = TL_New(SHD[0],SHT[0],SHV[0],SLD[0],SLT[0],SLV[0]); } } if var2 >= 2 and L[right] < SLV[0] then { SLD[0] = sdate[right]; SLT[0] = stime[right]; SLV[0] = L[right]; TL_Delete(TL); if SHV[0] > 0 Then { TL = TL_New(SHD[0],SHT[0],SHV[0],SLD[0],SLT[0],SLV[0]); } } if SLV[1] > 0 Then { TL_Delete(LTL1); LTL1 = TL_New(SLD[1],SLT[1],SLV[1],SLD[0],SLT[0],SLV[0]); TL_SetColor(LTL1,BLUE); } if SLV[2] > 0 Then { TL_Delete(LTL2); LTL2 = TL_New(SLD[2],SLT[2],SLV[2],SLD[0],SLT[0],SLV[0]); TL_SetColor(LTL2,BLUE); } } 2)) 첨부파일2 처럼 구현하고 싶습니다.. 1)번지표에 추세선 연결점에서 옆으로 나오는 선까지 구현하고 싶습니다.. 도와주세요
프로필 이미지

nicejon

2019-10-18 16:58:19

nicejon 님에 의해 삭제된 답변입니다.