다른분봉 ZigZag(지그재그, 파동선) 지표

input : 분(30),length(10); //고가 저가 봉 기간 input : UseClose(0); //0이면 고가/저가 사용, 1이면 종가 Array : HD[9](0),HT[9](0),HV[9](0); //고점 날짜, 시간, 가격 저장할 배열 Array : LD[9](0),LT[9](0),LV[9](0); //저점 날짜, 시간, 가격 저장할 배열 var : cnt(0),Hprice(0),Lprice(0); var : UpTrend(false),DownTrend(False),Trend(0); var : ZigZagTL(0),HTL(0),LTL(0); var : S1(0),d1(0),TM(0),TF(0),b(0); Array : nHV[100](0),nLV[100](0); Array : nHD[100](0),nLD[100](0); Array : nHT[100](0),nLT[100](0); var : nS1(0),nD1(0),nTM(0),nTF(0),Hest(0),Lest(0); HPrice = IFf(UseClose == 1 ,C,H); LPrice = IFf(UseClose == 1 ,C,L); if Bdate != Bdate[1] Then { S1 = TimeToMinutes(stime); D1 = sdate; } if D1 > 0 then { if sdate == D1 Then TM = TimeToMinutes(stime)-S1; Else TM = TimeToMinutes(stime)+1440-S1; TF = TM%분; if Bdate != Bdate[1] or (Bdate == Bdate[1] and 분 > 1 and TF < TF[1]) or (Bdate == Bdate[1] and 분 > 1 and TM >= TM[1]+분) or (Bdate == Bdate[1] and 분 == 1 and TM > TM[1]) Then { b = b+1; for cnt = 99 downto 1 { nHV[cnt] = nHV[cnt-1]; nHD[cnt] = nHD[cnt-1]; nHT[cnt] = nHT[cnt-1]; nLV[cnt] = nLV[cnt-1]; nLD[cnt] = nLD[cnt-1]; nLT[cnt] = nLT[cnt-1]; } nHV[0] = HPrice; nHD[0] = sDate; nHT[0] = sTime; nLV[0] = LPrice; nLD[0] = sDate; nLT[0] = sTime; } if UseClose == 1 Then { nHV[0] = HPrice; nHD[0] = sDate; nHT[0] = sTime; nLV[0] = LPrice; nLD[0] = sDate; nLT[0] = sTime; } Else { if HPrice > nHV[0] Then { nHV[0] = HPrice; nHD[0] = sdate; nHT[0] = sTime; } if LPrice < nLV[0] Then { nLV[0] = LPrice; nLD[0] = sDate; nLT[0] = sTime; } } } if b == 1 Then { //초기 최고값 HD[0] = nHD[0]; HT[0] = nHT[0]; HV[0] = nHV[1]; //초기 최저값 LD[0] = nLD[0]; LT[0] = nLT[0]; LV[0] = nLV[0]; } if NextBarBdate != Bdate Then { nS1 = TimeToMinutes(NextBarStime); nD1 = NextBarSdate; } if nD1 > 0 then { if NextBarSdate == D1 Then nTM = TimeToMinutes(NextBarStime)-S1; Else nTM = TimeToMinutes(NextBarStime)+1440-S1; nTF = nTM%분; if NextBarBdate != Bdate or (NextBarBdate == Bdate and 분 > 1 and nTF < nTF[1]) or (NextBarBdate == Bdate and 분 > 1 and nTM >= nTM[1]+분) or (NextBarBdate == Bdate and 분 == 1 and nTM > nTM[1]) Then { if nHV[length] > 0 and nLV[length] > 0 Then { Hest = 0; Lest = 0; For cnt = 1 to length { if Hest == 0 or (Hest > 0 and nHV[cnt] > Hest) Then Hest = nHV[cnt]; if Lest == 0 or (Lest > 0 and nLV[cnt] < Lest) Then Lest = nLV[cnt]; } UpTrend = nHV[0] >= Hest; DownTrend = nLV[0] <= Lest; //상승추세 전환 if trend <= 0 and UpTrend == true Then { //추세구분 1 trend = 1; //과거 고점의 날짜, 시간, 값을 다음 배열방으로 이동 For cnt = 9 DownTo 1 { HD[cnt] = HD[cnt-1]; HT[cnt] = HT[cnt-1]; HV[cnt] = HV[cnt-1]; } //0번방에 날짜, 시간, 가격 저장 HD[0] = nHD[0]; HT[0] = nHT[0]; HV[0] = nHV[0]; //직전 저점에서 현재 고점까지 연결선 출력 ZigZagTL = TL_New(LD[0],LT[0],LV[0],HD[0],HT[0],HV[0]); //색상은 Red TL_SetColor(ZigZagTL,Red); //추세선 굵기는 1 TL_SetSize(ZigZagTL,1); //상승전환되면 전저점과 최근저점을 연결하는 추세선 출력 if LV[1] > 0 Then { //이전 저점 연결 추세선은 삭제 TL_Delete(LTL); //새로 출력 LTL = TL_New(LD[1],LT[1],LV[1],LD[0],LT[0],LV[0]); //색상은 Green TL_SetColor(LTL,Green); //추세선 굵기는 0 TL_SetSize(LTL,0); //추세선 모양은 점선 TL_SetStyle(LTL,3); //왼쪽으로 확장 TL_SetExtLeft(LTL,true); //오른쪽으로 확장 TL_SetExtRight(LTL,true); } } //하락추세 전환 Else if trend >= 0 and DownTrend Then { //추세구분은 -1 trend = -1; //과거 저점의 날짜, 시간, 값을 다음 배열방으로 이동 For cnt = 9 DownTo 1 { LD[cnt] = LD[cnt-1]; LT[cnt] = LT[cnt-1]; LV[cnt] = LV[cnt-1]; } //0번방에 날짜, 시간, 가격 저장 LD[0] = nLD[0]; LT[0] = nLT[0]; LV[0] = nLV[0]; //직전 고점에서 현재 저점까지 연결선 출력 ZigZagTL = TL_New(HD[0],HT[0],HV[0],LD[0],LT[0],LV[0]); //색상은 Blue TL_SetColor(ZigZagTL,Blue); //굴긱는 1 TL_SetSize(ZigZagTL,1); //하락전환되면 전고점과 최근고점을 연결하는 추세선 출력 if HV[1] > 0 Then { //이전 고점연결 추세선은 삭제 TL_Delete(HTL); //새로 출력 HTL = TL_New(HD[1],HT[1],HV[1],HD[0],HT[0],HV[0]); //색상은 Orange TL_SetColor(HTL,Orange); //추세선 굵기는 0 TL_SetSize(HTL,0); //추세선 모양은 점선 TL_SetStyle(HTL,3); //왼쪽으로 확장 TL_SetExtLeft(HTL,true); //오른쪽으로 확장 TL_SetExtRight(HTL,true); } } Else { //상승구간 if trend == 1 Then { //고점이 갱신되면 if nHV[0] > HV[0] Then { //갱신된 봉의 날짜/시간/가격으로 변경 HD[0] = nHD[0]; HT[0] = nHT[0]; HV[0] = nHV[0]; //지그재그 추세선의 끝점을 현재봉으로 이동 TL_SetEnd(ZigZagTL,HD[0],HT[0],HV[0]); } } //하락구간 if trend == -1 Then { //저점이 갱신되면 if nLV[0] < LV[0] Then { //갱신된 봉의 날짜/시간/가격으로 변경 LD[0] = nLD[0]; LT[0] = nLT[0]; LV[0] = nLV[0]; //지그재그 추세선의 끝점을 현재봉으로 이동 TL_SetEnd(ZigZagTL,LD[0],LT[0],LV[0]); } } } } } }