커뮤니티
수식으로 요청 드립니다.
2022-05-03 13:57:05
1046
글번호 158492
* 즐거운 한주 되십시요.
* 아래 지표식을 매매식으로 요청 드립니다.
→ RED신호 발생 하면 신호가찍힌봉 이전 5봉중 최고가 저장후 2봉이후에 최고가 돌파시 매도
BLUE신호 발생 하면 신호가찍힌봉 이전 5봉중 최저가 저장후 2봉이후에 최저가 돌파시 매도
▶ 빈동그라미는 "매수2", "매도2" 로 부탁 드립니다.
▶ 갯수(5) 에 그러지는 수평선 굵기 좀 굵게 부탁 드립니다.
TL_GetSize(TL,3 ); 해도 안되네요???
* 청산:
매도 진입후 최고가 + 20틱 이상이면 매도 손실 청산
매수 진입후 최저가 - 20틱 이상이면 매수 손실 청산
## 지표 식
input : 간격(5),갯수(5);
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],RED);
TL_SetExtRight(HTL[0],true);
TX = Text_New(sdate[간격],stime[간격],HH1,"●");
Text_SetColor(TX,RED);
Text_SetStyle(TX,2,2);
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],blue);
TL_SetExtRight(LTL[0],true);
TX = Text_New(LD,LT,LL,"○");
Text_SetColor(TX,BLUE);
Text_SetStyle(TX,2,2);
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],blue);
TL_SetExtRight(LTL[0],true);
TX = Text_New(sdate[간격],stime[간격],LL1,"●");
Text_SetColor(TX,BLUE);
Text_SetStyle(TX,2,2);
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],RED);
TL_SetExtRight(HTL[0],true);
TX = Text_New(HD,HT,HH,"○");
Text_SetColor(TX,RED);
Text_SetStyle(TX,2,2);
for cnt = 1 to 99
{
HTL[cnt] = HTL[cnt-1][1];
}
TL_Delete(HTL[갯수]);
}
}
* 항상 고맙습니다. 수고하십시요.
답변 1
예스스탁 예스스탁 답변
2022-05-03 14:21:31
안녕하세요
예스스탁입니다.
input : 간격(5),갯수(5),굵기(1);
var : T(0),cnt(0),hv(0),lv(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
{
hv = Highest(H,5)[간격];
T = 1;
HH1 = H[간격];
Hi1 = index[간격];
Hi2 = HI1[1];
HTL[0] = TL_New(sdate[간격],stime[간격],HH1,sdate,stime,HH1);
TL_SetColor(HTL[0],RED);
TL_SetExtRight(HTL[0],true);
TL_SetSize(HTL[0],굵기);
TX = Text_New(sdate[간격],stime[간격],HH1,"●");
Text_SetColor(TX,RED);
Text_SetStyle(TX,2,2);
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],blue);
TL_SetExtRight(LTL[0],true);
TL_SetSize(LTL[0],굵기);
TX = Text_New(LD,LT,LL,"매도2");
Text_SetColor(TX,BLUE);
Text_SetStyle(TX,2,2);
for cnt = 1 to 99
{
LTL[cnt] = LTL[cnt-1][1];
}
TL_Delete(LTL[갯수]);
}
}
if L[간격] < Lowest(L,간격) and L[간격] < Lowest(L,간격)[간격+1] Then
{
lv = lowest(l,5)[간격];
T = -1;
LL1 = L[간격];
LI1 = index[간격];
LI2 = LI1[1];
LTL[0] = TL_New(sdate[간격],stime[간격],LL1,sdate,stime,LL1);
TL_SetColor(LTL[0],blue);
TL_SetExtRight(LTL[0],true);
TL_SetSize(LTL[0],굵기);
TX = Text_New(sdate[간격],stime[간격],LL1,"●");
Text_SetColor(TX,BLUE);
Text_SetStyle(TX,2,2);
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],RED);
TL_SetExtRight(HTL[0],true);
TL_SetSize(HTL[0],굵기);
TX = Text_New(HD,HT,HH,"매수2");
Text_SetColor(TX,RED);
Text_SetStyle(TX,2,2);
for cnt = 1 to 99
{
HTL[cnt] = HTL[cnt-1][1];
}
TL_Delete(HTL[갯수]);
}
}
if CrossUp(C,Hv) Then
Buy();
if CrossDown(C,Lv) Then
Sell();
if MarketPosition == 1 Then
ExitLong("bx",AtStop,Highest(H,BarsSinceEntry)-PriceScale*20);
if MarketPosition == -1 Then
ExitShort("sx",AtStop,lowest(l,BarsSinceEntry)+PriceScale*20);
즐거운 하루되세요
> 요타 님이 쓴 글입니다.
> 제목 : 수식으로 요청 드립니다.
> * 즐거운 한주 되십시요.
* 아래 지표식을 매매식으로 요청 드립니다.
→ RED신호 발생 하면 신호가찍힌봉 이전 5봉중 최고가 저장후 2봉이후에 최고가 돌파시 매도
BLUE신호 발생 하면 신호가찍힌봉 이전 5봉중 최저가 저장후 2봉이후에 최저가 돌파시 매도
▶ 빈동그라미는 "매수2", "매도2" 로 부탁 드립니다.
▶ 갯수(5) 에 그러지는 수평선 굵기 좀 굵게 부탁 드립니다.
TL_GetSize(TL,3 ); 해도 안되네요???
* 청산:
매도 진입후 최고가 + 20틱 이상이면 매도 손실 청산
매수 진입후 최저가 - 20틱 이상이면 매수 손실 청산
## 지표 식
input : 간격(5),갯수(5);
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],RED);
TL_SetExtRight(HTL[0],true);
TX = Text_New(sdate[간격],stime[간격],HH1,"●");
Text_SetColor(TX,RED);
Text_SetStyle(TX,2,2);
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],blue);
TL_SetExtRight(LTL[0],true);
TX = Text_New(LD,LT,LL,"○");
Text_SetColor(TX,BLUE);
Text_SetStyle(TX,2,2);
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],blue);
TL_SetExtRight(LTL[0],true);
TX = Text_New(sdate[간격],stime[간격],LL1,"●");
Text_SetColor(TX,BLUE);
Text_SetStyle(TX,2,2);
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],RED);
TL_SetExtRight(HTL[0],true);
TX = Text_New(HD,HT,HH,"○");
Text_SetColor(TX,RED);
Text_SetStyle(TX,2,2);
for cnt = 1 to 99
{
HTL[cnt] = HTL[cnt-1][1];
}
TL_Delete(HTL[갯수]);
}
}
* 항상 고맙습니다. 수고하십시요.
다음글
이전글