답변완료
추세 박스
1번수식.
input : Period(250);
Var:TL(0),j(0),T(0),tx(0) ,box(0);
Var: date11(0),date12(0),time11(0),time12(0),
date21(0),date22(0),time21(0),time22(0),
date31(0),date32(0),time31(0),time32(0);
Array: HiVal[20](0),LoVal[20](0),HiBar[20](0),LoBar[20](0);
var : tx98count(0), tx99count(0);
Plot1(value12,"value12",IFf(t==1,Red,Blue));
For j = 0 To 19
{
HiBar[j] = HiBar[j] + 1;
LoBar[j] = LoBar[j] + 1;
}
if crossup(c,highest(H,Period)[1]) Then
T = 1;
if CrossDown(c,Lowest(L,Period)[1]) Then
T = -1;
If T == -1 Then
{
If T[1] != -1 Then
{
For j = 18 DownTo 0
{
LoVal[j+1] = LoVal[j];
LoBar[j+1] = LoBar[j];
}
LoVal[0] = L;
LoBar[0] = 0;
date11 = date[HiBar[0]];
time11 = stime[HiBar[0]];
Value11 = HiVal[0];
date12 = date[LoBar[0]];
time12 = stime[LoBar[0]];
Value12 = LoVal[0];
date21 = date[HiBar[0]];
time21 = stime[HiBar[0]];
date22 = date[0];
time22 = stime[0];
box = Box_New_Self(date11,time11,Value11,date12,time12,Value12);
Condition99 = False;
tx99count = 0;
}
Else
{
If LoVal[0] > L Then
{
LoVal[0] = L;
LoBar[0] = 0;
date12 = date[LoBar[0]];
time12 = stime[LoBar[0]];
Value12 = LoVal[0];
date22 = date[0];
time22 = stime[0];
Box_SetEnd(box,date12,time12,Value12);
{
}
if value12 > value11-0.7 Then
{
Box_SetColor(box,Cyan);
Box_SetFill(box,true,50);
}
else if value12 <= value11-0.7 and value12 > value11-0.9 Then
{
Box_SetColor(box,Yellow);
Box_SetFill(box,true,70);
}
else if value12 <= value11-0.9 and value12 > value11-1.3 Then
{
Box_SetColor(box,Lime);
Box_SetFill(box,true,60);
}
else if value12 <= value11-1.3 and value12 > value11-1.6 Then
{
Box_SetColor(box,Cyan);
Box_SetFill(box,true,40);
}
else if value12 <= value11-1.6 and value12 > value11-2 Then
{
Box_SetColor(box,Blue);
Box_SetFill(box,true,20);
}
else
{
Box_SetColor(box,Yellow);
Box_SetFill(box,true,50);
}
Condition99 = False;
}
Else
{
if Condition99 == False and value12 <= value11-0.9 and H >= value12+PriceScale*3 Then
{
Condition99 = true;
tx99count = tx99count+1;
if tx99count >= 1 Then
{
TL= TL_New_Self(sDate,sTime,H+0.15,sDate,sTime,999);
TL_SetColor(TL,Magenta);
TL_SetSize(TL,1);
}
}
}
}
}
If T == 1 Then
{
If T[1] != 1 Then
{
For j = 18 DownTo 0
{
HiVal[j+1] = HiVal[j];
HiBar[j+1] = HiBar[j];
}
HiVal[0] = H;
HiBar[0] = 0;
date11 = date[LoBar[0]];
time11 = stime[LoBar[0]];
Value11 = LoVal[0];
date12 = date[HiBar[0]];
time12 = stime[HiBar[0]];
Value12 = HiVal[0];
date31 = date[LoBar[0]];
time31 = stime[LoBar[0]];
date32 = date[0];
time32 = stime[0];
box = Box_New_Self(date11,time11,Value11,date12,time12,Value12);
Condition98 = False;
tx98count = 0;
}
If HiVal[0] < H Then
{
HiVal[0] = H;
HiBar[0] = 0;
date12 = date[HiBar[0]];
time12 = stime[HiBar[0]];
Value12 = HiVal[0];
date32 = date[0];
time32 = stime[0];
Box_SetEnd(box,date12,time12,Value12);
{
}
if Value12 >= value11+1.3 Then
{
Box_SetColor(box,Pink);
Box_SetFill(box,true,70);
}
else if value12 >= value11+0.8 and value12 < value11+1.3 Then
{
Box_SetColor(box,Magenta);
Box_SetFill(box,true,30);
}
Else
{
Box_SetColor(box,Orange);
Box_SetFill(box,true,60);
}
Condition98 = False;
}
Else
{
if Condition98 == False and value12 >= value11+0.9 and L <= value12-PriceScale*3 Then
{
Condition98 = true;
tx98count = tx98count+1;
if tx98count >= 1 Then
{
TL= TL_New_Self(sDate,sTime,H-0.15,sDate,sTime,-999);
TL_SetColor(TL,Blue);
TL_SetSize(TL,1);
}
}
}
}
2번수식.
input : Period(250);
Var:TL(0),j(0),T(0),tx(0) ,box(0);
Var: date11(0),date12(0),time11(0),time12(0),
date21(0),date22(0),time21(0),time22(0),
date31(0),date32(0),time31(0),time32(0);
Array: HiVal[20](0),LoVal[20](0),HiBar[20](0),LoBar[20](0);
var : tx98count(0), tx99count(0);
Plot1(value12,"value12",IFf(t==1,Red,Blue));
For j = 0 To 19
{
HiBar[j] = HiBar[j] + 1;
LoBar[j] = LoBar[j] + 1;
}
if crossup(c,highest(H,Period)[1]) Then
T = 1;
if CrossDown(c,Lowest(L,Period)[1]) Then
T = -1;
If T == -1 Then
{
If T[1] != -1 Then
{
For j = 18 DownTo 0
{
LoVal[j+1] = LoVal[j];
LoBar[j+1] = LoBar[j];
}
LoVal[0] = L;
LoBar[0] = 0;
date11 = date[HiBar[0]];
time11 = stime[HiBar[0]];
Value11 = HiVal[0];
date12 = date[LoBar[0]];
time12 = stime[LoBar[0]];
Value12 = LoVal[0];
date21 = date[HiBar[0]];
time21 = stime[HiBar[0]];
date22 = date[0];
time22 = stime[0];
box = Box_New(date11,time11,Value11,date12,time12,Value12);
}
If LoVal[0] > L Then
{
LoVal[0] = L;
LoBar[0] = 0;
date12 = date[LoBar[0]];
time12 = stime[LoBar[0]];
Value12 = LoVal[0];
date22 = date[0];
time22 = stime[0];
Box_SetEnd(box,date12,time12,Value12);
}
if value12 > value11-0.7 Then
{
Box_SetColor(box,Cyan);
Box_SetFill(box,true,50);
}
else if value12 <= value11-0.7 and value12 > value11-0.9 Then
{
Box_SetColor(box,Yellow);
Box_SetFill(box,true,70);
}
else if value12 <= value11-0.9 and value12 > value11-1.3 Then
{
Box_SetColor(box,Lime);
Box_SetFill(box,true,60);
}
else if value12 <= value11-1.3 and value12 > value11-1.6 Then
{
Box_SetColor(box,Cyan);
Box_SetFill(box,true,40);
}
else if value12 <= value11-1.6 and value12 > value11-2 Then
{
Box_SetColor(box,Blue);
Box_SetFill(box,true,20);
}
else
{
Box_SetColor(box,Yellow);
Box_SetFill(box,true,50);
}
}
If T == 1 Then
{
If T[1] != 1 Then
{
For j = 18 DownTo 0
{
HiVal[j+1] = HiVal[j];
HiBar[j+1] = HiBar[j];
}
HiVal[0] = H;
HiBar[0] = 0;
date11 = date[LoBar[0]];
time11 = stime[LoBar[0]];
Value11 = LoVal[0];
date12 = date[HiBar[0]];
time12 = stime[HiBar[0]];
Value12 = HiVal[0];
date31 = date[LoBar[0]];
time31 = stime[LoBar[0]];
date32 = date[0];
time32 = stime[0];
box = Box_New(date11,time11,Value11,date12,time12,Value12);
}
If HiVal[0] < H Then
{
HiVal[0] = H;
HiBar[0] = 0;
date12 = date[HiBar[0]];
time12 = stime[HiBar[0]];
Value12 = HiVal[0];
date32 = date[0];
time32 = stime[0];
Box_SetEnd(box,date12,time12,Value12);
}
if Value12 >= value11+1.3 Then
{
Box_SetColor(box,Pink);
Box_SetFill(box,true,70);
}
else if value12 >= value11+0.8 and value12 < value11+1.3 Then
{
Box_SetColor(box,Magenta);
Box_SetFill(box,true,30);
}
Else
{
Box_SetColor(box,Orange);
Box_SetFill(box,true,60);
}
}
윗 그림은 박스만 있는 2번 수식이고, 정상입니다.
아래 그림은 그 박스 수식에, 3틱 변동시 세로선 추가하면 오류 나오는 1번 수식입니다.
선물 10틱 차트에서, 1번 수식 박스 세로선 모두 구현되게 수정 부탁드립니다.
다른 수식에서도 분봉은 정상이나 틱차트에서 오류 나올 때가 가끔 있습니다.
정상 박스는 처음부터 테두리가 없는데, 오류가 생길 때는 네모 테두리가 생겼다가 정상으로 되기도하나 그대로 테두리만 끝까지 존재합니다.
2024-02-14
718
글번호 176629
지표
답변완료
고생 많으십니다.
안녕하세요:)
답변해주신 매매전략을 입력해봤는데
계획했던 진입 시점에 진입을 하지 않아서 문의드립니다:)
답변해주신 글 참고하실 수 있게 아래에 붙여 넣었습니다.
사진을 첨부하여 말씀드리겠습니다:)
예를 하나 들자면 2월13일 신성델타테크의 경우
당일 누적 거래대금 800억 이상, 역사적 신고가 119,500원을 돌파하였는데 진입 신호가 생기지 않아서요:)
왜 진입이 되지 않는지 혹시 알려주실 수 있으신가요?
가능하다면 문제가 해결될 수 있게 수식 개선을 도와주시면 정말 감사드리겠습니다.
------------------------------------------------------------------------------------
안녕하세요
예스스탁입니다.
input : 금액(2000000);
var : HisH(0,Data2),cnt(0),YH6(0,Data2),trade(False),dm(0,Data1),entry(0);
var : Rebuy(False,Data1),NegCnt(0,Data1);
Array : YH[20](0,Data2);
#역사적 신고가(참조데이터의 전체봉 중 최고가)
if HisH == 0 or (HisH > 0 and Data2(H) > HisH) Then
HisH = data2(H);
#연간 최고가 계산
if data2(Bdate > Bdate[1]+1000) Then
{
For cnt = 19 DownTo 1
{
YH[cnt] = YH[cnt-1];
}
YH[0] = Data2(H);
}
if YH[0] > 0 and Data2(H) > YH[0] Then
YH[0] = Data2(H);
if Bdate != Bdate[1] Then
{
trade = true;
entry = 0;
dm = 0;
}
dm = dm + v;
if (MarketPosition != 0 and MarketPosition != MarketPosition[1]) or
(MarketPosition == MarketPosition[1] and TotalTrades > TotalTrades[1]) Then
entry = entry+1;
if TotalTrades > TotalTrades[1] Then
{
if IsExitName("bl1",1) == true or IsExitName("bl2",1) == true Then
trade = False;
ReBuy = False;
NegCnt = 0;
}
if Bdate == Bdate[1] Then
{
if h > DayHigh(0)[1] Then
{
rebuy = true;
NegCnt = 0;
}
if rebuy == true and C < O Then
NegCnt = NegCnt+1;
}
if MarketPosition == 0 and trade == true and sTime >= 91000 and sTime < 150000 and dm >= 80000000000 Then
{
#역사적 신고가+1틱이상이면 매수
Buy("b1",AtStop,HisH+PriceScale*1,Floor(금액/max(NextBarOpen,HisH+PriceScale*1)));
if YH[5] > 0 and entry == 0 Then
{
#6년 최고가 계산
YH6 = 0;
For cnt = 0 to 5
{
if YH6 == 0 or (YH6 > 0 and YH[cnt] > YH6) Then
YH6 = YH[cnt];
}
#6년 최고가 +1틱이면 매수
if YH6 > 0 Then
Buy("b2",AtStop,YH6+PriceScale*1,Floor(금액/max(NextBarOpen,YH6+PriceScale*1)));
}
if entry >= 1 and reBuy == true and NegCnt >= 3 Then
{
Buy("b3",AtStop,DayHigh+PriceScale*1,Floor(금액/max(NextBarOpen,DayHigh+PriceScale*1)));
}
}
if MarketPosition == 1 Then
{
if IsEntryName("b1") == true Then
var1 = HisH[BarsSinceEntry];
if IsEntryName("b2") == true Then
var1 = YH6[BarsSinceEntry];
if IsEntryName("b3") == true Then
var1 = dayhigh[BarsSinceEntry];
if CurrentContracts == MaxContracts Then
ExitLong("bx1",AtLimit,var1*1.02,"",Floor(MaxContracts*0.5),1);
Else
ExitLong("bx2",AtLimit,var1*1.04);
ExitLong("bl1",AtStop,var1*0.985);
ExitLong("bl2",AtStop,EntryPrice*0.96);
}
즐거운 하루되세요
> 노아 님이 쓴 글입니다.
> 제목 : 시스템 개선 문의
> 안녕하세요. 최근에 시스템 작성 문의에 대해 답변을 받았었는데, 해당 매매전략을 개선하고 싶어 문의드리게 되었습니다^^
기존 전략에서 2가지 개선하고 싶은 부분이 있습니다.
1) 참고로 해당 전략은 상승돌파매매 시스템이고, 진입조건을 개선하고 싶습니다.
종목의 역사적 신고가 및 6년 신고가 가격의 한틱 위를 돌파할 때 시장가로 진입하고 싶습니다.
또한 당일 재진입의 경우, 보유 비중이 전량 매도된 이후에만 재진입할 것 입니다.
재진입은 1분봉 기준, 당일 신고가 이후 음봉 3개 출현 이후에 신고가 재돌파시 신고가 가격의 한틱 위를 돌파할 때 시장가로 진입하고 싶습니다.
그리고 진입 후 손절을 하게 되면, 당일 진입 조건을 달성해도 재진입을 하지 않게 하고 싶습니다.
2) 그리고 당일 누적 거래대금이 800억 이상일 경우에만 매매를 하고 싶습니다.
2024-02-14
566
글번호 176618
시스템