커뮤니티
문의
2022-10-21 13:18:47
1285
글번호 163187
이수식을 갭보정을하더라도 갭보정하지 않는 원래값으로 나타나게 부탁드립니다
Var : Pv(0),R1(0),R2(0),S1(0),S2(0);
var : dh(0),dh1(0),dl(0),dl1(0),dc(0),dc1(0);
if Bdate != Bdate[1] Then
{
dh = h;
dl = l;
dc1 = dc[1];
dh1 = dh[1];
dl1 = dl[1];
}
if h > dh Then
dh = h;
if l < dl Then
dl = l;
dc = c;
if dh1 > 0 and dl1 > 0 Then
{
Pv = (dh1+dl1+dc1)/3;
R1 = 2*Pv-dl1;
R2 = Pv+dh1-dl1;
S1 = 2*Pv-dh1;
S2 = Pv-dh1+dl1;
Plot1(Pv, "피봇포인트");
Plot2(R1, "1차저항");
Plot3(R2, "2차저항");
Plot4(S1, "1차지지");
Plot5(S2, "2차지지");
var : tx1(0),tx2(0),tx3(0),tx4(0),tx5(0);
Text_Delete(tx1);
Text_Delete(tx2);
Text_Delete(tx3);
Text_Delete(tx4);
Text_Delete(tx5);
tx1 = Text_New(NextBarSdate,NextBarStime,Pv,"피봇중심:"+NumToStr(pv,2));
tx2 = Text_New(NextBarSdate,NextBarStime,R1,"1차저항:"+NumToStr(R1,2));
tx3 = Text_New(NextBarSdate,NextBarStime,R2,"2차저항:"+NumToStr(R2,2));
tx4 = Text_New(NextBarSdate,NextBarStime,S1,"1차지지:"+NumToStr(S1,2));
tx5 = Text_New(NextBarSdate,NextBarStime,S2,"2차지지:"+NumToStr(S2,2));
Text_SetStyle(tx1,0,1);
Text_SetStyle(tx2,0,1);
Text_SetStyle(tx3,0,1);
Text_SetStyle(tx4,0,1);
Text_SetStyle(tx5,0,1);
}
답변 2
예스스탁 예스스탁 답변
2022-10-21 16:53:06
안녕하세요
예스스탁입니다.
기존식은 차트봉으로 일봉값을 계산합니다.
DayHigh,daylow,dayclose함수가 차트에 내장된 일봉데이타에서
직접 값을 가져오므로 차트 갭보정과 관계없이 갭보정되지 않은
일봉값을 이용하게 됩니다.
Var : Pv(0),R1(0),R2(0),S1(0),S2(0);
Pv = (DayHigh(1)+DayLow(1)+DayClose(1))/3;
R1 = 2*Pv-DayLow(1);
R2 = Pv+DayHigh(1)-DayLow(1);
S1 = 2*Pv-DayHigh(1);
S2 = Pv-DayHigh(1)+DayLow(1);
Plot1(Pv, "피봇포인트");
Plot2(R1, "1차저항");
Plot3(R2, "2차저항");
Plot4(S1, "1차지지");
Plot5(S2, "2차지지");
var : tx1(0),tx2(0),tx3(0),tx4(0),tx5(0);
Text_Delete(tx1);
Text_Delete(tx2);
Text_Delete(tx3);
Text_Delete(tx4);
Text_Delete(tx5);
tx1 = Text_New(NextBarSdate,NextBarStime,Pv,"피봇중심:"+NumToStr(pv,2));
tx2 = Text_New(NextBarSdate,NextBarStime,R1,"1차저항:"+NumToStr(R1,2));
tx3 = Text_New(NextBarSdate,NextBarStime,R2,"2차저항:"+NumToStr(R2,2));
tx4 = Text_New(NextBarSdate,NextBarStime,S1,"1차지지:"+NumToStr(S1,2));
tx5 = Text_New(NextBarSdate,NextBarStime,S2,"2차지지:"+NumToStr(S2,2));
Text_SetStyle(tx1,0,1);
Text_SetStyle(tx2,0,1);
Text_SetStyle(tx3,0,1);
Text_SetStyle(tx4,0,1);
Text_SetStyle(tx5,0,1);
즐거운 하루되세요
> 레전드 님이 쓴 글입니다.
> 제목 : 문의
> 이수식을 갭보정을하더라도 갭보정하지 않는 원래값으로 나타나게 부탁드립니다
Var : Pv(0),R1(0),R2(0),S1(0),S2(0);
var : dh(0),dh1(0),dl(0),dl1(0),dc(0),dc1(0);
if Bdate != Bdate[1] Then
{
dh = h;
dl = l;
dc1 = dc[1];
dh1 = dh[1];
dl1 = dl[1];
}
if h > dh Then
dh = h;
if l < dl Then
dl = l;
dc = c;
if dh1 > 0 and dl1 > 0 Then
{
Pv = (dh1+dl1+dc1)/3;
R1 = 2*Pv-dl1;
R2 = Pv+dh1-dl1;
S1 = 2*Pv-dh1;
S2 = Pv-dh1+dl1;
Plot1(Pv, "피봇포인트");
Plot2(R1, "1차저항");
Plot3(R2, "2차저항");
Plot4(S1, "1차지지");
Plot5(S2, "2차지지");
var : tx1(0),tx2(0),tx3(0),tx4(0),tx5(0);
Text_Delete(tx1);
Text_Delete(tx2);
Text_Delete(tx3);
Text_Delete(tx4);
Text_Delete(tx5);
tx1 = Text_New(NextBarSdate,NextBarStime,Pv,"피봇중심:"+NumToStr(pv,2));
tx2 = Text_New(NextBarSdate,NextBarStime,R1,"1차저항:"+NumToStr(R1,2));
tx3 = Text_New(NextBarSdate,NextBarStime,R2,"2차저항:"+NumToStr(R2,2));
tx4 = Text_New(NextBarSdate,NextBarStime,S1,"1차지지:"+NumToStr(S1,2));
tx5 = Text_New(NextBarSdate,NextBarStime,S2,"2차지지:"+NumToStr(S2,2));
Text_SetStyle(tx1,0,1);
Text_SetStyle(tx2,0,1);
Text_SetStyle(tx3,0,1);
Text_SetStyle(tx4,0,1);
Text_SetStyle(tx5,0,1);
}
레전드
2022-10-21 19:38:07
위에거는 갭보정안한것,아래그림은 갭보정 한것.다르게 나옵니다. 참고로 키움은 자체내 피붓이 있는데 한거나,안한거나 같은값이 나옵니다