안녕하세요 예스스탁입니다. var : Change(1); Array : HD[10](0),HT[10](0),HV[10](0); Array : LD[10](0),LT[10](0),LV[10](0); var : cnt(0),Hprice(0),Lprice(0); var : UpTrend(false),DownTrend(False),Trend(0); var : ZigZagTL(0); var : TL1(0),TL2(0),TL3(0),TL4(0),TL5(0); HPrice = H; LPrice = L; if Index == 0 Then { HD[0] = sDate; HT[0] = sTime; HV[0] = HPrice; LD[0] = sDate; LT[0] = sTime; LV[0] = LPrice; } Else { UpTrend = HPrice >= LV[0]*(1+Change/100); DownTrend = LPrice <= HV[0]*(1-Change/100); if trend <= 0 and UpTrend == true Then { trend = 1; TL_SetEnd(TL1,LD[0],LT[0],HV[0]-(HV[0]-LV[0])*0.00); TL_SetEnd(TL2,LD[0],LT[0],HV[0]-(HV[0]-LV[0])*0.25); TL_SetEnd(TL3,LD[0],LT[0],HV[0]-(HV[0]-LV[0])*0.50); TL_SetEnd(TL4,LD[0],LT[0],HV[0]-(HV[0]-LV[0])*0.75); TL_SetEnd(TL5,LD[0],LT[0],LV[0]); For cnt = 9 DownTo 1 { HD[cnt] = HD[cnt-1]; HT[cnt] = HT[cnt-1]; HV[cnt] = HV[cnt-1]; } HD[0] = sDate; HT[0] = sTime; HV[0] = HPrice; ZigZagTL = TL_New(LD[0],LT[0],LV[0],HD[0],HT[0],HV[0]); TL_SetColor(ZigZagTL,Red); TL_SetSize(ZigZagTL,1); TL1 = TL_New(LD[0],LT[0],HV[0]-(HV[0]-LV[0])*0.00,sDate,stime,HV[0]-(HV[0]-LV[0])*0.00); TL2 = TL_New(LD[0],LT[0],HV[0]-(HV[0]-LV[0])*0.25,sDate,stime,HV[0]-(HV[0]-LV[0])*0.25); TL3 = TL_New(LD[0],LT[0],HV[0]-(HV[0]-LV[0])*0.50,sDate,stime,HV[0]-(HV[0]-LV[0])*0.50); TL4 = TL_New(LD[0],LT[0],HV[0]-(HV[0]-LV[0])*0.75,sDate,stime,HV[0]-(HV[0]-LV[0])*0.75); TL5 = TL_New(LD[0],LT[0],LV[0],sDate,stime,LV[0]); TL_SetColor(TL1,Red); TL_SetColor(TL2,Red); TL_SetColor(TL3,Red); TL_SetColor(TL4,Red); TL_SetColor(TL5,Red); } Else if trend >= 0 and DownTrend Then { trend = -1; TL_SetEnd(TL1,HD[0],HT[0],HV[0]-(HV[0]-LV[0])*0.00); TL_SetEnd(TL2,HD[0],HT[0],HV[0]-(HV[0]-LV[0])*0.25); TL_SetEnd(TL3,HD[0],HT[0],HV[0]-(HV[0]-LV[0])*0.50); TL_SetEnd(TL4,HD[0],HT[0],HV[0]-(HV[0]-LV[0])*0.75); TL_SetEnd(TL5,HD[0],HT[0],LV[0]); For cnt = 9 DownTo 1 { LD[cnt] = LD[cnt-1]; LT[cnt] = LT[cnt-1]; LV[cnt] = LV[cnt-1]; } LD[0] = sDate; LT[0] = sTime; LV[0] = LPrice; ZigZagTL = TL_New(HD[0],HT[0],HV[0],LD[0],LT[0],LV[0]); TL_SetColor(ZigZagTL,Blue); TL_SetSize(ZigZagTL,1); TL1 = TL_New(HD[0],HT[0],HV[0]-(HV[0]-LV[0])*0.00,sDate,stime,HV[0]-(HV[0]-LV[0])*0.00); TL2 = TL_New(HD[0],HT[0],HV[0]-(HV[0]-LV[0])*0.25,sDate,stime,HV[0]-(HV[0]-LV[0])*0.25); TL3 = TL_New(HD[0],HT[0],HV[0]-(HV[0]-LV[0])*0.50,sDate,stime,HV[0]-(HV[0]-LV[0])*0.50); TL4 = TL_New(HD[0],HT[0],HV[0]-(HV[0]-LV[0])*0.75,sDate,stime,HV[0]-(HV[0]-LV[0])*0.75); TL5 = TL_New(HD[0],hT[0],LV[0],sDate,stime,LV[0]); TL_SetColor(TL1,Blue); TL_SetColor(TL2,Blue); TL_SetColor(TL3,Blue); TL_SetColor(TL4,Blue); TL_SetColor(TL5,Blue); } Else { if trend == 1 Then { if HPrice > HV[0] Then { HD[0] = sDate; HT[0] = sTime; HV[0] = HPrice; TL_SetEnd(ZigZagTL,HD[0],HT[0],HV[0]); TL_SetBegin(TL1,LD[0],LT[0],HV[0]-(HV[0]-LV[0])*0.00); TL_SetBegin(TL2,LD[0],LT[0],HV[0]-(HV[0]-LV[0])*0.25); TL_SetBegin(TL3,LD[0],LT[0],HV[0]-(HV[0]-LV[0])*0.50); TL_SetBegin(TL4,LD[0],LT[0],HV[0]-(HV[0]-LV[0])*0.75); TL_SetBegin(TL5,LD[0],LT[0],LV[0]); } TL_SetEnd(TL1,sDate,sTime,HV[0]-(HV[0]-LV[0])*0.00); TL_SetEnd(TL2,sDate,sTime,HV[0]-(HV[0]-LV[0])*0.25); TL_SetEnd(TL3,sDate,sTime,HV[0]-(HV[0]-LV[0])*0.50); TL_SetEnd(TL4,sDate,sTime,HV[0]-(HV[0]-LV[0])*0.75); TL_SetEnd(TL5,sDate,sTime,LV[0]); } if trend == -1 Then { if LPrice < LV[0] Then { LD[0] = sDate; LT[0] = sTime; LV[0] = LPrice; TL_SetEnd(ZigZagTL,LD[0],LT[0],LV[0]); TL_SetBegin(TL1,HD[0],HT[0],HV[0]-(HV[0]-LV[0])*0.00); TL_SetBegin(TL2,HD[0],HT[0],HV[0]-(HV[0]-LV[0])*0.25); TL_SetBegin(TL3,HD[0],HT[0],HV[0]-(HV[0]-LV[0])*0.50); TL_SetBegin(TL4,HD[0],HT[0],HV[0]-(HV[0]-LV[0])*0.75); TL_SetBegin(TL5,HD[0],HT[0],LV[0]); } TL_SetEnd(TL1,sDate,sTime,HV[0]-(HV[0]-LV[0])*0.00); TL_SetEnd(TL2,sDate,sTime,HV[0]-(HV[0]-LV[0])*0.25); TL_SetEnd(TL3,sDate,sTime,HV[0]-(HV[0]-LV[0])*0.50); TL_SetEnd(TL4,sDate,sTime,HV[0]-(HV[0]-LV[0])*0.75); TL_SetEnd(TL5,sDate,sTime,LV[0]); } } } 즐거운 하루되세요