안녕하세요 예스스탁입니다. input : ntime1(5),P1(5),P2(40),P3(60); INPUTS: 색1(YELLOW),색2(RED), 굵기(1); var : S1(0),D1(0),TM(0),TF(0),cnt(0); var : sum1(0),mav1(0),sum11(0),mav11(0); var : sum2(0),mav2(0),sum21(0),mav21(0); var : sum3(0),mav3(0),sum31(0),mav31(0),TL(0); Array : C1[100](0); 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%ntime1; if Bdate != Bdate[1] or (ntime1 != 1 and Bdate == Bdate[1] and TF < TF[1]) or (ntime1 == 1 and Bdate == Bdate[1] and TM > TM[1]) Then { for cnt = 1 to 99 { C1[cnt] = C1[cnt-1][1]; } } C1[0] = C; if C1[P1] > 0 then { sum1 = 0; sum11 = 0; for cnt = 0 to P1-1 { sum1 = sum1+C1[cnt]; sum11 = sum11+C1[cnt+1]; } mav1 = sum1/P1; } } input : per1(23.6),per2(50.0),per3(76.4); var : hh(0),ll(0),dd(0),tt(0); var : tl1(0),tl2(0),tl3(0); if bdate > bdate[1] then { hh = h; ll = l; dd = sdate[1]; tt = stime[1]; TL_Delete(tl1); TL_Delete(tl2); TL_Delete(tl3); tl1 = TL_New(dd,tt,hh-(hh-ll)*(per1/100),sdate,stime,hh-(hh-ll)*(per1/100)); tl3 = TL_New(dd,tt,hh-(hh-ll)*(per3/100),sdate,stime,hh-(hh-ll)*(per3/100)); } if h > hh and hh > 0 Then { hh = h; TL_Delete(tl1); TL_Delete(tl3); tl1 = TL_New(dd,tt,hh-(hh-ll)*(per1/100),sdate,stime,hh-(hh-ll)*(per1/100)); tl3 = TL_New(dd,tt,hh-(hh-ll)*(per3/100),sdate,stime,hh-(hh-ll)*(per3/100)); } if l < ll and ll > 0 Then { ll = l; TL_Delete(tl1); TL_Delete(tl2); TL_Delete(tl3); tl1 = TL_New(dd,tt,hh-(hh-ll)*(per1/100),sdate,stime,hh-(hh-ll)*(per1/100)); tl3 = TL_New(dd,tt,hh-(hh-ll)*(per3/100),sdate,stime,hh-(hh-ll)*(per3/100)); } if mav1 > hh-(hh-ll)*(per1/100) Then TL_SetColor(TL1,RED); Else TL_SetColor(TL1,BLUE); TL_SetSize(TL1,1); TL_SetExtRight(TL1,true); if mav1 > hh-(hh-ll)*(per3/100) Then TL_SetColor(TL3,RED); Else TL_SetColor(TL3,BLUE); TL_SetSize(TL3,1); TL_SetExtRight(TL3,true); 즐거운 하루되세요 > 장군 님이 쓴 글입니다. > 제목 : 문의드립니다 > 1)input : per1(23.6),per2(50.0),per3(76.4); var : hh(0),ll(0),dd(0),tt(0); var : tl1(0),tl2(0),tl3(0); if bdate > bdate[1] then { hh = h; ll = l; dd = sdate[1]; tt = stime[1]; TL_Delete(tl1); TL_Delete(tl2); TL_Delete(tl3); tl1 = TL_New(dd,tt,hh-(hh-ll)*(per1/100),sdate,stime,hh-(hh-ll)*(per1/100)); tl2 = TL_New(dd,tt,hh-(hh-ll)*(per2/100),sdate,stime,hh-(hh-ll)*(per2/100)); tl3 = TL_New(dd,tt,hh-(hh-ll)*(per3/100),sdate,stime,hh-(hh-ll)*(per3/100)); } if h > hh and hh > 0 Then { hh = h; TL_Delete(tl1); TL_Delete(tl2); TL_Delete(tl3); tl1 = TL_New(dd,tt,hh-(hh-ll)*(per1/100),sdate,stime,hh-(hh-ll)*(per1/100)); tl3 = TL_New(dd,tt,hh-(hh-ll)*(per3/100),sdate,stime,hh-(hh-ll)*(per3/100)); } if l < ll and ll > 0 Then { ll = l; TL_Delete(tl1); TL_Delete(tl2); TL_Delete(tl3); tl1 = TL_New(dd,tt,hh-(hh-ll)*(per1/100),sdate,stime,hh-(hh-ll)*(per1/100)); tl3 = TL_New(dd,tt,hh-(hh-ll)*(per3/100),sdate,stime,hh-(hh-ll)*(per3/100)); } TL_SetColor(TL1,LMAGENTA); TL_SetSize(TL1,1); TL_SetExtRight(TL1,true); TL_SetColor(TL2,GRAY); TL_SetSize(TL2,1); TL_SetExtRight(TL2,true); TL_SetColor(TL3,RED); TL_SetSize(TL3,1); TL_SetExtRight(TL3,true); 2) input : ntime1(5),P1(5),P2(40),P3(60); INPUTS: 색1(YELLOW),색2(RED), 굵기(1); var : S1(0),D1(0),TM(0),TF(0),cnt(0); var : sum1(0),mav1(0),sum11(0),mav11(0); var : sum2(0),mav2(0),sum21(0),mav21(0); var : sum3(0),mav3(0),sum31(0),mav31(0),TL(0); Array : C1[100](0); 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%ntime1; if Bdate != Bdate[1] or (ntime1 != 1 and Bdate == Bdate[1] and TF < TF[1]) or (ntime1 == 1 and Bdate == Bdate[1] and TM > TM[1]) Then { for cnt = 1 to 99 { C1[cnt] = C1[cnt-1][1]; } } C1[0] = C; if C1[P1] > 0 then { sum1 = 0; sum11 = 0; for cnt = 0 to P1-1 { sum1 = sum1+C1[cnt]; sum11 = sum11+C1[cnt+1]; } mav1 = sum1/P1; mav11 = sum11/P1; plot1(mav1,"이평1",IFf(mav1 > mav11,BLACK,BLACK)); } if C1[P2] > 0 then { sum2 = 0; sum21 = 0; for cnt = 0 to P2-1 { sum2 = sum1+C1[cnt]; sum21 = sum21+C1[cnt+1]; } mav2 = sum2/P2; mav21 = sum21/P2; plot2(mav2,"이평2",IFf(mav2 > mav21,BLACK,BLACK)); } if C1[P3] > 0 then { sum3 = 0; sum31 = 0; for cnt = 0 to P3-1 { sum3 = sum3+C1[cnt]; sum31 = sum31+C1[cnt+1]; } mav3 = sum3/P3; mav31 = sum31/P3; plot3(mav3,"이평3",IFf(mav3 > mav31,BLACK,BLACK)); } } if CrossUp(mav1,mav3) Then { TL_Delete(tl); tl = TL_New(sDate,sTime,mav1,NextBarSdate,NextBarStime,mav1); TL_SetColor(tl,색1); TL_SetSize(tl,굵기); TL_SetExtRight(TL,true); } if CrossDown(mav1,mav3) Then { TL_Delete(tl); tl = TL_New(sDate,sTime,mav1,NextBarSdate,NextBarStime,mav1); TL_SetColor(tl,색2); TL_SetSize(tl,굵기); TL_SetExtRight(TL,true); } 2번수식으로p1 이 1번피보나치수식0.764상승크로스하면레드색하락크로스하면블루색 p1 이1번피보나치수식0.236상승크로스하면 레드색 하락크로스하면 블루색 으로수정부탁드립니다~~항상감사드립니다