현재 ema 기준 인경우 수직선표시 ema 설정시점 이탈시 기존수직 표시선 삭제 부탁드립니다.
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);
}
답변 1
예스스탁
예스스탁 답변
2022-10-05 16:21:12
안녕하세요
예스스탁입니다.
문의하신 내용이 어떤 의미인지 이해하지 못했습니다.
좀더 자세하고 정확내용으로 올려주시기 바랍니다.
즐거운 하루되세요
> 외국인 님이 쓴 글입니다.
> 제목 : 수정부탁드립니다
> 현재 ema 기준 인경우 수직선표시 ema 설정시점 이탈시 기존수직 표시선 삭제 부탁드립니다.
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);
}