커뮤니티
수정부탁드립니다
2023-01-28 16:07:54
896
글번호 165788
수직선수정부탁드립니다.
Input:af(0.02),maxAF(0.25),선크기(0.5);
Var:오늘(0),극대(0),극저(0),가속(0),내일(0),추세(0),상승(1),하락(-1),hTL2(0);
//---------------------------------------------------------------------------------
Var1 = Ema(C,1.5);
if Var1 > 0 and
극대 == 0 and 극저 == 0 then {
극대 = Var1; 극저 = Var1;
}
if Var1 > 0 and
오늘[1] == 0 then {
if 추세[1] == 0 then {
if Var1[1] < Var1 then 추세 = 상승;
if Var1[1] > Var1 then 추세 = 하락;
}
if 추세[1] == 상승 and Var1[1] > Var1 then {
추세 = 하락;
오늘 = 극대[1];
가속 = af;
}
if 추세[1] == 하락 and Var1[1] < Var1 then {
추세 = 상승;
오늘 = 극저[1];
가속 = af;
}
극저 = min(Var1,극저);
극대 = max(Var1,극대);
}
if 오늘[1] > 0 then {
if 추세[1] == 상승 then {
if Var1 > 내일[1] then {
오늘 = 내일[1];
극저 = 0;
if Var1 > 극대[1] then {
극대 = Var1;
가속 = min(maxAF,가속+af);
}
}
else {
추세 = 하락;
오늘 = 극대[1];
극대 = 0;
극저 = Var1;
가속 = af;
hTL2 = TL_New(극대,극저,가속,sDate,sTime,99999999); //99999999상부쪽직선
TL_SetSize(hTL2, 선크기);
TL_SetColor(hTL2,Lime);
}
}
if 추세[1] == 하락 then {
if Var1 < 내일[1] then {
오늘 = 내일[1];
극대 = 0;
if Var1 < 극저[1] then {
극저 = Var1;
가속 = min(maxAF,가속+af);
}
}
else {
추세 = 상승;
오늘 = 극저[1];
극저 = 0;
극대 = Var1;
가속 = af;
hTL2 = TL_New(극저,극대,가속,sDate,sTime,0); //0하부쪽직선
TL_SetSize(hTL2, 선크기);
TL_SetColor(hTL2,Magenta);
}
}
}
내일 = (max(극대,극저) - 오늘) * 가속 + 오늘;
답변 1
예스스탁 예스스탁 답변
2023-01-30 13:40:44
안녕하세요
예스스탁입니다.
추세선 함수의 첫번째와 두번째 매개변수는 날짜와 시간입니다.
Input:af(0.02),maxAF(0.25),선크기(0.5);
Var:오늘(0),극대(0),극저(0),가속(0),내일(0),추세(0),상승(1),하락(-1),hTL2(0);
//---------------------------------------------------------------------------------
Var1 = Ema(C,1.5);
if Var1 > 0 and
극대 == 0 and 극저 == 0 then {
극대 = Var1; 극저 = Var1;
}
if Var1 > 0 and
오늘[1] == 0 then {
if 추세[1] == 0 then {
if Var1[1] < Var1 then 추세 = 상승;
if Var1[1] > Var1 then 추세 = 하락;
}
if 추세[1] == 상승 and Var1[1] > Var1 then {
추세 = 하락;
오늘 = 극대[1];
가속 = af;
}
if 추세[1] == 하락 and Var1[1] < Var1 then {
추세 = 상승;
오늘 = 극저[1];
가속 = af;
}
극저 = min(Var1,극저);
극대 = max(Var1,극대);
}
if 오늘[1] > 0 then
{
if 추세[1] == 상승 then
{
if Var1 > 내일[1] then
{
오늘 = 내일[1];
극저 = 0;
if Var1 > 극대[1] then
{
극대 = Var1;
가속 = min(maxAF,가속+af);
}
}
else
{
추세 = 하락;
오늘 = 극대[1];
극대 = 0;
극저 = Var1;
가속 = af;
hTL2 = TL_New(sDate,stime,H,sDate,sTime,99999999); //99999999상부쪽직선
TL_SetSize(hTL2, 선크기);
TL_SetColor(hTL2,Lime);
}
}
if 추세[1] == 하락 then {
if Var1 < 내일[1] then {
오늘 = 내일[1];
극대 = 0;
if Var1 < 극저[1] then {
극저 = Var1;
가속 = min(maxAF,가속+af);
}
}
else {
추세 = 상승;
오늘 = 극저[1];
극저 = 0;
극대 = Var1;
가속 = af;
hTL2 = TL_New(sDate,sTime,L,sDate,sTime,0); //0하부쪽직선
TL_SetSize(hTL2, 선크기);
TL_SetColor(hTL2,Magenta);
}
}
}
내일 = (max(극대,극저) - 오늘) * 가속 + 오늘;
Plot1(가속);
즐거운 하루되세요
> 외국인 님이 쓴 글입니다.
> 제목 : 수정부탁드립니다
>
수직선수정부탁드립니다.
Input:af(0.02),maxAF(0.25),선크기(0.5);
Var:오늘(0),극대(0),극저(0),가속(0),내일(0),추세(0),상승(1),하락(-1),hTL2(0);
//---------------------------------------------------------------------------------
Var1 = Ema(C,1.5);
if Var1 > 0 and
극대 == 0 and 극저 == 0 then {
극대 = Var1; 극저 = Var1;
}
if Var1 > 0 and
오늘[1] == 0 then {
if 추세[1] == 0 then {
if Var1[1] < Var1 then 추세 = 상승;
if Var1[1] > Var1 then 추세 = 하락;
}
if 추세[1] == 상승 and Var1[1] > Var1 then {
추세 = 하락;
오늘 = 극대[1];
가속 = af;
}
if 추세[1] == 하락 and Var1[1] < Var1 then {
추세 = 상승;
오늘 = 극저[1];
가속 = af;
}
극저 = min(Var1,극저);
극대 = max(Var1,극대);
}
if 오늘[1] > 0 then {
if 추세[1] == 상승 then {
if Var1 > 내일[1] then {
오늘 = 내일[1];
극저 = 0;
if Var1 > 극대[1] then {
극대 = Var1;
가속 = min(maxAF,가속+af);
}
}
else {
추세 = 하락;
오늘 = 극대[1];
극대 = 0;
극저 = Var1;
가속 = af;
hTL2 = TL_New(극대,극저,가속,sDate,sTime,99999999); //99999999상부쪽직선
TL_SetSize(hTL2, 선크기);
TL_SetColor(hTL2,Lime);
}
}
if 추세[1] == 하락 then {
if Var1 < 내일[1] then {
오늘 = 내일[1];
극대 = 0;
if Var1 < 극저[1] then {
극저 = Var1;
가속 = min(maxAF,가속+af);
}
}
else {
추세 = 상승;
오늘 = 극저[1];
극저 = 0;
극대 = Var1;
가속 = af;
hTL2 = TL_New(극저,극대,가속,sDate,sTime,0); //0하부쪽직선
TL_SetSize(hTL2, 선크기);
TL_SetColor(hTL2,Magenta);
}
}
}
내일 = (max(극대,극저) - 오늘) * 가속 + 오늘;