커뮤니티
지표 좀 요청 드립니다.
2021-07-15 10:01:49
1286
글번호 150764
* 더운 날씨에 수고 많습니다.
* 아래 수식에서 상단점 하단점을 구분 하여 평균점 좀 부탁 드립니다.
즉 아래 수식중 상단점 최근 5개를 합산하여
최고가 와 최저가를 빼고 중간값 3개의 평균값 상단점을 찍을려고 합니다.
아래 수식중 하단점 최근 5개를 합산하여
최고가 와 최저가를 빼고 중간값 3개의 평균값 하단점을 찍을려고 합니다.
기존 아래 수식에 있는 점은 안 보여야 합니다.
<점찍기 사용 할 식 >
## 점찍기
input : 간격(5),갯수(5),색상(BLACk);
input: bb(25) ;
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 H[간격] > Highest(H,간격) and H[간격] > Highest(H,간격)[간격+1] Then
{
T = 1;
HH1 = H[간격];
Hi1 = index[간격];
Hi2 = HI1[1];
HTL[0] = TL_New(sdate[간격],stime[간격],HH1,sdate,stime,HH1);
TL_SetColor(HTL[0],색상);
TL_SetExtRight(HTL[0],true);
TX = Text_New(sdate[간격],stime[간격],HH1,"●");
Text_SetColor(TX,색상);
Text_SetStyle(TX,0,2+1);
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 L[cnt] < LL) Then
{
LL = L[cnt];
LD = sdate[cnt];
LT = stime[cnt];
}
}
LTL[0] = TL_New(ld,lt,ll,sdate,stime,ll);
TL_SetColor(LTL[0],색상);
TL_SetExtRight(LTL[0],true);
TX = Text_New(LD,LT,LL,"●");
Text_SetColor(TX,색상);
Text_SetStyle(TX,0,2+1);
Text_SetSize(Tx,bb);
for cnt = 1 to 99
{
LTL[cnt] = LTL[cnt-1][1];
}
TL_Delete(LTL[갯수]);
}
}
if L[간격] < Lowest(L,간격) and L[간격] < Lowest(L,간격)[간격+1] Then
{
T = -1;
LL1 = L[간격];
LI1 = index[간격];
LI2 = LI1[1];
LTL[0] = TL_New(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+1);
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 H[cnt] > HH) Then
{
HH = H[cnt];
HD = sdate[cnt];
HT = stime[cnt];
}
}
HTL[0] = TL_New(HD,HT,HH,sdate,stime,HH);
TL_SetColor(HTL[0],색상);
TL_SetExtRight(HTL[0],true);
TX = Text_New(HD,HT,HH,"●");
Text_SetColor(TX,색상);
Text_SetStyle(TX,0,2+1);
Text_SetSize(Tx,bb);
for cnt = 1 to 99
{
HTL[cnt] = HTL[cnt-1][1];
}
TL_Delete(HTL[갯수]);
}
}
* 매번 많은 도움에 고맙습니다.
답변 1
예스스탁 예스스탁 답변
2021-07-15 14:29:25
안녕하세요
예스스탁입니다.
input : 간격(5),갯수(5),색상(BLACk);
input: bb(25) ;
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),HTX(0),LTX(0);
var : maxh(0),minH(0),sumh(0),tx1(0);
var : maxl(0),minl(0),suml(0),tx2(0);
Array : HTL[100](0),LTL[100](0);
if H[간격] > Highest(H,간격) and H[간격] > Highest(H,간격)[간격+1] Then
{
T = 1;
HH1 = H[간격];
Hi1 = index[간격];
Hi2 = HI1[1];
HTL[0] = TL_New(sdate[간격],stime[간격],HH1,sdate,stime,HH1);
TL_SetColor(HTL[0],색상);
TL_SetExtRight(HTL[0],true);
#HTX = Text_New(sdate[간격],stime[간격],HH1,"●");
Text_SetColor(HTX,색상);
Text_SetStyle(HTX,0,2+1);
TL_SetSize(HTX,1);
Text_SetSize(HTx,bb);
for cnt = 1 to 99
{
HTL[cnt] = HTL[cnt-1][1];
}
TL_Delete(HTL[갯수]);
if HTL[갯수-1] > 0 Then
{
maxh = 0;
minH = 0;
sumh = 0;
For cnt = 0 to 갯수-1
{
sumh = sumh+TL_GetBeginVal(HTL[cnt]);
if maxh == 0 or (maxh > 0 and TL_GetBeginVal(HTL[cnt]) > maxh) Then
maxh = TL_GetBeginVal(HTL[cnt]);
if minH == 0 or (minH > 0 and TL_GetBeginVal(HTL[cnt]) < minH) Then
minH = TL_GetBeginVal(HTL[cnt]);
}
var1 = (sumh-maxh-minh)/(갯수-2);
TX1 = Text_New(sdate[간격],stime[간격],var1,"●");
Text_SetColor(TX1,색상);
Text_SetStyle(TX1,0,2);
TL_SetSize(TX1,1);
Text_SetSize(Tx1,bb);
}
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 L[cnt] < LL) Then
{
LL = L[cnt];
LD = sdate[cnt];
LT = stime[cnt];
}
}
LTL[0] = TL_New(ld,lt,ll,sdate,stime,ll);
TL_SetColor(LTL[0],색상);
TL_SetExtRight(LTL[0],true);
#LTX = Text_New(LD,LT,LL,"●");
Text_SetColor(LTX,색상);
Text_SetStyle(LTX,0,2+1);
Text_SetSize(LTX,bb);
for cnt = 1 to 99
{
LTL[cnt] = LTL[cnt-1][1];
}
TL_Delete(LTL[갯수]);
if LTL[갯수-1] > 0 Then
{
maxl = 0;
minl = 0;
suml = 0;
For cnt = 0 to 4
{
suml = suml+TL_GetBeginVal(LTL[cnt]);
if maxl == 0 or (maxl > 0 and TL_GetBeginVal(LTL[cnt]) > maxl) Then
maxl = TL_GetBeginVal(LTL[cnt]);
if minl == 0 or (minl > 0 and TL_GetBeginVal(LTL[cnt]) < minl) Then
minl = TL_GetBeginVal(LTL[cnt]);
}
var2 = (suml-maxl-minl)/3;
TX2 = Text_New(ld,lt,var2,"●");
Text_SetColor(TX2,색상);
Text_SetStyle(TX2,0,2);
TL_SetSize(TX2,1);
Text_SetSize(Tx2,bb);
}
}
}
if L[간격] < Lowest(L,간격) and L[간격] < Lowest(L,간격)[간격+1] Then
{
T = -1;
LL1 = L[간격];
LI1 = index[간격];
LI2 = LI1[1];
LTL[0] = TL_New(sdate[간격],stime[간격],LL1,sdate,stime,LL1);
TL_SetColor(LTL[0],색상);
TL_SetExtRight(LTL[0],true);
#LTX = Text_New(sdate[간격],stime[간격],LL1,"●");
Text_SetColor(LTX,색상);
Text_SetStyle(LTX,0,2+1);
Text_SetSize(LTX,bb);
for cnt = 1 to 99
{
LTL[cnt] = LTL[cnt-1][1];
}
TL_Delete(LTL[갯수]);
maxl = 0;
minl = 0;
suml = 0;
For cnt = 0 to 4
{
suml = suml+TL_GetBeginVal(LTL[cnt]);
if maxl == 0 or (maxl > 0 and TL_GetBeginVal(LTL[cnt]) > maxl) Then
maxl = TL_GetBeginVal(LTL[cnt]);
if minl == 0 or (minl > 0 and TL_GetBeginVal(LTL[cnt]) < minl) Then
minl = TL_GetBeginVal(LTL[cnt]);
}
if suml-maxl-minl > 0 Then
{
var2 = (suml-maxl-minl)/3;
TX2 = Text_New(sdate[간격],stime[간격],var2,"●");
Text_SetColor(TX2,색상);
Text_SetStyle(TX2,0,2);
TL_SetSize(TX2,1);
Text_SetSize(Tx2,bb);
}
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 H[cnt] > HH) Then
{
HH = H[cnt];
HD = sdate[cnt];
HT = stime[cnt];
}
}
HTL[0] = TL_New(HD,HT,HH,sdate,stime,HH);
TL_SetColor(HTL[0],색상);
TL_SetExtRight(HTL[0],true);
#HTX = Text_New(HD,HT,HH,"●");
Text_SetColor(HTX,색상);
Text_SetStyle(HTX,0,2+1);
Text_SetSize(HTX,bb);
for cnt = 1 to 99
{
HTL[cnt] = HTL[cnt-1][1];
}
TL_Delete(HTL[갯수]);
if HTL[갯수-1] > 0 Then
{
maxh = 0;
minH = 0;
sumh = 0;
For cnt = 0 to 갯수-1
{
sumh = sumh+TL_GetBeginVal(HTL[cnt]);
if maxh == 0 or (maxh > 0 and TL_GetBeginVal(HTL[cnt]) > maxh) Then
maxh = TL_GetBeginVal(HTL[cnt]);
if minH == 0 or (minH > 0 and TL_GetBeginVal(HTL[cnt]) < minH) Then
minH = TL_GetBeginVal(HTL[cnt]);
}
var1 = (sumh-maxh-minh)/(갯수-2);
TX1 = Text_New(HD,HT,var1,"●");
Text_SetColor(TX1,색상);
Text_SetStyle(TX1,0,2);
TL_SetSize(TX1,1);
Text_SetSize(Tx1,bb);
}
}
}
즐거운 하루되세요
> 요타 님이 쓴 글입니다.
> 제목 : 지표 좀 요청 드립니다.
> * 더운 날씨에 수고 많습니다.
* 아래 수식에서 상단점 하단점을 구분 하여 평균점 좀 부탁 드립니다.
즉 아래 수식중 상단점 최근 5개를 합산하여
최고가 와 최저가를 빼고 중간값 3개의 평균값 상단점을 찍을려고 합니다.
아래 수식중 하단점 최근 5개를 합산하여
최고가 와 최저가를 빼고 중간값 3개의 평균값 하단점을 찍을려고 합니다.
기존 아래 수식에 있는 점은 안 보여야 합니다.
<점찍기 사용 할 식 >
## 점찍기
input : 간격(5),갯수(5),색상(BLACk);
input: bb(25) ;
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 H[간격] > Highest(H,간격) and H[간격] > Highest(H,간격)[간격+1] Then
{
T = 1;
HH1 = H[간격];
Hi1 = index[간격];
Hi2 = HI1[1];
HTL[0] = TL_New(sdate[간격],stime[간격],HH1,sdate,stime,HH1);
TL_SetColor(HTL[0],색상);
TL_SetExtRight(HTL[0],true);
TX = Text_New(sdate[간격],stime[간격],HH1,"●");
Text_SetColor(TX,색상);
Text_SetStyle(TX,0,2+1);
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 L[cnt] < LL) Then
{
LL = L[cnt];
LD = sdate[cnt];
LT = stime[cnt];
}
}
LTL[0] = TL_New(ld,lt,ll,sdate,stime,ll);
TL_SetColor(LTL[0],색상);
TL_SetExtRight(LTL[0],true);
TX = Text_New(LD,LT,LL,"●");
Text_SetColor(TX,색상);
Text_SetStyle(TX,0,2+1);
Text_SetSize(Tx,bb);
for cnt = 1 to 99
{
LTL[cnt] = LTL[cnt-1][1];
}
TL_Delete(LTL[갯수]);
}
}
if L[간격] < Lowest(L,간격) and L[간격] < Lowest(L,간격)[간격+1] Then
{
T = -1;
LL1 = L[간격];
LI1 = index[간격];
LI2 = LI1[1];
LTL[0] = TL_New(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+1);
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 H[cnt] > HH) Then
{
HH = H[cnt];
HD = sdate[cnt];
HT = stime[cnt];
}
}
HTL[0] = TL_New(HD,HT,HH,sdate,stime,HH);
TL_SetColor(HTL[0],색상);
TL_SetExtRight(HTL[0],true);
TX = Text_New(HD,HT,HH,"●");
Text_SetColor(TX,색상);
Text_SetStyle(TX,0,2+1);
Text_SetSize(Tx,bb);
for cnt = 1 to 99
{
HTL[cnt] = HTL[cnt-1][1];
}
TL_Delete(HTL[갯수]);
}
}
* 매번 많은 도움에 고맙습니다.
다음글
이전글