커뮤니티
문의
2020-05-25 00:53:14
2370
글번호 139132
첨부 이미지
그림1
A의 하단에서 상단까지 길이를 B의 하단 263.25에서 더하면 263.25+0.3=263.55에 선이 나오도록하고,C의 상단 263.65에서 B의 폭 0.15를 빼면 263.50에 선이 나오도록하고 ,E의 하단 263.45에서 C의 폭을 더하면 263.85에 선이 나오도록 부탁드립니다. 그리고 각선마다 숫자가 나오도록 부탁드립니다.
수식은 아래식을 참조했습니다.
input : 소숫점자리(2);
var : xClose(0),xOpen(0),xHigh(0),xLow(0),t(0),cnt(0),h1(0),l1(0);
var : HH(0),HD(0),HT(0);
var : LL(0),LD(0),LT(0);
Array : TL[10](0),TX[10](0),TL1[10](0);
if index == 0 then
{
xOpen = open;
xClose = (O+H+L+C)/4;
xHigh = MaxList( high, xOpen, xClose);
xLow = MinList( low, xOpen,xClose);
}
else
{
xClose = (O+H+L+C)/4;
xOpen = (xOpen [1] + xClose [1])/2 ;
xHigh = MaxList(High, xOpen, xClose) ;
xLow = MinList(Low, xOpen, xClose) ;
}
if xClose > xOpen then
{
T = 1;
if T != T[1] Then
{
HH = H;
HD = sdate;
HT = stime;
h1 = hh[1];
if LL > 0 then
{
TL[0] = TL_New(LD,LT,LL,HD,HT,HH);
TL1[0] = TL_New(LD,LT,LL,LD,LT,LL);
TX[0] = Text_New(HD,HT,HH,NumToStr(HH,소숫점자리));
Text_SetStyle(TX[0],2,1);
for cnt = 1 to 9
{
TL[cnt] = TL[cnt-1][1];
TX[cnt] = TX[cnt-1][1];
TL1[cnt] = TL1[cnt-1][1];
}
//TL_Delete(TL[4]);
//Text_Delete(TL[4]);
}
}
PlotPaintBar(Xhigh,Xlow,Xopen,Xclose,"강조",red);
}
else if xClose < xOpen then
{
T = -1;
if T != T[1] Then
{
LL = H;
LD = sdate;
LT = stime;
l1 = ll[1];
if HH > 0 then
{
TL[0] = TL_New(HD,HT,HH,LD,LT,LL);
TL1[0] = TL_New(HD,HT,HH,HD,HT,HH);
TX[0] = Text_New(LD,LT,LL,NumToStr(LL,소숫점자리));
Text_SetStyle(TX[0],2,0);
for cnt = 1 to 9
{
TL[cnt] = TL[cnt-1][1];
TX[cnt] = TX[cnt-1][1];
TL1[cnt] = TL1[cnt-1][1];
}
//TL_Delete(TL[4]);
//Text_Delete(TL[4]);
}
}
PlotPaintBar(Xhigh,Xlow,Xopen,Xclose,"강조",blue);
}
else
PlotPaintBar(Xhigh,Xlow,Xopen,Xclose,"강조",GREEN);
if T == 1 then
{
if H > HH Then
{
HH = H;
HD = sdate;
HT = stime;
if LL > 0 Then
{
TL_SetEnd(TL[0],HD,HT,HH);
Text_SetLocation(TX[0],sdate,stime,HH);
Text_SetString(TX[0],NumToStr(HH,소숫점자리));
}
}
TL_SetBegin(TL1[0],LD,LT,LL);
TL_SetEnd(TL1[0],sdate,stime,LL);
}
if T == -1 then
{
if L < LL Then
{
LL = L;
LD = sdate;
LT = stime;
if HH > 0 Then
{
TL_SetEnd(TL[0],LD,LT,LL);
Text_SetLocation(TX[0],sdate,stime,LL);
Text_SetString(TX[0],NumToStr(LL,소숫점자리));
}
}
TL_SetBegin(TL1[0],HD,HT,HH);
TL_SetEnd(TL1[0],sdate,stime,HH);
}
var : col(0);
if t == 1 and hh > h1 Then
col = red;
if t == -1 and ll < l1 Then
col = blue;
TL_SetSize(TL[0],3);
TL_SetSize(TL1[0],3);
TL_SetColor(tl[0],col);
- 1. ALC854F.png (0.03 MB)
답변 1
예스스탁 예스스탁 답변
2020-05-25 14:19:42
안녕하세요
예스스탁입니다.
input : 소숫점자리(2);
var : xClose(0),xOpen(0),xHigh(0),xLow(0),t(0),cnt(0),h1(0),l1(0);
var : HH(0),HD(0),HT(0);
var : LL(0),LD(0),LT(0);
Array : TL[10](0),TX[10](0),TL1[10](0),tl2[10](0),TX2[10](0);
if index == 0 then
{
xOpen = open;
xClose = (O+H+L+C)/4;
xHigh = MaxList( high, xOpen, xClose);
xLow = MinList( low, xOpen,xClose);
}
else
{
xClose = (O+H+L+C)/4;
xOpen = (xOpen [1] + xClose [1])/2 ;
xHigh = MaxList(High, xOpen, xClose) ;
xLow = MinList(Low, xOpen, xClose) ;
}
if xClose > xOpen then
{
T = 1;
if T != T[1] Then
{
HH = H;
HD = sdate;
HT = stime;
h1 = hh[1];
if LL > 0 then
{
TL[0] = TL_New(LD,LT,LL,HD,HT,HH);
TL1[0] = TL_New(LD,LT,LL,LD,LT,LL);
TL2[0] = TL_New(LD,LT,LL+(h1-l1),LD,LT,LL+(h1-l1));
TX[0] = Text_New(HD,HT,HH,NumToStr(HH,소숫점자리));
TX2[0] = Text_New(HD,HT,ll+(H1-L1),NumToStr(ll+(h1-l1),소숫점자리));
Text_SetStyle(TX[0],2,1);
Text_SetStyle(TX2[0],2,1);
for cnt = 1 to 9
{
TL[cnt] = TL[cnt-1][1];
TX[cnt] = TX[cnt-1][1];
TL1[cnt] = TL1[cnt-1][1];
}
//TL_Delete(TL[4]);
//Text_Delete(TL[4]);
}
}
PlotPaintBar(Xhigh,Xlow,Xopen,Xclose,"강조",red);
}
else if xClose < xOpen then
{
T = -1;
if T != T[1] Then
{
LL = H;
LD = sdate;
LT = stime;
l1 = ll[1];
if HH > 0 then
{
TL[0] = TL_New(HD,HT,HH,LD,LT,LL);
TL1[0] = TL_New(HD,HT,HH,HD,HT,HH);
TL2[0] = TL_New(HD,HT,HH-(h1-l1),HD,HT,HH-(h1-L1));
TX[0] = Text_New(LD,LT,LL,NumToStr(LL,소숫점자리));
TX2[0] = Text_New(LD,LT,hh-(H1-L1),NumToStr(HH-(H1-L1),소숫점자리));
Text_SetStyle(TX[0],2,0);
for cnt = 1 to 9
{
TL[cnt] = TL[cnt-1][1];
TX[cnt] = TX[cnt-1][1];
TL1[cnt] = TL1[cnt-1][1];
}
//TL_Delete(TL[4]);
//Text_Delete(TL[4]);
}
}
PlotPaintBar(Xhigh,Xlow,Xopen,Xclose,"강조",blue);
}
else
PlotPaintBar(Xhigh,Xlow,Xopen,Xclose,"강조",GREEN);
if T == 1 then
{
if H > HH Then
{
HH = H;
HD = sdate;
HT = stime;
if LL > 0 Then
{
TL_SetEnd(TL[0],HD,HT,HH);
Text_SetLocation(TX[0],sdate,stime,HH);
Text_SetString(TX[0],NumToStr(HH,소숫점자리));
}
}
TL_SetBegin(TL1[0],LD,LT,LL);
TL_SetEnd(TL1[0],sdate,stime,LL);
TL_SetBegin(TL2[0],LD,LT,LL+(H1-L1));
TL_SetEnd(TL2[0],sdate,stime,LL+(H1-L1));
Text_SetString(TX2[0],NumToStr(LL+(H1-L1),소숫점자리));
}
if T == -1 then
{
if L < LL Then
{
LL = L;
LD = sdate;
LT = stime;
if HH > 0 Then
{
TL_SetEnd(TL[0],LD,LT,LL);
Text_SetLocation(TX[0],sdate,stime,LL);
Text_SetString(TX[0],NumToStr(LL,소숫점자리));
}
}
TL_SetBegin(TL1[0],HD,HT,HH);
TL_SetEnd(TL1[0],sdate,stime,HH);
TL_SetBegin(TL2[0],hD,hT,hh-(H1-L1));
TL_SetEnd(TL2[0],sdate,stime,HH-(H1-L1));
Text_SetString(TX2[0],NumToStr(HH-(H1-L1),소숫점자리));
}
var : col(0);
if t == 1 and hh > h1 Then
col = red;
if t == -1 and ll < l1 Then
col = blue;
TL_SetSize(TL[0],3);
TL_SetColor(tl[0],col);
TL_SetSize(TL1[0],3);
TL_SetSize(TL2[0],3);
즐거운 하루되세요
> 레전드 님이 쓴 글입니다.
> 제목 : 문의
> A의 하단에서 상단까지 길이를 B의 하단 263.25에서 더하면 263.25+0.3=263.55에 선이 나오도록하고,C의 상단 263.65에서 B의 폭 0.15를 빼면 263.50에 선이 나오도록하고 ,E의 하단 263.45에서 C의 폭을 더하면 263.85에 선이 나오도록 부탁드립니다. 그리고 각선마다 숫자가 나오도록 부탁드립니다.
수식은 아래식을 참조했습니다.
input : 소숫점자리(2);
var : xClose(0),xOpen(0),xHigh(0),xLow(0),t(0),cnt(0),h1(0),l1(0);
var : HH(0),HD(0),HT(0);
var : LL(0),LD(0),LT(0);
Array : TL[10](0),TX[10](0),TL1[10](0);
if index == 0 then
{
xOpen = open;
xClose = (O+H+L+C)/4;
xHigh = MaxList( high, xOpen, xClose);
xLow = MinList( low, xOpen,xClose);
}
else
{
xClose = (O+H+L+C)/4;
xOpen = (xOpen [1] + xClose [1])/2 ;
xHigh = MaxList(High, xOpen, xClose) ;
xLow = MinList(Low, xOpen, xClose) ;
}
if xClose > xOpen then
{
T = 1;
if T != T[1] Then
{
HH = H;
HD = sdate;
HT = stime;
h1 = hh[1];
if LL > 0 then
{
TL[0] = TL_New(LD,LT,LL,HD,HT,HH);
TL1[0] = TL_New(LD,LT,LL,LD,LT,LL);
TX[0] = Text_New(HD,HT,HH,NumToStr(HH,소숫점자리));
Text_SetStyle(TX[0],2,1);
for cnt = 1 to 9
{
TL[cnt] = TL[cnt-1][1];
TX[cnt] = TX[cnt-1][1];
TL1[cnt] = TL1[cnt-1][1];
}
//TL_Delete(TL[4]);
//Text_Delete(TL[4]);
}
}
PlotPaintBar(Xhigh,Xlow,Xopen,Xclose,"강조",red);
}
else if xClose < xOpen then
{
T = -1;
if T != T[1] Then
{
LL = H;
LD = sdate;
LT = stime;
l1 = ll[1];
if HH > 0 then
{
TL[0] = TL_New(HD,HT,HH,LD,LT,LL);
TL1[0] = TL_New(HD,HT,HH,HD,HT,HH);
TX[0] = Text_New(LD,LT,LL,NumToStr(LL,소숫점자리));
Text_SetStyle(TX[0],2,0);
for cnt = 1 to 9
{
TL[cnt] = TL[cnt-1][1];
TX[cnt] = TX[cnt-1][1];
TL1[cnt] = TL1[cnt-1][1];
}
//TL_Delete(TL[4]);
//Text_Delete(TL[4]);
}
}
PlotPaintBar(Xhigh,Xlow,Xopen,Xclose,"강조",blue);
}
else
PlotPaintBar(Xhigh,Xlow,Xopen,Xclose,"강조",GREEN);
if T == 1 then
{
if H > HH Then
{
HH = H;
HD = sdate;
HT = stime;
if LL > 0 Then
{
TL_SetEnd(TL[0],HD,HT,HH);
Text_SetLocation(TX[0],sdate,stime,HH);
Text_SetString(TX[0],NumToStr(HH,소숫점자리));
}
}
TL_SetBegin(TL1[0],LD,LT,LL);
TL_SetEnd(TL1[0],sdate,stime,LL);
}
if T == -1 then
{
if L < LL Then
{
LL = L;
LD = sdate;
LT = stime;
if HH > 0 Then
{
TL_SetEnd(TL[0],LD,LT,LL);
Text_SetLocation(TX[0],sdate,stime,LL);
Text_SetString(TX[0],NumToStr(LL,소숫점자리));
}
}
TL_SetBegin(TL1[0],HD,HT,HH);
TL_SetEnd(TL1[0],sdate,stime,HH);
}
var : col(0);
if t == 1 and hh > h1 Then
col = red;
if t == -1 and ll < l1 Then
col = blue;
TL_SetSize(TL[0],3);
TL_SetSize(TL1[0],3);
TL_SetColor(tl[0],col);