안녕하세요 예스스탁입니다. 1 올려주신 수식에서 var1은 지수이동평균값이고 수식에서 []는 1봉전 2봉전을 지정할 때 사용됩니다. sdate[var1],stime[var1] 위와 같이 한봉전 두봉전을 지정하는 부분에 지수이평이 지정되어 문제가 있습니다. 2 종가가 지수이평보다 클때와 작을때로 구분해서 수직선을 그리시는 내용이므로 해당 내용은 삭제하셔야 합니다. 수정하고 수직선 색상으로 구분되게 작성해 드립니다. Input:af(0.02),maxAF(0.25),ssk(60); Var:오늘(0),극대(0),극저(0),가속(0),내일(0),hd(0),hkl(1),hdl(-1),tl(0); Var1 = Ema(C,ssk); if Var1 > 0 and 극대 == 0 and 극저 == 0 then { 극대 = Var1; 극저 = Var1; } if Var1 > 0 and 오늘[1] == 0 then { if hd[1] == 0 then { if Var1[1] < Var1 then hd = hkl; if Var1[1] > Var1 then hd = hdl; } if hd[1] == hkl and Var1[1] > Var1 then { hd = hdl; 오늘 = 극대[1]; 가속 = af; } if hd[1] == hdl and Var1[1] < Var1 then { hd = hkl; 오늘 = 극저[1]; 가속 = af; } 극저 = min(Var1,극저); 극대 = max(Var1,극대); } //Text_New(sdate,stime,극대,"↑"); //Text_New(sdate,stime,극저,"↓"); if 오늘[1] > 0 then { if hd[1] == hkl then { if Var1 > 내일[1] then { 오늘 = 내일[1]; 극저 = 0; if Var1 > 극대[1] then { 극대 = Var1; 가속 = min(maxAF,가속+af); } } else { hd = hdl; 오늘 = 극대[1]; 극대 = 0; 극저 = Var1; 가속 = af; } } if hd[1] == hdl then { if Var1 < 내일[1] then { 오늘 = 내일[1]; 극대 = 0; if Var1 < 극저[1] then { 극저 = Var1; 가속 = min(maxAF,가속+af); } } else { hd = hkl; 오늘 = 극저[1]; 극저 = 0; 극대 = Var1; 가속 = af; } } } 내일 = (max(극대,극저) - 오늘) * 가속 + 오늘; if var1 > C Then { Plot1(var1, "오늘",BLUE); tl = TL_New(sdate,stime,9999999,sdate,stime,0); TL_SetColor(tl,Blue); } Else { Plot1(var1, "오늘",RED); tl = TL_New(sdate,stime,9999999,sdate,stime,0); TL_SetColor(tl,Red); } 즐거운 하루되세요 > 외국인 님이 쓴 글입니다. > 제목 : 수직선이 나타나지않습니다 수직선 부탁드립니다. > Input:af(0.02),maxAF(0.25),ssk(60); Var:오늘(0),극대(0),극저(0),가속(0),내일(0),hd(0),hkl(1),hdl(-1); Var1 = Ema(C,ssk); if Var1 > 0 and 극대 == 0 and 극저 == 0 then { 극대 = Var1; 극저 = Var1; } if Var1 > 0 and 오늘[1] == 0 then { if hd[1] == 0 then { if Var1[1] < Var1 then hd = hkl; if Var1[1] > Var1 then hd = hdl; } if hd[1] == hkl and Var1[1] > Var1 then { hd = hdl; 오늘 = 극대[1]; 가속 = af; } if hd[1] == hdl and Var1[1] < Var1 then { hd = hkl; 오늘 = 극저[1]; 가속 = af; } 극저 = min(Var1,극저); 극대 = max(Var1,극대); } //Text_New(sdate,stime,극대,"↑"); //Text_New(sdate,stime,극저,"↓"); if 오늘[1] > 0 then { if hd[1] == hkl then { if Var1 > 내일[1] then { 오늘 = 내일[1]; 극저 = 0; if Var1 > 극대[1] then { 극대 = Var1; 가속 = min(maxAF,가속+af); } } else { hd = hdl; 오늘 = 극대[1]; 극대 = 0; 극저 = Var1; 가속 = af; } } if hd[1] == hdl then { if Var1 < 내일[1] then { 오늘 = 내일[1]; 극대 = 0; if Var1 < 극저[1] then { 극저 = Var1; 가속 = min(maxAF,가속+af); } } else { hd = hkl; 오늘 = 극저[1]; 극저 = 0; 극대 = Var1; 가속 = af; } } } 내일 = (max(극대,극저) - 오늘) * 가속 + 오늘; if var1 > C Then Plot1(var1, "오늘",BLUE); TL_New(sdate[var1],stime[var1],9999999,sdate[var1],stime[var1],0); Else Plot1(var1, "오늘",RED); T L_New(sdate[var1],stime[var1],9999999,sdate[var1],stime[var1],0);