커뮤니티
문의 드립니다
2025-01-14 08:27:31
574
글번호 187157
input:length(2),a틱(30),b틱(30),c틱(2);
Var:j(0),lastHiVal(0),lastLoVal(0),sBar(0),eBar(0),TL1(0),Text1(0),process(0),T(0);
Array:HH[10,2](0),LL[10,2](0);
input : StartTime(120000),EndTime(53000);
var : Tcond(false);
IF Endtime > starttime Then
SetStopEndofday(Endtime);
Else
{
if sDate != sDate[1] Then
SetStopEndofday(Endtime);
}
if (sdate != sdate[1] and stime >= EndTime) or
(sdate == sdate[1] and stime >= EndTime and stime[1] < EndTime) Then
Tcond = False;
if (sdate != sdate[1] and stime >= StartTime) or
(sdate == sdate[1] and stime >= StartTime and stime[1] < StartTime) Then
{
Tcond = true;
IF Endtime <= starttime Then
{
SetStopEndofday(0);
}
}
process = 0;
If Highest(H,length) == H and lastHiVal <> H and Lowest(L,length) == L and lastLoVal <> L Then
{
If LL[1,1] > L Then process = -1;
If HH[1,1] < H Then process = 1;
}
Else If Highest(H,length) == H and lastHiVal <> H Then process = 1;
Else If Lowest(L,length) == L and lastLoVal <> L Then process = -1;
If process == 1 Then
{
T = 1;
lastHiVal = H;
If HH[1,2] < LL[1,2] Then
{
For j = 10 DownTo 2
{
HH[j,1] = HH[j-1,1];
HH[j,2] = HH[j-1,2];
}
}
If HH[1,2] < LL[1,2] or HH[1,1] < H Then
{
HH[1,1] = H;
HH[1,2] = Index;
sBar = Index - LL[1,2];
eBar = 0;
If TL_GetBeginDate(TL1) == sDate[sBar] and TL_GetBeginTime(TL1) == sTime[sBar] Then
{
TL_Delete(TL1);
Text_Delete(Text1);
}
if LL[1,1] > 0 Then
{
TL1 = TL_New(sDate[sBar],sTime[sBar],LL[1,1],sDate[eBar],sTime[eBar],HH[1,1]);
Text1 = Text_New(sDate[eBar],sTime[eBar],HH[1,1],"+"+NumToStr(abs(HH[1,1]-LL[1,1])/PriceScale,0));
Text_SetStyle(Text1, 2, 1);
}
Else
{
Text_Delete(text1);
Text1 = Text_New(sDate[eBar],sTime[eBar],HH[1,1],"+"+NumToStr(abs(HH[1,1]-LL[1,1])/PriceScale,2));
Text_SetStyle(Text1, 2, 1);
}
Text_SetStyle(Text1, 2, 1);
}
if MarketPosition <= 0 and
HH[2,1] >= LL[2,1]+PriceScale*a틱 and
LL[1,1] <= HH[2,1]-PriceScale*b틱 and
Tcond == true Then
Buy("b",AtStop,HH[2,1]+PriceScale*c틱);
}
If process == -1 Then
{
T = -1;
lastLoVal = L;
If LL[1,2] < HH[1,2] Then
{
For j = 10 DownTo 2
{
LL[j,1] = LL[j-1,1];
LL[j,2] = LL[j-1,2];
}
}
If LL[1,2] < HH[1,2] or LL[1,1] > L Then
{
LL[1,1] = L;
LL[1,2] = Index;
sBar = Index - HH[1,2];
eBar = 0;
If TL_GetBeginDate(TL1) == sDate[sBar] and TL_GetBeginTime(TL1) == sTime[sBar] Then
{
TL_Delete(TL1);
Text_Delete(Text1);
}
if HH[1,1] > 0 Then
{
TL1 = TL_New(sDate[sBar],sTime[sBar],HH[1,1],sDate[eBar],sTime[eBar],LL[1,1]);
Text1 = Text_New(sDate[eBar],sTime[eBar],LL[1,1],"-"+NumToStr(abs(HH[1,1]-LL[1,1])/PriceScale,0));
Text_SetStyle(Text1, 2, 0);
}
Else
{
Text_Delete(text1);
Text1 = Text_New(sDate[eBar],sTime[eBar],LL[1,1],"-"+NumToStr(abs(HH[1,1]-LL[1,1])/PriceScale,0));
Text_SetStyle(Text1, 2, 0);
}
}
if MarketPosition >= 0 and
LL[2,1] <= HH[2,1]-PriceScale*a틱 and
HH[1,1] >= LL[2,1]+PriceScale*b틱 and
Tcond == true Then
Sell("s",AtStop,LL[2,1]-PriceScale*c틱);
}
if MarketPosition == 1 and IsEntryName("b") == true Then
Sell("bs",AtStop,EntryPrice-PriceScale*50);
if MarketPosition == -1 and IsEntryName("s") == true Then
Buy("sb",AtStop,EntryPrice+PriceScale*50);
위 수식어의 해석을 부탁드립니다
-------------------------------------------
아래 2가지 수식어를 부탁드립니다.
1. 전일 전체폭의 60% 당일 하락시 매수후 청산은 +300%
해외선물 매매시간은 08시 ~익일 07시
2. 당일 하락폭이 -200틱일때 매수후 청산은 +200틱
해외선물 매매시간은 08시 ~익일 07시
답변 1
예스스탁 예스스탁 답변
2025-01-15 11:01:42
안녕하세요
예스스탁입니다.
1
기존식 주석 붙여 드립니다.
a틱과 b틱은 직전 고저점간 간격인것 같은데
동일값으로 내용이 이상합니다.
주석 참고하셔서 조절하시기 바랍니다.
input:length(2),a틱(30),b틱(30),c틱(2);
Var:j(0),lastHiVal(0),lastLoVal(0),sBar(0),eBar(0),TL1(0),Text1(0),process(0),T(0);
Array:HH[10,2](0),LL[10,2](0);
input : StartTime(120000),EndTime(53000);
var : Tcond(false);
#종료시간이 시작시간이면 종료시간을 당일청산으로 셋팅
IF Endtime > starttime Then
SetStopEndofday(Endtime);
Else#아니면
{
#0시에 당일청산 셋팅
if sDate != sDate[1] Then
SetStopEndofday(Endtime);
}
#지정한 종료시간이 되면
if (sdate != sdate[1] and stime >= EndTime) or
(sdate == sdate[1] and stime >= EndTime and stime[1] < EndTime) Then
#Tcond는 False
Tcond = False;
#지정한 시작시간이 되면
if (sdate != sdate[1] and stime >= StartTime) or
(sdate == sdate[1] and stime >= StartTime and stime[1] < StartTime) Then
{
#Tcond는 true
Tcond = true;
#시작시간보다 종류시간이 작으면
IF Endtime <= starttime Then
{
#당일청산함수 해제
SetStopEndofday(0);
}
}
#process는 매봉 초기값은 0
process = 0;
#지정기간 최고가와 최저가가 동시발생하면
If Highest(H,length) == H and lastHiVal <> H and Lowest(L,length) == L and lastLoVal <> L Then
{
#저가가 전저전보다 작으면 process는 -1
If LL[1,1] > L Then process = -1;
#고가가 전고가 크면 process는 1
If HH[1,1] < H Then process = 1;
}
#최고와 최저가 동시발생이 아니고 최고가만 발생하면 process는 1
Else If Highest(H,length) == H and lastHiVal <> H Then process = 1;
#최고와 최저가 동시발생이 아니고 최저가만 발생하면 process는 -1
Else If Lowest(L,length) == L and lastLoVal <> L Then process = -1;
#고점 발생후
If process == 1 Then
{
#T는 1
T = 1;
#최근 최고가는 H
lastHiVal = H;
#저점발생이후 고점발생이면
If HH[1,2] < LL[1,2] Then
{
#이전 고점값은 다음방으로 이동
For j = 10 DownTo 2
{
HH[j,1] = HH[j-1,1];
HH[j,2] = HH[j-1,2];
}
}
#저점발생후 고점발생이거나 고가가 최근 고점보다 높으면
If HH[1,2] < LL[1,2] or HH[1,1] < H Then
{
#최근고점은 현재봉 고가로 변경
HH[1,1] = H;
#최근 조검위치도 현재봉 인덱스로 변경
HH[1,2] = Index;
#현재봉과 최근저점사이 봉갯수
sBar = Index - LL[1,2];
eBar = 0;
#최근 저점과 고점 연결선은 삭제
If TL_GetBeginDate(TL1) == sDate[sBar] and TL_GetBeginTime(TL1) == sTime[sBar] Then
{
TL_Delete(TL1);
Text_Delete(Text1);
}
#최근 저점값이 있을 경우
if LL[1,1] > 0 Then
{
#최근 저점과 고점 연결선 새로 출력
TL1 = TL_New(sDate[sBar],sTime[sBar],LL[1,1],sDate[eBar],sTime[eBar],HH[1,1]);
#초근 고점값 새로 출력
Text1 = Text_New(sDate[eBar],sTime[eBar],HH[1,1],"+"+NumToStr(abs(HH[1,1]-LL[1,1])/PriceScale,0));
Text_SetStyle(Text1, 2, 1);
}
Else #최근 저점이 없으면
{
#텍스트 삭제하고
Text_Delete(text1);
#최근 고점 다시 출력
Text1 = Text_New(sDate[eBar],sTime[eBar],HH[1,1],"+"+NumToStr(abs(HH[1,1]-LL[1,1])/PriceScale,2));
Text_SetStyle(Text1, 2, 1);
}
Text_SetStyle(Text1, 2, 1);
}
#무포지션이거나 매도포지션일때
if MarketPosition <= 0 and
#직전고점은 최근 고점대비 a틱 이상이고
HH[2,1] >= LL[2,1]+PriceScale*a틱 and
#직전고점은 최근 고점대비 b틱 이하이고
LL[1,1] <= HH[2,1]-PriceScale*b틱 and
#지정한 시간 안이면
Tcond == true Then
#직전고점 대비 c틱 상승하면 즉시 매수
Buy("b",AtStop,HH[2,1]+PriceScale*c틱);
}
#저점 발생후
If process == -1 Then
{
#T는 -1
T = -1;
#최근 저점은 현재봉 저가
lastLoVal = L;
#고점 발생후 저점발생
If LL[1,2] < HH[1,2] Then
{
#이전 자점값은 다음방으로 이동
For j = 10 DownTo 2
{
LL[j,1] = LL[j-1,1];
LL[j,2] = LL[j-1,2];
}
}
#고점발생후 저점발생이거나 저가가 최근 저점보다 낮으면
If LL[1,2] < HH[1,2] or LL[1,1] > L Then
{
#최근 저점은 현재봉 저가로 변경
LL[1,1] = L;
#최근 저점위치는 현재봉 Index로 변경
LL[1,2] = Index;
#현재봉과 최근고점사이 봉갯수
sBar = Index - HH[1,2];
#
eBar = 0;
#최근 고점과 저점 연결선은 삭제
If TL_GetBeginDate(TL1) == sDate[sBar] and TL_GetBeginTime(TL1) == sTime[sBar] Then
{
TL_Delete(TL1);
Text_Delete(Text1);
}
#최근 고점값이 있을 경우
if HH[1,1] > 0 Then
{
#최근 저점과 고점 연결선 새로 출력
TL1 = TL_New(sDate[sBar],sTime[sBar],HH[1,1],sDate[eBar],sTime[eBar],LL[1,1]);
#초근 고점값 새로 출력
Text1 = Text_New(sDate[eBar],sTime[eBar],LL[1,1],"-"+NumToStr(abs(HH[1,1]-LL[1,1])/PriceScale,0));
Text_SetStyle(Text1, 2, 0);
}
Else
{
#최근 저점이 없으면
Text_Delete(text1);
#최근 저점 새로 출력
Text1 = Text_New(sDate[eBar],sTime[eBar],LL[1,1],"-"+NumToStr(abs(HH[1,1]-LL[1,1])/PriceScale,0));
Text_SetStyle(Text1, 2, 0);
}
}
#무포지션이거나 매수포지션일때
if MarketPosition >= 0 and
#직전저점은 최근 고점대비 a틱 이하이고
LL[2,1] <= HH[2,1]-PriceScale*a틱 and
#직전고점은 최근 저점대비 b틱 이상이고
HH[1,1] >= LL[2,1]+PriceScale*b틱 and
#지정한 시간 안이면
Tcond == true Then
#직전저점대비 c틱 이하이면 즉시 매도
Sell("s",AtStop,LL[2,1]-PriceScale*c틱);
}
#b진입후 진입가 대비 50틱 하락하면 매도로 스위칭
if MarketPosition == 1 and IsEntryName("b") == true Then
Sell("bs",AtStop,EntryPrice-PriceScale*50);
#s진입후 진입가 대비 50틱 상승하면 매도로 스위칭
if MarketPosition == -1 and IsEntryName("s") == true Then
Buy("sb",AtStop,EntryPrice+PriceScale*50);
2
전일 전체폭의 60% 당일 하락시 매수후 청산은 +300%
해외선물 매매시간은 08시 ~익일 07시
input : StartTime(080000),EndTime(65000);
var : Tcond(false);
IF Endtime > starttime Then
SetStopEndofday(Endtime);
Else
{
if sDate != sDate[1] Then
SetStopEndofday(Endtime);
}
if (sdate != sdate[1] and stime >= EndTime) or
(sdate == sdate[1] and stime >= EndTime and stime[1] < EndTime) Then
Tcond = False;
if (sdate != sdate[1] and stime >= StartTime) or
(sdate == sdate[1] and stime >= StartTime and stime[1] < StartTime) Then
{
Tcond = true;
IF Endtime <= starttime Then
{
SetStopEndofday(0);
}
}
if MarketPosition <= 0 and Tcond ==true Then
Buy("b",AtStop,DayHigh-(DayHigh(1)-DayLow(1))*0.60);
if MarketPosition == 1 Then
ExitLong("bx",AtLimit,EntryPrice+(DayHigh(1)+DayLow(1))*3);
3.
당일 하락폭이 -200틱일때 매수후 청산은 +200틱
해외선물 매매시간은 08시 ~익일 07시
input : StartTime(080000),EndTime(65000);
var : Tcond(false);
IF Endtime > starttime Then
SetStopEndofday(Endtime);
Else
{
if sDate != sDate[1] Then
SetStopEndofday(Endtime);
}
if (sdate != sdate[1] and stime >= EndTime) or
(sdate == sdate[1] and stime >= EndTime and stime[1] < EndTime) Then
Tcond = False;
if (sdate != sdate[1] and stime >= StartTime) or
(sdate == sdate[1] and stime >= StartTime and stime[1] < StartTime) Then
{
Tcond = true;
IF Endtime <= starttime Then
{
SetStopEndofday(0);
}
}
if MarketPosition <= 0 and Tcond ==true Then
Buy("b",AtStop,DayHigh-PriceScale*200);
if MarketPosition == 1 Then
ExitLong("bx",AtLimit,EntryPrice+PriceScale*200);
즐거운 하루되세요
> 푸른 님이 쓴 글입니다.
> 제목 : 문의 드립니다
> input:length(2),a틱(30),b틱(30),c틱(2);
Var:j(0),lastHiVal(0),lastLoVal(0),sBar(0),eBar(0),TL1(0),Text1(0),process(0),T(0);
Array:HH[10,2](0),LL[10,2](0);
input : StartTime(120000),EndTime(53000);
var : Tcond(false);
IF Endtime > starttime Then
SetStopEndofday(Endtime);
Else
{
if sDate != sDate[1] Then
SetStopEndofday(Endtime);
}
if (sdate != sdate[1] and stime >= EndTime) or
(sdate == sdate[1] and stime >= EndTime and stime[1] < EndTime) Then
Tcond = False;
if (sdate != sdate[1] and stime >= StartTime) or
(sdate == sdate[1] and stime >= StartTime and stime[1] < StartTime) Then
{
Tcond = true;
IF Endtime <= starttime Then
{
SetStopEndofday(0);
}
}
process = 0;
If Highest(H,length) == H and lastHiVal <> H and Lowest(L,length) == L and lastLoVal <> L Then
{
If LL[1,1] > L Then process = -1;
If HH[1,1] < H Then process = 1;
}
Else If Highest(H,length) == H and lastHiVal <> H Then process = 1;
Else If Lowest(L,length) == L and lastLoVal <> L Then process = -1;
If process == 1 Then
{
T = 1;
lastHiVal = H;
If HH[1,2] < LL[1,2] Then
{
For j = 10 DownTo 2
{
HH[j,1] = HH[j-1,1];
HH[j,2] = HH[j-1,2];
}
}
If HH[1,2] < LL[1,2] or HH[1,1] < H Then
{
HH[1,1] = H;
HH[1,2] = Index;
sBar = Index - LL[1,2];
eBar = 0;
If TL_GetBeginDate(TL1) == sDate[sBar] and TL_GetBeginTime(TL1) == sTime[sBar] Then
{
TL_Delete(TL1);
Text_Delete(Text1);
}
if LL[1,1] > 0 Then
{
TL1 = TL_New(sDate[sBar],sTime[sBar],LL[1,1],sDate[eBar],sTime[eBar],HH[1,1]);
Text1 = Text_New(sDate[eBar],sTime[eBar],HH[1,1],"+"+NumToStr(abs(HH[1,1]-LL[1,1])/PriceScale,0));
Text_SetStyle(Text1, 2, 1);
}
Else
{
Text_Delete(text1);
Text1 = Text_New(sDate[eBar],sTime[eBar],HH[1,1],"+"+NumToStr(abs(HH[1,1]-LL[1,1])/PriceScale,2));
Text_SetStyle(Text1, 2, 1);
}
Text_SetStyle(Text1, 2, 1);
}
if MarketPosition <= 0 and
HH[2,1] >= LL[2,1]+PriceScale*a틱 and
LL[1,1] <= HH[2,1]-PriceScale*b틱 and
Tcond == true Then
Buy("b",AtStop,HH[2,1]+PriceScale*c틱);
}
If process == -1 Then
{
T = -1;
lastLoVal = L;
If LL[1,2] < HH[1,2] Then
{
For j = 10 DownTo 2
{
LL[j,1] = LL[j-1,1];
LL[j,2] = LL[j-1,2];
}
}
If LL[1,2] < HH[1,2] or LL[1,1] > L Then
{
LL[1,1] = L;
LL[1,2] = Index;
sBar = Index - HH[1,2];
eBar = 0;
If TL_GetBeginDate(TL1) == sDate[sBar] and TL_GetBeginTime(TL1) == sTime[sBar] Then
{
TL_Delete(TL1);
Text_Delete(Text1);
}
if HH[1,1] > 0 Then
{
TL1 = TL_New(sDate[sBar],sTime[sBar],HH[1,1],sDate[eBar],sTime[eBar],LL[1,1]);
Text1 = Text_New(sDate[eBar],sTime[eBar],LL[1,1],"-"+NumToStr(abs(HH[1,1]-LL[1,1])/PriceScale,0));
Text_SetStyle(Text1, 2, 0);
}
Else
{
Text_Delete(text1);
Text1 = Text_New(sDate[eBar],sTime[eBar],LL[1,1],"-"+NumToStr(abs(HH[1,1]-LL[1,1])/PriceScale,0));
Text_SetStyle(Text1, 2, 0);
}
}
if MarketPosition >= 0 and
LL[2,1] <= HH[2,1]-PriceScale*a틱 and
HH[1,1] >= LL[2,1]+PriceScale*b틱 and
Tcond == true Then
Sell("s",AtStop,LL[2,1]-PriceScale*c틱);
}
if MarketPosition == 1 and IsEntryName("b") == true Then
Sell("bs",AtStop,EntryPrice-PriceScale*50);
if MarketPosition == -1 and IsEntryName("s") == true Then
Buy("sb",AtStop,EntryPrice+PriceScale*50);
위 수식어의 해석을 부탁드립니다
-------------------------------------------
아래 2가지 수식어를 부탁드립니다.
1. 전일 전체폭의 60% 당일 하락시 매수후 청산은 +300%
해외선물 매매시간은 08시 ~익일 07시
2. 당일 하락폭이 -200틱일때 매수후 청산은 +200틱
해외선물 매매시간은 08시 ~익일 07시
이전글