안녕하세요 예스스탁입니다. Input:ShortPeriod(5),LongPeriod(20),선두께(2),상승색(red), 하락색(blue); Var:j(0),ma1(0),ma2(0); Var: date11(0),date12(0),time11(0),time12(0),TL1(0), date21(0),date22(0),time21(0),time22(0), date31(0),date32(0),time31(0),time32(0),tx(0),tx1(0); Array:HiVal[20](0),LoVal[20](0),HiBar[20](0),LoBar[20](0),ZZ[20](0); Array:r[7](0),fr[7](0),TL2[7](0),TL3[7](0); For j = 0 To 19 { HiBar[j] = HiBar[j] + 1; LoBar[j] = LoBar[j] + 1; } ma1 = ma(C,ShortPeriod); ma2 = ma(C,LongPeriod); If ma1 < ma2 Then { If ma1[1] >= ma2[1] Then { For j = 18 DownTo 0 { LoVal[j+1] = LoVal[j]; LoBar[j+1] = LoBar[j]; ZZ[j+1] = ZZ[j]; } LoVal[0] = L; LoBar[0] = 0; ZZ[0] = L; date11 = date[HiBar[0]]; time11 = stime[HiBar[0]]; Value11 = HiVal[0]; date12 = date[LoBar[0]]; time12 = stime[LoBar[0]]; Value12 = LoVal[0]; TL1 = TL_New(date11,time11,Value11,date12,time12,Value12); TL_SetColor(TL1,상승색); tx = Text_New(date11,time11,Value11,NumToStr(value11,2)+NewLine+"틱수:"+NumToStr(abs(value12-value11)/PriceScale,0)); Text_SetStyle(tx,2,1); date21 = date[HiBar[0]]; time21 = stime[HiBar[0]]; date22 = date[0]; time22 = stime[0]; for j = 0 to 6 { fr[j] = LoVal[1] + ((HiVal[0] - LoVal[1]) * r[j]); TL2[j] = TL_New(date21,time21,fr[j],date22,time22,fr[j]); TL_SetColor(TL2[j],red); tx1 = Text_New(date22,time22,fr[j],NumToStr(fr[j],2)); Text_SetStyle(tx1,0,0); } } Else If LoVal[0] > L Then { LoVal[0] = L; LoBar[0] = 0; ZZ[0] = L; date12 = date[LoBar[0]]; time12 = stime[LoBar[0]]; Value12 = LoVal[0]; TL_SetEnd(TL1, date12,time12,Value12); date22 = date[0]; time22 = stime[0]; for j = 0 to 6 { TL_SetEnd(TL2[j],date22,time22,fr[j]); } } } Else If ma1 > ma2 Then { If ma1[1] <= ma2[1] Then { For j = 18 DownTo 0 { HiVal[j+1] = HiVal[j]; HiBar[j+1] = HiBar[j]; ZZ[j+1] = ZZ[j]; } HiVal[0] = H; HiBar[0] = 0; ZZ[0] = H; date11 = date[LoBar[0]]; time11 = stime[LoBar[0]]; Value11 = LoVal[0]; date12 = date[HiBar[0]]; time12 = stime[HiBar[0]]; Value12 = HiVal[0]; TL1 = TL_New(date11,time11,Value11,date12,time12,Value12); TL_SetColor(TL1,하락색); tx = Text_New(date11,time11,Value11,NumToStr(value11,2)+NewLine+"틱수:"+NumToStr(abs(value12-value11)/PriceScale,0)); Text_SetStyle(tx,2,0); date31 = date[LoBar[0]]; time31 = stime[LoBar[0]]; date32 = date[0]; time32 = stime[0]; for j = 0 to 6 { fr[j] = LoVal[0] + ((HiVal[1] - LoVal[0]) * r[j]); TL3[j] = TL_New(date31,time31,fr[j],date32,time32,fr[j]); TL_SetColor(TL3[j],blue); } } Else If HiVal[0] < H Then { HiVal[0] = H; HiBar[0] = 0; ZZ[0] = H; date12 = date[HiBar[0]]; time12 = stime[HiBar[0]]; Value12 = HiVal[0]; TL_SetEnd(TL1, date12,time12,Value12); date32 = date[0]; time32 = stime[0]; for j = 0 to 6 { TL_SetEnd(TL3[j],date32,time32,fr[j]); } } } TL_SetSize(TL1,선두께); 즐거운 하루되세요 > 쿠루드 님이 쓴 글입니다. > 제목 : 문의 드립니다. > 안녕하세요 아래 수식은 다른분의 문의로 운영자님께서 작성해주신 수식입니다 여기에 추가로 부탁드리고자 합니다 1. 현재 고점과 저점에 지수만 나오는데, 각각 올라온 틱수와 내려간 틱수도 그 아래 위쪽에 첨가해주시면 감사하겠습니다 2. 추세선이 전부 그린색인데 상승파와 하락파를 구분해서 수정 가능하다면 부탁드립니다 감사합니다 -------------------------------------------------------------------------------------- Input:ShortPeriod(5),LongPeriod(20),선두께(2),선색(green); Var:j(0),ma1(0),ma2(0); Var: date11(0),date12(0),time11(0),time12(0),TL1(0), date21(0),date22(0),time21(0),time22(0), date31(0),date32(0),time31(0),time32(0),tx(0),tx1(0); Array:HiVal[20](0),LoVal[20](0),HiBar[20](0),LoBar[20](0),ZZ[20](0); Array:r[7](0),fr[7](0),TL2[7](0),TL3[7](0); For j = 0 To 19 { HiBar[j] = HiBar[j] + 1; LoBar[j] = LoBar[j] + 1; } ma1 = ma(C,ShortPeriod); ma2 = ma(C,LongPeriod); If ma1 < ma2 Then { If ma1[1] >= ma2[1] Then { For j = 18 DownTo 0 { LoVal[j+1] = LoVal[j]; LoBar[j+1] = LoBar[j]; ZZ[j+1] = ZZ[j]; } LoVal[0] = L; LoBar[0] = 0; ZZ[0] = L; date11 = date[HiBar[0]]; time11 = stime[HiBar[0]]; Value11 = HiVal[0]; date12 = date[LoBar[0]]; time12 = stime[LoBar[0]]; Value12 = LoVal[0]; TL1 = TL_New(date11,time11,Value11,date12,time12,Value12); tx = Text_New(date11,time11,Value11,NumToStr(value11,2)); Text_SetStyle(tx,2,1); date21 = date[HiBar[0]]; time21 = stime[HiBar[0]]; date22 = date[0]; time22 = stime[0]; for j = 0 to 6 { fr[j] = LoVal[1] + ((HiVal[0] - LoVal[1]) * r[j]); TL2[j] = TL_New(date21,time21,fr[j],date22,time22,fr[j]); TL_SetColor(TL2[j],red); tx1 = Text_New(date22,time22,fr[j],NumToStr(fr[j],2)); Text_SetStyle(tx1,0,0); } } Else If LoVal[0] > L Then { LoVal[0] = L; LoBar[0] = 0; ZZ[0] = L; date12 = date[LoBar[0]]; time12 = stime[LoBar[0]]; Value12 = LoVal[0]; TL_SetEnd(TL1, date12,time12,Value12); date22 = date[0]; time22 = stime[0]; for j = 0 to 6 { TL_SetEnd(TL2[j],date22,time22,fr[j]); } } } Else If ma1 > ma2 Then { If ma1[1] <= ma2[1] Then { For j = 18 DownTo 0 { HiVal[j+1] = HiVal[j]; HiBar[j+1] = HiBar[j]; ZZ[j+1] = ZZ[j]; } HiVal[0] = H; HiBar[0] = 0; ZZ[0] = H; date11 = date[LoBar[0]]; time11 = stime[LoBar[0]]; Value11 = LoVal[0]; date12 = date[HiBar[0]]; time12 = stime[HiBar[0]]; Value12 = HiVal[0]; TL1 = TL_New(date11,time11,Value11,date12,time12,Value12); tx = Text_New(date11,time11,Value11,NumToStr(value11,2)); Text_SetStyle(tx,2,0); date31 = date[LoBar[0]]; time31 = stime[LoBar[0]]; date32 = date[0]; time32 = stime[0]; for j = 0 to 6 { fr[j] = LoVal[0] + ((HiVal[1] - LoVal[0]) * r[j]); TL3[j] = TL_New(date31,time31,fr[j],date32,time32,fr[j]); TL_SetColor(TL3[j],blue); } } Else If HiVal[0] < H Then { HiVal[0] = H; HiBar[0] = 0; ZZ[0] = H; date12 = date[HiBar[0]]; time12 = stime[HiBar[0]]; Value12 = HiVal[0]; TL_SetEnd(TL1, date12,time12,Value12); date32 = date[0]; time32 = stime[0]; for j = 0 to 6 { TL_SetEnd(TL3[j],date32,time32,fr[j]); } } } TL_SetSize(TL1,선두께); TL_SetColor(TL1,선색);