안녕하세요 예스스탁입니다. 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),v1(0),v2(0),v3(0),tl4(0),tl5(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); TL_Delete(tl4); TL_Delete(tl5); 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)); tl4 = TL_New(dd,tt,DayHigh(1),sdate,stime,DayHigh(1)); tl5 = TL_New(dd,tt,DayLow(1),sdate,stime,DayLow(1)); } 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)); 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 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)); 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)); } TL_SetColor(TL1,BLACK); TL_SetSize(TL1,0); TL_SetExtRight(TL1,true); TL_SetColor(TL2,BLACK); TL_SetSize(TL2,0); TL_SetExtRight(TL2,true); TL_SetColor(TL3,BLACK); TL_SetSize(TL3,0); TL_SetExtRight(TL3,true); TL_SetColor(TL4,BLACK); TL_SetSize(TL4,1); TL_SetExtRight(TL4,true); TL_SetColor(TL5,BLACK); TL_SetSize(TL5,1); TL_SetExtRight(TL5,true); v1 = hh-(hh-ll)*(per1/100); v2 = hh-(hh-ll)*(per2/100); v3 = hh-(hh-ll)*(per3/100); INPUTS: LENGTH1(5); INPUTS: 색1(YELLOW),색2(RED), 굵기(1); VARS : DEMA1(0),TL(0); var1= EMA(C,LENGTH1); value1= EMA(EMa(C,LENGTH1),LENGTH1); DEMA1 = var1 * 2 - value1; if C >DEMA1 Then PLOT1(DEMA1, "DEMA1",GRAY); Else PLOT1(DEMA1, "DEMA1",GRAY); if CrossUp(DEMA1,v1) or CrossUp(DEMA1,v2) or CrossUp(DEMA1,v3) Then { TL_Delete(tl); tl = TL_New(sDate,sTime,DEMA1,NextBarSdate,NextBarStime,DEMA1); TL_SetColor(tl,MAGENTA); TL_SetSize(tl,3); TL_SetExtRight(TL,true); } if CrossDown(DEMA1,v1) or CrossDown(DEMA1,v2) or CrossDown(DEMA1,v3) Then { TL_Delete(tl); tl = TL_New(sDate,sTime,DEMA1,NextBarSdate,NextBarStime,DEMA1); TL_SetColor(tl,lGREEn); TL_SetSize(tl,3); TL_SetExtRight(TL,true); } 즐거운 하루되세요 > 장군 님이 쓴 글입니다. > 제목 : 문의드립니다 > 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),v1(0),v2(0),v3(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)); 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 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)); 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)); } TL_SetColor(TL1,BLACK); TL_SetSize(TL1,0); TL_SetExtRight(TL1,true); TL_SetColor(TL2,BLACK); TL_SetSize(TL2,0); TL_SetExtRight(TL2,true); TL_SetColor(TL3,BLACK); TL_SetSize(TL3,0); TL_SetExtRight(TL3,true); v1 = hh-(hh-ll)*(per1/100); v2 = hh-(hh-ll)*(per2/100); v3 = hh-(hh-ll)*(per3/100); INPUTS: LENGTH1(5); INPUTS: 색1(YELLOW),색2(RED), 굵기(1); VARS : DEMA1(0),TL(0); var1= EMA(C,LENGTH1); value1= EMA(EMa(C,LENGTH1),LENGTH1); DEMA1 = var1 * 2 - value1; if C >DEMA1 Then PLOT1(DEMA1, "DEMA1",GRAY); Else PLOT1(DEMA1, "DEMA1",GRAY); if CrossUp(DEMA1,v1) or CrossUp(DEMA1,v2) or CrossUp(DEMA1,v3) Then { TL_Delete(tl); tl = TL_New(sDate,sTime,DEMA1,NextBarSdate,NextBarStime,DEMA1); TL_SetColor(tl,MAGENTA); TL_SetSize(tl,3); TL_SetExtRight(TL,true); } if CrossDown(DEMA1,v1) or CrossDown(DEMA1,v2) or CrossDown(DEMA1,v3) Then { TL_Delete(tl); tl = TL_New(sDate,sTime,DEMA1,NextBarSdate,NextBarStime,DEMA1); TL_SetColor(tl,lGREEn); TL_SetSize(tl,3); TL_SetExtRight(TL,true); } 위수식으로도 전일고가 전일저가 수평선을 추가하고 십습니다 ~~미리감사드립니다