커뮤니티
수식 수정 의뢰 합니다!
2019-03-07 13:00:01
253
글번호 126829
어제 만들어 주신 수식을 적용해 보니까 어제 국선의 전일저가는 279.25 인데
예스에선 전일 저가가 280.05 로 선이 나타납니다!
무슨 문제인지 다시 한번 확인 부탁드립니다.
input : 날짜변경시간(090000);
var : date0(0), date1(0), time0(0), time1(0),date2(0),time2(0);
var : HH(0),HH1(0), Hdate(0),Htime(0),Hdate1(0), Htime1(0), TX11(0), TX1(0);
var : LL(0),LL1(0), Ldate(0),Ltime(0),Ldate1(0), Ltime1(0), TX12(0), TX2(0);
var : OO(0),OO1(0), Odate(0),Otime(0),Odate1(0), Otime1(0), TX13(0), TX3(0);
var : MM(0),MM1(0), Mdate(0),Mtime(0),Mdate1(0), Mtime1(0), TX14(0), TX4(0);
if stime == 날짜변경시간 then {
date0 = sdate;
date1 = date0[1];
date2 = date1[1];
time0 = stime;
time1 = time0[1];
time2 = time1[1];
#전일고가
HH = H;
HH1 = HH[1];
TL_Delete(var11);
var11 = TL_New(date1, time1, HH1, date0, time0, HH1);
TL_SetExtRight(var11,true);
TL_SetColor(var11, red);
#전일저가
LL = L;
LL1 = LL[1];
TL_Delete(var12);
var12 = TL_New(date1, time1, LL1, date0, time0, LL1);
TL_SetExtRight(var12,true);
TL_SetColor(var12, blue);
#전일중심선
MM1 = (HH1+LL1)/2;
Mdate1 = Mdate[1];
Mtime1 = Mtime[1];
TL_Delete(var14);
var14 = TL_New(date1, time1, MM1, date0, time0, MM1);
TL_SetExtRight(var14,true);
TL_SetColor(var14, rgb(255,128,255));
#전일시가
OO = O;
OO1 = OO[1];
Odate1 = Odate[1];
Otime1 = Otime[1];
TL_Delete(var13);
var13 = TL_New(date1, time1, OO1, date0, time0, OO1);
TL_SetExtRight(var13,true);
TL_SetColor(var13, black);
#당일시가
TL_Delete(var3);
var3 = TL_New(sdate[1], stime[1], OO, date0, time0, OO);
TL_SetExtRight(var3,true);
TL_SetColor(var3, black);
Text_delete(TX11);
TX11 = Text_New(sdate, stime, HH1, "▶전일고가 : "+Numtostr(HH1,2));
Text_SetStyle(TX11, 0, 1);
Text_setColor(TX11, red);
Text_delete(TX12);
TX12 = Text_New(sdate, stime, LL1, "▶전일저가 : "+Numtostr(LL1,2));
Text_SetStyle(TX12, 0, 0);
Text_setColor(TX12, blue);
Text_delete(TX13);
TX13 = Text_New(sdate, stime, OO1, "▶전일시가 : "+Numtostr(OO1,2));
Text_SetStyle(TX13, 0, 0);
Text_setColor(TX13, black);
Text_delete(TX3);
TX3 = Text_New(sdate, stime, OO, "▶당일시가 : "+Numtostr(OO,2));
Text_SetStyle(TX3, 0, 0);
Text_setColor(TX3, black);
Text_delete(TX14);
TX14 = Text_New(sdate, stime, MM1, "▶전일중심 : "+Numtostr(MM1,2));
Text_SetStyle(TX14, 0, 0);
Text_setColor(TX14, rgb(255,128,255));
}
#당일고가
if stime <> 날짜변경시간 and H[1] >= HH then {
HH = H[1];
Hdate = sdate[1];
Htime = stime[1];
TL_Delete(var1);
var1 = TL_New(date0, time0, HH, sdate, stime, HH);
TL_SetExtRight(var1,true);
TL_SetColor(var1, red);
}
#당일저가
if stime <> 날짜변경시간 and L[1] <= LL then {
LL = L[1];
Ldate = sdate[1];
Ltime = stime[1];
TL_Delete(var2);
var2 = TL_New(date0, time0, LL, sdate, stime, LL);
TL_SetExtRight(var2,true);
TL_SetColor(var2, blue);
}
#당일중심
if stime <> 날짜변경시간 then {
MM = (HH+LL)/2;
TL_Delete(var4);
var4 = TL_New(date0, time0, MM, sdate, stime, MM);
TL_SetExtRight(var4,true);
TL_SetColor(var4, rgb(255,128,255));
}
Text_delete(TX1);
TX1 = Text_New(date0, time0, HH, "▶당일고가 : "+Numtostr(HH,2));
Text_SetStyle(TX1, 0, 1);
Text_setColor(TX1, red);
Text_delete(TX2);
TX2 = Text_New(date0, time0, LL, "▶당일저가 : "+Numtostr(LL,2));
Text_SetStyle(TX2, 0,0);
Text_setColor(TX2, blue);
Text_delete(TX4);
TX4 = Text_New(date0, time0, MM, "▶당일중심 : "+Numtostr(MM,2));
Text_SetStyle(TX4, 0,0);
Text_setColor(TX4, rgb(255,128,255));
if stime == 날짜변경시간 then {
var8 = TL_New(sdate, stime, H, sdate, stime, 999999999);
var9 = TL_New(sdate, stime, L, sdate, stime, 0);
TL_setColor(var8, rgb(200,150,250));
TL_setColor(var9, rgb(200,150,250));
}
var : TL21(0),Tx21(0);
var : TL22(0),Tx22(0);
if stime == 날짜변경시간 then
{
TL_Delete(TL21);
TL21 = TL_New(date2,time2,DayHigh(2),sdate,stime,dayhigh(2));
TL_SetExtRight(TL21,true);
Text_Delete(tx21);
tx21 = Text_New(sdate,stime,DayHigh(2), "▶전전일고가 : "+Numtostr(DayHigh(2),2));
Text_SetStyle(tx21,0,1);
TL_Delete(TL22);
TL22 = TL_New(date2,time2,DayLow(2),sdate,stime,daylow(2));
TL_SetExtRight(TL22,true);
Text_Delete(tx22);
tx22 = Text_New(sdate,stime,Daylow(2), "▶전전일저가 : "+Numtostr(Daylow(2),2));
Text_SetStyle(tx22,0,1);
}
Var : nday1(0),week1(0),cond1(false),D1(0),val1(0),T1(0);
var : hv(0),lv(0),L1(0);
var : TL31(0),TL41(0),TL51(0);
var : Tx31(0),Tx41(0),Tx51(0);
nday1 = Date - Int(Date/100)*100;
week1 = DayOfWeek(Date);
If nday1 >= 8 And nday1 <= 14 And week1 == 4 Then
Cond1 = true;
Else
Cond1 = false;
if date != date[1] and cond1 == false and cond1[1] == true Then
{
D1 = sdate;
T1 = stime;
Hv = H;
Lv = L;
L1 = L;
TL_Delete(TL31);
TL_Delete(TL41);
TL_Delete(TL51);
TL31 = TL_New(sdate[1],stime[1],L1,sdate,stime,L1);
TL41 = TL_New(sdate[1],stime[1],Hv,sdate,stime,Hv);
TL51 = TL_New(sdate[1],stime[1],Lv,sdate,stime,Lv);
TL_SetExtRight(TL31,true);
TL_SetExtRight(TL41,true);
TL_SetExtRight(TL51,true);
}
if sdate == D1 Then
{
if L < L1 Then
{
L1 = L;
TL_SetBegin(TL31,D1,T1,L1);
TL_Setend(TL31,sdate,stime,L1);
TL_SetExtRight(TL31,true);
}
}
if sdate >= D1 then
{
if H > hv Then
{
hv = h;
TL_SetBegin(TL41,D1,T1,Hv);
TL_Setend(TL41,sdate,stime,Hv);
TL_SetExtRight(TL41,true);
}
if L < Lv Then
{
Lv = L;
TL_SetBegin(TL51,D1,T1,Lv);
TL_Setend(TL51,sdate,stime,Lv);
TL_SetExtRight(TL51,true);
}
}
Text_delete(TX31);
TX31 = Text_New(date0, time0, L1, "▶기준가 : "+Numtostr(L1,2));
Text_SetStyle(TX31, 0, 1);
Text_delete(TX41);
TX41 = Text_New(date0, time0, Hv, "▶월고 : "+Numtostr(Hv,2));
Text_SetStyle(TX41, 0,0);
Text_delete(TX51);
TX51 = Text_New(date0, time0, Lv, "▶월저 : "+Numtostr(Lv,2));
Text_SetStyle(TX51, 0,0);
------------------------------------------------------------------------------
아래는 파동에 대한 정의입니다.
위의 만들어주신 수식처럼 가격선 이름과 라인이 장이 시작되면 자동으로 생성되도록 만들어 주시길 부탁드립니다.
(예) 하락E선, 하락평균선 등등...
장이 시작되면 하락E선 / 하락평균선 / 하락N선 / 하락V선 / 하락VT선 (5개)
상승E선 / 상승평균선 / 상승N선 / 상승V선 / 상승VT선 (5개)이 생성되게 해주세요!
(B2) 전고
(B3) 전저
(B4) 전종
-----------------------------------------------------
(B6) 하락E선 = (B3-B2)+B3
(B7) 하락평균선 =(B8+B6+B9+B10)/4
(B7) 하락N선 = (B3-B2)+B4
(B8) 하락V선 = (B3-B4)+B3
(B9) 하락VT선 = (B3-B4)+B4
(C6) 상승E선 = (B2-B3)+B2
(C7) 상승평균선 =(C8+C6+C9+C10)/4
(C7) 상승N선 = (B2-B3)+B4
(C8) 상승V선 = (B2-B4)+B2
(C9) 상승VT선 = (B2-B4)+B4
--------------------------------------------------------------------
답변 1
예스스탁 예스스탁 답변
2019-03-07 16:37:07
안녕하세요
예스스타입니다.
1
기존 수식에 하단에
전전일 고가,전전일 저가,기준가,월고, 월저만 추가해 드렸습니다.
전일저가는 기존 올려주신 수식 그대로이고
차트에 적용해 보니 279.25로 표시되고 있습니다
2
전고,전저,전종이 어떤 값인지 불명확합니다.
또한 계산식에 B10,C10이 있는데 해당 값에 대한 정의가 없습니다.
즐거운 하루되세요
> qha71 님이 쓴 글입니다.
> 제목 : 수식 수정 의뢰 합니다!
> 어제 만들어 주신 수식을 적용해 보니까 어제 국선의 전일저가는 279.25 인데
예스에선 전일 저가가 280.05 로 선이 나타납니다!
무슨 문제인지 다시 한번 확인 부탁드립니다.
input : 날짜변경시간(090000);
var : date0(0), date1(0), time0(0), time1(0),date2(0),time2(0);
var : HH(0),HH1(0), Hdate(0),Htime(0),Hdate1(0), Htime1(0), TX11(0), TX1(0);
var : LL(0),LL1(0), Ldate(0),Ltime(0),Ldate1(0), Ltime1(0), TX12(0), TX2(0);
var : OO(0),OO1(0), Odate(0),Otime(0),Odate1(0), Otime1(0), TX13(0), TX3(0);
var : MM(0),MM1(0), Mdate(0),Mtime(0),Mdate1(0), Mtime1(0), TX14(0), TX4(0);
if stime == 날짜변경시간 then {
date0 = sdate;
date1 = date0[1];
date2 = date1[1];
time0 = stime;
time1 = time0[1];
time2 = time1[1];
#전일고가
HH = H;
HH1 = HH[1];
TL_Delete(var11);
var11 = TL_New(date1, time1, HH1, date0, time0, HH1);
TL_SetExtRight(var11,true);
TL_SetColor(var11, red);
#전일저가
LL = L;
LL1 = LL[1];
TL_Delete(var12);
var12 = TL_New(date1, time1, LL1, date0, time0, LL1);
TL_SetExtRight(var12,true);
TL_SetColor(var12, blue);
#전일중심선
MM1 = (HH1+LL1)/2;
Mdate1 = Mdate[1];
Mtime1 = Mtime[1];
TL_Delete(var14);
var14 = TL_New(date1, time1, MM1, date0, time0, MM1);
TL_SetExtRight(var14,true);
TL_SetColor(var14, rgb(255,128,255));
#전일시가
OO = O;
OO1 = OO[1];
Odate1 = Odate[1];
Otime1 = Otime[1];
TL_Delete(var13);
var13 = TL_New(date1, time1, OO1, date0, time0, OO1);
TL_SetExtRight(var13,true);
TL_SetColor(var13, black);
#당일시가
TL_Delete(var3);
var3 = TL_New(sdate[1], stime[1], OO, date0, time0, OO);
TL_SetExtRight(var3,true);
TL_SetColor(var3, black);
Text_delete(TX11);
TX11 = Text_New(sdate, stime, HH1, "▶전일고가 : "+Numtostr(HH1,2));
Text_SetStyle(TX11, 0, 1);
Text_setColor(TX11, red);
Text_delete(TX12);
TX12 = Text_New(sdate, stime, LL1, "▶전일저가 : "+Numtostr(LL1,2));
Text_SetStyle(TX12, 0, 0);
Text_setColor(TX12, blue);
Text_delete(TX13);
TX13 = Text_New(sdate, stime, OO1, "▶전일시가 : "+Numtostr(OO1,2));
Text_SetStyle(TX13, 0, 0);
Text_setColor(TX13, black);
Text_delete(TX3);
TX3 = Text_New(sdate, stime, OO, "▶당일시가 : "+Numtostr(OO,2));
Text_SetStyle(TX3, 0, 0);
Text_setColor(TX3, black);
Text_delete(TX14);
TX14 = Text_New(sdate, stime, MM1, "▶전일중심 : "+Numtostr(MM1,2));
Text_SetStyle(TX14, 0, 0);
Text_setColor(TX14, rgb(255,128,255));
}
#당일고가
if stime <> 날짜변경시간 and H[1] >= HH then {
HH = H[1];
Hdate = sdate[1];
Htime = stime[1];
TL_Delete(var1);
var1 = TL_New(date0, time0, HH, sdate, stime, HH);
TL_SetExtRight(var1,true);
TL_SetColor(var1, red);
}
#당일저가
if stime <> 날짜변경시간 and L[1] <= LL then {
LL = L[1];
Ldate = sdate[1];
Ltime = stime[1];
TL_Delete(var2);
var2 = TL_New(date0, time0, LL, sdate, stime, LL);
TL_SetExtRight(var2,true);
TL_SetColor(var2, blue);
}
#당일중심
if stime <> 날짜변경시간 then {
MM = (HH+LL)/2;
TL_Delete(var4);
var4 = TL_New(date0, time0, MM, sdate, stime, MM);
TL_SetExtRight(var4,true);
TL_SetColor(var4, rgb(255,128,255));
}
Text_delete(TX1);
TX1 = Text_New(date0, time0, HH, "▶당일고가 : "+Numtostr(HH,2));
Text_SetStyle(TX1, 0, 1);
Text_setColor(TX1, red);
Text_delete(TX2);
TX2 = Text_New(date0, time0, LL, "▶당일저가 : "+Numtostr(LL,2));
Text_SetStyle(TX2, 0,0);
Text_setColor(TX2, blue);
Text_delete(TX4);
TX4 = Text_New(date0, time0, MM, "▶당일중심 : "+Numtostr(MM,2));
Text_SetStyle(TX4, 0,0);
Text_setColor(TX4, rgb(255,128,255));
if stime == 날짜변경시간 then {
var8 = TL_New(sdate, stime, H, sdate, stime, 999999999);
var9 = TL_New(sdate, stime, L, sdate, stime, 0);
TL_setColor(var8, rgb(200,150,250));
TL_setColor(var9, rgb(200,150,250));
}
var : TL21(0),Tx21(0);
var : TL22(0),Tx22(0);
if stime == 날짜변경시간 then
{
TL_Delete(TL21);
TL21 = TL_New(date2,time2,DayHigh(2),sdate,stime,dayhigh(2));
TL_SetExtRight(TL21,true);
Text_Delete(tx21);
tx21 = Text_New(sdate,stime,DayHigh(2), "▶전전일고가 : "+Numtostr(DayHigh(2),2));
Text_SetStyle(tx21,0,1);
TL_Delete(TL22);
TL22 = TL_New(date2,time2,DayLow(2),sdate,stime,daylow(2));
TL_SetExtRight(TL22,true);
Text_Delete(tx22);
tx22 = Text_New(sdate,stime,Daylow(2), "▶전전일저가 : "+Numtostr(Daylow(2),2));
Text_SetStyle(tx22,0,1);
}
Var : nday1(0),week1(0),cond1(false),D1(0),val1(0),T1(0);
var : hv(0),lv(0),L1(0);
var : TL31(0),TL41(0),TL51(0);
var : Tx31(0),Tx41(0),Tx51(0);
nday1 = Date - Int(Date/100)*100;
week1 = DayOfWeek(Date);
If nday1 >= 8 And nday1 <= 14 And week1 == 4 Then
Cond1 = true;
Else
Cond1 = false;
if date != date[1] and cond1 == false and cond1[1] == true Then
{
D1 = sdate;
T1 = stime;
Hv = H;
Lv = L;
L1 = L;
TL_Delete(TL31);
TL_Delete(TL41);
TL_Delete(TL51);
TL31 = TL_New(sdate[1],stime[1],L1,sdate,stime,L1);
TL41 = TL_New(sdate[1],stime[1],Hv,sdate,stime,Hv);
TL51 = TL_New(sdate[1],stime[1],Lv,sdate,stime,Lv);
TL_SetExtRight(TL31,true);
TL_SetExtRight(TL41,true);
TL_SetExtRight(TL51,true);
}
if sdate == D1 Then
{
if L < L1 Then
{
L1 = L;
TL_SetBegin(TL31,D1,T1,L1);
TL_Setend(TL31,sdate,stime,L1);
TL_SetExtRight(TL31,true);
}
}
if sdate >= D1 then
{
if H > hv Then
{
hv = h;
TL_SetBegin(TL41,D1,T1,Hv);
TL_Setend(TL41,sdate,stime,Hv);
TL_SetExtRight(TL41,true);
}
if L < Lv Then
{
Lv = L;
TL_SetBegin(TL51,D1,T1,Lv);
TL_Setend(TL51,sdate,stime,Lv);
TL_SetExtRight(TL51,true);
}
}
Text_delete(TX31);
TX31 = Text_New(date0, time0, L1, "▶기준가 : "+Numtostr(L1,2));
Text_SetStyle(TX31, 0, 1);
Text_delete(TX41);
TX41 = Text_New(date0, time0, Hv, "▶월고 : "+Numtostr(Hv,2));
Text_SetStyle(TX41, 0,0);
Text_delete(TX51);
TX51 = Text_New(date0, time0, Lv, "▶월저 : "+Numtostr(Lv,2));
Text_SetStyle(TX51, 0,0);
------------------------------------------------------------------------------
아래는 파동에 대한 정의입니다.
위의 만들어주신 수식처럼 가격선 이름과 라인이 장이 시작되면 자동으로 생성되도록 만들어 주시길 부탁드립니다.
(예) 하락E선, 하락평균선 등등...
장이 시작되면 하락E선 / 하락평균선 / 하락N선 / 하락V선 / 하락VT선 (5개)
상승E선 / 상승평균선 / 상승N선 / 상승V선 / 상승VT선 (5개)이 생성되게 해주세요!
(B2) 전고
(B3) 전저
(B4) 전종
-----------------------------------------------------
(B6) 하락E선 = (B3-B2)+B3
(B7) 하락평균선 =(B8+B6+B9+B10)/4
(B7) 하락N선 = (B3-B2)+B4
(B8) 하락V선 = (B3-B4)+B3
(B9) 하락VT선 = (B3-B4)+B4
(C6) 상승E선 = (B2-B3)+B2
(C7) 상승평균선 =(C8+C6+C9+C10)/4
(C7) 상승N선 = (B2-B3)+B4
(C8) 상승V선 = (B2-B4)+B2
(C9) 상승VT선 = (B2-B4)+B4
--------------------------------------------------------------------
다음글