커뮤니티
지표 문의드립니다.
2021-12-08 14:39:28
680
글번호 154299
항상 수고하십니다. 지표 문의드립니다.
현재 당일 고가 / 중심 / 저가 이렇게 나오는대 이 사이에
>> 당일 고가 / 75% / 중심 / 25% 저가 이렇게 수정요청드립니다.
input : 날짜변경시간(090000);
var : date0(0), date1(0), time0(0), time1(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];
time0 = stime;
time1 = time0[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, MAGENTa);
#전일시가
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, MAGENTa);
}
#당일고가
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, MAGENTa);
}
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));
}
Text_delete(TX1);
TX1 = Text_New(NextBarSdate,NextBarStime, HH, " ▶당일고가 : "+Numtostr(HH,2));
Text_SetStyle(TX1, 0, 1);
Text_setColor(TX1, red);
Text_delete(TX2);
TX2 = Text_New(NextBarSdate, NextBarStime, LL, " ▶당일저가 : "+Numtostr(LL,2));
Text_SetStyle(TX2, 0,0);
Text_setColor(TX2, blue);
Text_delete(TX4);
TX4 = Text_New(NextBarSdate, NextBarStime, MM, " ▶당일중심 : "+Numtostr(MM,2));
Text_SetStyle(TX4, 0,0);
Text_setColor(TX4, MAGENTa);
Text_SetLocation(TX11,NextBarSdate,NextBarStime,HH1);
Text_SetLocation(TX12,NextBarSdate,NextBarStime,LL1);
Text_SetLocation(TX13,NextBarSdate,NextBarStime,OO1);
Text_SetLocation(TX3,NextBarSdate,NextBarStime,OO);
Text_SetLocation(TX14,NextBarSdate,NextBarStime,MM1);
답변 1
예스스탁 예스스탁 답변
2021-12-09 09:27:11
안녕하세요
예스스탁입니다.
input : 날짜변경시간(090000);
var : date0(0), date1(0), time0(0), time1(0);
var : HH(0),HH1(0),TX11(0), TX1(0);
var : LL(0),LL1(0),TX12(0), TX2(0);
var : OO(0),OO1(0),TX13(0), TX3(0);
var : MM(0),MM1(0),TX14(0), TX4(0);
var : RR(0),TX5(0),TX6(0);
if (sDate != sDate[1] and stime >= 날짜변경시간) or
(sDate == sDate[1] and sTime >= 날짜변경시간 and sTime[1 ] < 날짜변경시간) then
{
date0 = sdate;
time0 = stime;
date1 = date0[1];
time1 = time0[1];
var8 = TL_New(date0, time0, H, date0, time0, 999999999);
var9 = TL_New(date0, time0, L, date0, time0, 0);
TL_setColor(var8, rgb(200,150,250));
TL_setColor(var9, rgb(200,150,250));
OO = O;
HH = H;
LL = L;
MM = (HH+LL)/2;
RR = HH-LL;
OO1 = OO[1];
HH1 = HH[1];
LL1 = LL[1];
MM1 = (HH1+LL1)/2;
#전일고가
if HH1 > 0 and LL1 > 0 Then
{
TL_Delete(var11);
var11 = TL_New(date1, time1, HH1, date0, time0, HH1);
TL_SetExtRight(var11,true);
TL_SetColor(var11, red);
#전일저가
TL_Delete(var12);
var12 = TL_New(date1, time1, LL1, date0, time0, LL1);
TL_SetExtRight(var12,true);
TL_SetColor(var12, blue);
#전일중심선
TL_Delete(var14);
var14 = TL_New(date1, time1, MM1, date0, time0, MM1);
TL_SetExtRight(var14,true);
TL_SetColor(var14, MAGENTa);
#전일시가
TL_Delete(var13);
var13 = TL_New(date1, time1, OO1, date0, time0, OO1);
TL_SetExtRight(var13,true);
TL_SetColor(var13, 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(TX14);
TX14 = Text_New(sdate, stime, MM1, " ▶전일중심 : "+Numtostr(MM1,2));
Text_SetStyle(TX14, 0, 0);
Text_setColor(TX14, MAGENTA);
}
#당일고가
TL_Delete(var1);
var1 = TL_New(date0, time0, OO,NextBarSdate,NextBarStime, HH);
TL_SetExtRight(var1,true);
TL_SetColor(var1, RED);
#당일저가
TL_Delete(var2);
var2 = TL_New(date0, time0, OO,NextBarSdate,NextBarStime, HH);
TL_SetExtRight(var2,true);
TL_SetColor(var2, BLUE);
#당일시가
TL_Delete(var3);
var3 = TL_New(date0, time0, OO, NextBarSdate, NextBarStime, OO);
TL_SetExtRight(var3,true);
TL_SetColor(var3, BLACK);
#당일중심
TL_Delete(var4);
var4 = TL_New(date0, time0, MM, NextBarSdate, NextBarStime, MM);
TL_SetExtRight(var4,true);
TL_SetColor(var4, MAGENTA);
#75%
TL_Delete(var5);
var5 = TL_New(date0, time0, LL+RR*0.75 , NextBarSdate, NextBarStime, LL+RR*0.75);
TL_SetExtRight(var5,true);
TL_SetColor(var5,LMAGENTA);
#25%
TL_Delete(var6);
var6 = TL_New(date0, time0, LL+RR*0.25 , NextBarSdate, NextBarStime, LL+RR*0.25);
TL_SetExtRight(var6,true);
TL_SetColor(var6, CYAN);
Text_delete(TX1);
TX1 = Text_New(NextBarSdate,NextBarStime, HH, " ▶당일고가 : "+Numtostr(HH,2));
Text_SetStyle(TX1, 0, 1);
Text_setColor(TX1, red);
Text_delete(TX2);
TX2 = Text_New(NextBarSdate, NextBarStime, LL, " ▶당일저가 : "+Numtostr(LL,2));
Text_SetStyle(TX2, 0,0);
Text_setColor(TX2, blue);
Text_delete(TX3);
TX3 = Text_New(NextBarSdate, NextBarStime, OO, " ▶당일시가 : "+Numtostr(OO,2));
Text_SetStyle(TX3, 0, 0);
Text_setColor(TX3, black);
Text_delete(TX4);
TX4 = Text_New(NextBarSdate, NextBarStime, MM, " ▶당일중심 : "+Numtostr(MM,2));
Text_SetStyle(TX4, 0,0);
Text_setColor(TX4, MAGENTa);
Text_delete(TX5);
TX5 = Text_New(NextBarSdate, NextBarStime, MM, " ▶당일75% : "+Numtostr(LL+RR*0.75,2));
Text_SetStyle(TX5, 0,0);
Text_setColor(TX5, LMAGENTA);
Text_delete(TX6);
TX6 = Text_New(NextBarSdate, NextBarStime, MM, " ▶당일25% : "+Numtostr(LL+RR*0.25,2));
Text_SetStyle(TX6, 0,0);
Text_setColor(TX6, CYAN);
}
Else
{
if H > HH Then
HH = H;
if L < LL Then
LL = L;
MM = (HH+LL)/2;
RR = HH-LL;
if HH != HH[1] or LL != LL[1] Then
{
TL_SetBegin(var1,date0,time0,HH);
TL_SetEnd(var1,sDate,sTime,HH);
TL_SetBegin(var2,date0,time0,LL);
TL_SetEnd(var2,sDate,sTime,LL);
TL_SetBegin(var4,date0,time0,MM);
TL_SetEnd(var4,sDate,sTime,MM);
TL_SetBegin(var5,date0,time0,LL+RR*0.75);
TL_SetEnd(var5,sDate,sTime,LL+RR*0.75);
TL_SetBegin(var6,date0,time0,LL+RR*0.25);
TL_SetEnd(var6,sDate,sTime,LL+RR*0.25);
Text_SetString(Tx1,"▶당일고가 : "+Numtostr(HH,2));
Text_SetString(Tx2,"▶당일저가 : "+Numtostr(LL,2));
Text_SetString(Tx4,"▶당일중심 : "+Numtostr(MM,2));
Text_SetString(Tx5,"▶당일75% : "+Numtostr(LL+RR*0.75,2));
Text_SetString(Tx6,"▶당일25% : "+Numtostr(LL+RR*0.25,2));
}
Text_SetLocation(TX11,NextBarSdate,NextBarStime,HH1);
Text_SetLocation(TX12,NextBarSdate,NextBarStime,LL1);
Text_SetLocation(TX13,NextBarSdate,NextBarStime,OO1);
Text_SetLocation(TX14,NextBarSdate,NextBarStime,MM1);
Text_SetLocation(TX1,NextBarSdate,NextBarStime,HH);
Text_SetLocation(TX2,NextBarSdate,NextBarStime,LL);
Text_SetLocation(TX3,NextBarSdate,NextBarStime,OO);
Text_SetLocation(TX4,NextBarSdate,NextBarStime,MM);
Text_SetLocation(TX5,NextBarSdate,NextBarStime,LL+RR*0.75);
Text_SetLocation(TX6,NextBarSdate,NextBarStime,LL+RR*0.25);
}
즐거운 하루되세요
> 루민이 님이 쓴 글입니다.
> 제목 : 지표 문의드립니다.
> 항상 수고하십니다. 지표 문의드립니다.
현재 당일 고가 / 중심 / 저가 이렇게 나오는대 이 사이에
>> 당일 고가 / 75% / 중심 / 25% 저가 이렇게 수정요청드립니다.
input : 날짜변경시간(090000);
var : date0(0), date1(0), time0(0), time1(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];
time0 = stime;
time1 = time0[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, MAGENTa);
#전일시가
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, MAGENTa);
}
#당일고가
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, MAGENTa);
}
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));
}
Text_delete(TX1);
TX1 = Text_New(NextBarSdate,NextBarStime, HH, " ▶당일고가 : "+Numtostr(HH,2));
Text_SetStyle(TX1, 0, 1);
Text_setColor(TX1, red);
Text_delete(TX2);
TX2 = Text_New(NextBarSdate, NextBarStime, LL, " ▶당일저가 : "+Numtostr(LL,2));
Text_SetStyle(TX2, 0,0);
Text_setColor(TX2, blue);
Text_delete(TX4);
TX4 = Text_New(NextBarSdate, NextBarStime, MM, " ▶당일중심 : "+Numtostr(MM,2));
Text_SetStyle(TX4, 0,0);
Text_setColor(TX4, MAGENTa);
Text_SetLocation(TX11,NextBarSdate,NextBarStime,HH1);
Text_SetLocation(TX12,NextBarSdate,NextBarStime,LL1);
Text_SetLocation(TX13,NextBarSdate,NextBarStime,OO1);
Text_SetLocation(TX3,NextBarSdate,NextBarStime,OO);
Text_SetLocation(TX14,NextBarSdate,NextBarStime,MM1);
다음글
이전글