커뮤니티
수식 좀 요청 드립니다.
2021-11-29 21:55:21
1226
글번호 154022
첨부 이미지
그림1
* 전일 도움에 감사 드립니다.
* 아래 수식에서 하단에 선이 안생기는데....
아래 에도 선이 생기도록 부탁 드리겠습니다.
## 아래 수식
var2 = ma(C,20);
var33 = var2/100 ;
input : 간격(5),갯수(0),색상(BLUe);
input: bb(20) ;
var : T(0),cnt(0);
var : HH1(0),HI1(0),HI2(0),LL1(0),LI1(0),LI2(0);
var : LD(0),LT(0),LL(0),HD(0),HT(0),HH(0),TX(0);
Array : HTL[100](0),LTL[100](0);
if var33[간격] > Highest(var33,간격) and var33[간격] > Highest(var33,간격)[간격+1] Then
{
T = 1;
HH1 = var33[간격];
Hi1 = index[간격];
Hi2 = HI1[1];
HTL[0] = TL_New_Self(sdate[간격],stime[간격],HH1,sdate,stime,HH1);
TL_SetColor(HTL[0],색상);
TL_SetExtRight(HTL[0],true);
TX = Text_New_Self(sdate[간격],stime[간격],HH1,"●●●●●●●●●●●●●●●●●●●●●●●●●●●●●");
Text_SetColor(TX,색상);
Text_SetStyle(TX,0,2);
TL_SetSize(TX,1);
Text_SetSize(Tx,bb);
for cnt = 1 to 99
{
HTL[cnt] = HTL[cnt-1][1];
}
TL_Delete(HTL[갯수]);
if t == t[1] then
{
LD = 0;
LT = 0;
LL = 0;
for cnt = index-HI1 to index-HI2
{
if LL == 0 or (LL > 0 and var33[cnt] < LL) Then
{
LL = var33[cnt];
LD = sdate[cnt];
LT = stime[cnt];
}
}
LTL[0] = TL_New_Self(ld,lt,ll,sdate,stime,ll);
TL_SetColor(LTL[0],색상);
TL_SetExtRight(LTL[0],true);
TX = Text_New_Self(LD,LT,LL,"●●●●●●●●●●●●●●●●●●●●●●●●●●");
Text_SetColor(TX,색상);
Text_SetStyle(TX,0,2);
Text_SetSize(Tx,bb);
for cnt = 1 to 99
{
LTL[cnt] = LTL[cnt-1][1];
}
TL_Delete(LTL[갯수]);
}
}
if var33[간격] < Lowest(var33,간격) and var33[간격] < Lowest(var33,간격)[간격+1] Then
{
T = -1;
LL1 = var33[간격];
LI1 = index[간격];
LI2 = LI1[1];
LTL[0] = TL_New_Self(sdate[간격],stime[간격],LL1,sdate,stime,LL1);
TL_SetColor(LTL[0],색상);
TL_SetExtRight(LTL[0],true);
TX = Text_New(sdate[간격],stime[간격],LL1,"●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●");
Text_SetColor(TX,색상);
Text_SetStyle(TX,0,2);
Text_SetSize(Tx,bb);
for cnt = 1 to 99
{
LTL[cnt] = LTL[cnt-1][1];
}
TL_Delete(LTL[갯수]);
if t == t[1] then
{
HD = 0;
HT = 0;
HH = 0;
for cnt = index-LI1 to index-LI2
{
if HH == 0 or (HH > 0 and var33[cnt] > HH) Then
{
HH = var33[cnt];
HD = sdate[cnt];
HT = stime[cnt];
}
}
HTL[0] = TL_New_Self(HD,HT,HH,sdate,stime,HH);
TL_SetColor(HTL[0],색상);
TL_SetExtRight(HTL[0],true);
TX = Text_New_Self(HD,HT,HH,"●●●●●●●●●●●●●●●●●●●●●●●●●●●");
Text_SetColor(TX,색상);
Text_SetStyle(TX,0,2);
Text_SetSize(Tx,bb);
for cnt = 1 to 99
{
HTL[cnt] = HTL[cnt-1][1];
}
TL_Delete(HTL[갯수]);
}
}
* 매번 도움에 고맙습니다.
- 1. 선그림.png (0.60 MB)
답변 1
예스스탁 예스스탁 답변
2021-11-30 10:46:24
안녕하세요
예스스탁입니다.
하방쪽 텍스트(Text_New)가 기본차트 봉 위에 출력되게 되어 있었습니다.
Text_New_Self로 변경하셔야 지표위에 표시가 됩니다.
var2 = ma(C,20);
var33 = var2/100 ;
input : 간격(5),갯수(0),색상(BLUe);
input: bb(20) ;
var : T(0),cnt(0);
var : HH1(0),HI1(0),HI2(0),LL1(0),LI1(0),LI2(0);
var : LD(0),LT(0),LL(0),HD(0),HT(0),HH(0),TX(0);
Array : HTL[100](0),LTL[100](0);
if var33[간격] > Highest(var33,간격) and var33[간격] > Highest(var33,간격)[간격+1] Then
{
T = 1;
HH1 = var33[간격];
Hi1 = index[간격];
Hi2 = HI1[1];
HTL[0] = TL_New_Self(sdate[간격],stime[간격],HH1,sdate,stime,HH1);
TL_SetColor(HTL[0],색상);
TL_SetExtRight(HTL[0],true);
TX = Text_New_Self(sdate[간격],stime[간격],HH1,"●●●●●●●●●●●●●●●●●●●●●●●●●●●●●");
Text_SetColor(TX,색상);
Text_SetStyle(TX,0,2);
TL_SetSize(TX,1);
Text_SetSize(Tx,bb);
for cnt = 1 to 99
{
HTL[cnt] = HTL[cnt-1][1];
}
TL_Delete(HTL[갯수]);
if t == t[1] then
{
LD = 0;
LT = 0;
LL = 0;
for cnt = index-HI1 to index-HI2
{
if LL == 0 or (LL > 0 and var33[cnt] < LL) Then
{
LL = var33[cnt];
LD = sdate[cnt];
LT = stime[cnt];
}
}
LTL[0] = TL_New_Self(ld,lt,ll,sdate,stime,ll);
TL_SetColor(LTL[0],색상);
TL_SetExtRight(LTL[0],true);
TX = Text_New_Self(LD,LT,LL,"●●●●●●●●●●●●●●●●●●●●●●●●●●");
Text_SetColor(TX,색상);
Text_SetStyle(TX,0,2);
Text_SetSize(Tx,bb);
for cnt = 1 to 99
{
LTL[cnt] = LTL[cnt-1][1];
}
TL_Delete(LTL[갯수]);
}
}
if var33[간격] < Lowest(var33,간격) and var33[간격] < Lowest(var33,간격)[간격+1] Then
{
T = -1;
LL1 = var33[간격];
LI1 = index[간격];
LI2 = LI1[1];
LTL[0] = TL_New_Self(sdate[간격],stime[간격],LL1,sdate,stime,LL1);
TL_SetColor(LTL[0],색상);
TL_SetExtRight(LTL[0],true);
TX = Text_New_Self(sdate[간격],stime[간격],LL1,"●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●");
Text_SetColor(TX,색상);
Text_SetStyle(TX,0,2);
Text_SetSize(Tx,bb);
for cnt = 1 to 99
{
LTL[cnt] = LTL[cnt-1][1];
}
TL_Delete(LTL[갯수]);
if t == t[1] then
{
HD = 0;
HT = 0;
HH = 0;
for cnt = index-LI1 to index-LI2
{
if HH == 0 or (HH > 0 and var33[cnt] > HH) Then
{
HH = var33[cnt];
HD = sdate[cnt];
HT = stime[cnt];
}
}
HTL[0] = TL_New_Self(HD,HT,HH,sdate,stime,HH);
TL_SetColor(HTL[0],색상);
TL_SetExtRight(HTL[0],true);
TX = Text_New_Self(HD,HT,HH,"●●●●●●●●●●●●●●●●●●●●●●●●●●●");
Text_SetColor(TX,색상);
Text_SetStyle(TX,0,2);
Text_SetSize(Tx,bb);
for cnt = 1 to 99
{
HTL[cnt] = HTL[cnt-1][1];
}
TL_Delete(HTL[갯수]);
}
}
즐거운 하루되세요
> 요타 님이 쓴 글입니다.
> 제목 : 수식 좀 요청 드립니다.
> * 전일 도움에 감사 드립니다.
* 아래 수식에서 하단에 선이 안생기는데....
아래 에도 선이 생기도록 부탁 드리겠습니다.
## 아래 수식
var2 = ma(C,20);
var33 = var2/100 ;
input : 간격(5),갯수(0),색상(BLUe);
input: bb(20) ;
var : T(0),cnt(0);
var : HH1(0),HI1(0),HI2(0),LL1(0),LI1(0),LI2(0);
var : LD(0),LT(0),LL(0),HD(0),HT(0),HH(0),TX(0);
Array : HTL[100](0),LTL[100](0);
if var33[간격] > Highest(var33,간격) and var33[간격] > Highest(var33,간격)[간격+1] Then
{
T = 1;
HH1 = var33[간격];
Hi1 = index[간격];
Hi2 = HI1[1];
HTL[0] = TL_New_Self(sdate[간격],stime[간격],HH1,sdate,stime,HH1);
TL_SetColor(HTL[0],색상);
TL_SetExtRight(HTL[0],true);
TX = Text_New_Self(sdate[간격],stime[간격],HH1,"●●●●●●●●●●●●●●●●●●●●●●●●●●●●●");
Text_SetColor(TX,색상);
Text_SetStyle(TX,0,2);
TL_SetSize(TX,1);
Text_SetSize(Tx,bb);
for cnt = 1 to 99
{
HTL[cnt] = HTL[cnt-1][1];
}
TL_Delete(HTL[갯수]);
if t == t[1] then
{
LD = 0;
LT = 0;
LL = 0;
for cnt = index-HI1 to index-HI2
{
if LL == 0 or (LL > 0 and var33[cnt] < LL) Then
{
LL = var33[cnt];
LD = sdate[cnt];
LT = stime[cnt];
}
}
LTL[0] = TL_New_Self(ld,lt,ll,sdate,stime,ll);
TL_SetColor(LTL[0],색상);
TL_SetExtRight(LTL[0],true);
TX = Text_New_Self(LD,LT,LL,"●●●●●●●●●●●●●●●●●●●●●●●●●●");
Text_SetColor(TX,색상);
Text_SetStyle(TX,0,2);
Text_SetSize(Tx,bb);
for cnt = 1 to 99
{
LTL[cnt] = LTL[cnt-1][1];
}
TL_Delete(LTL[갯수]);
}
}
if var33[간격] < Lowest(var33,간격) and var33[간격] < Lowest(var33,간격)[간격+1] Then
{
T = -1;
LL1 = var33[간격];
LI1 = index[간격];
LI2 = LI1[1];
LTL[0] = TL_New_Self(sdate[간격],stime[간격],LL1,sdate,stime,LL1);
TL_SetColor(LTL[0],색상);
TL_SetExtRight(LTL[0],true);
TX = Text_New(sdate[간격],stime[간격],LL1,"●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●");
Text_SetColor(TX,색상);
Text_SetStyle(TX,0,2);
Text_SetSize(Tx,bb);
for cnt = 1 to 99
{
LTL[cnt] = LTL[cnt-1][1];
}
TL_Delete(LTL[갯수]);
if t == t[1] then
{
HD = 0;
HT = 0;
HH = 0;
for cnt = index-LI1 to index-LI2
{
if HH == 0 or (HH > 0 and var33[cnt] > HH) Then
{
HH = var33[cnt];
HD = sdate[cnt];
HT = stime[cnt];
}
}
HTL[0] = TL_New_Self(HD,HT,HH,sdate,stime,HH);
TL_SetColor(HTL[0],색상);
TL_SetExtRight(HTL[0],true);
TX = Text_New_Self(HD,HT,HH,"●●●●●●●●●●●●●●●●●●●●●●●●●●●");
Text_SetColor(TX,색상);
Text_SetStyle(TX,0,2);
Text_SetSize(Tx,bb);
for cnt = 1 to 99
{
HTL[cnt] = HTL[cnt-1][1];
}
TL_Delete(HTL[갯수]);
}
}
* 매번 도움에 고맙습니다.
다음글
이전글