커뮤니티
수식작성 부탁드립니다
2025-06-26 23:23:43
189
글번호 192128
아래 수식(1,2,3)을 하나의 수식으로 작성 부탁드립니다.
매매시간내에 1. data1. 기준에 따라 Buy, Exitlong 되며, 2. 진입조건: data2의 sb < IMACD[0]일 때 매수진입 됨.
1. data1.매수진입, 청산
Inputs: Length(9), StdDev(2), Bars(2);
Variables: BBTop(0),BBBot(0);
BBTop = BollBandup(Length, StdDev);
BBBot = BollBanddown(Length, StdDev);
If CountIF(Close < BBBot, Bars) == Bars Then
Buy("B", AtStop, BBBot);
If CountIF(Close > BBTop, Bars) == Bars Then
Exitlong("Ex", AtStop, BBTop);
2. data2. 아래 수식
input : n(30), long(34),signal(9);
var : S1(0,Data2),D1(0,Data2),sTM(0,Data2),et(0,Data2),ets(0,Data2),eTM(0,Data2);
Var : SS(0,Data2),TS(0,Data2),second(0,Data2),ii(0,Data2),cnt(0,Data2),tf(0,Data2);
var : hlc(0,Data2),hi0(0,Data2),lo0(0,Data2),Ema5(0,Data2),Ema6(0,Data2),mi0(0,Data2),sb(0,Data2);
var : hh(0,Data2),ll(0,Data2),cc(0,Data2),b(0,Data2),sum(0,Data2);
var : hi01(Nan,Data2),lo01(Nan,Data2),ep(0,Data2),preEma5(0,Data2),preEma6(0,Data2);
Array : IMACD[100](0,Data2);
ep = 2/(long+1);
if Bdate != Bdate[1] Then
{
stm = TimeToMinutes(stime);
D1 = Bdate;
}
if D1 > 0 then
{
if date == D1 Then
eTM = TimeToMinutes(time)-S1;
Else
eTM = TimeToMinutes(time)+1440-S1;
ss = sTM*60;
et= eTM*60;
ets = FracPortion(time/100)*100;
TS = et+ets;
Second = TS-SS;
TF = second%n;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and TF < TF[1]) Then
{
hh = h;
ll = l;
hi01 = hi0[1];
lo01 = lo0[1];
b = b+1;
PreEma5 = Ema5[1];
PreEma6 = Ema6[1];
For cnt = 99 DownTo 1
{
IMACD[cnt] = IMACD[cnt-1];
}
}
if h > hh Then
hh = h;
if l < ll Then
ll = l;
hlc = (hh+ll+c)/3;
hi0 = iff(IsNan(hi01) == true, ma(hh,long), hi01*(long-1)+hh)/long;
lo0 = iff(IsNan(lo01) == true, ma(ll,long), lo01*(long-1)+ll)/long;
if b <= 1 then
{
Ema5 = hlc;
Ema6 = hlc;
}
else{
Ema5 = C * ep + PreEma5 * (1-ep);
Ema6 = Ema5 * ep + PreEma6 * (1-ep);
}
mi0 = Ema5+(Ema5-Ema6);
IMACD[0] = iff((mi0>hi0), (mi0-hi0) , iff((mi0<lo0) , (mi0 - lo0) , 0));
sum = 0;
For cnt = 0 to signal-1
{
sum = sum + IMACD[cnt];
}
sb = sum/signal;
plot1(IMACD[0],"MAD");
plot2(sb,"SB");
3. 매매시간설정(당일청산).
9시 10분에 매매시작 15시 까지 매수 진입 허용됨.
15시 이전에 진입한 포지션은 15시에서 15시 10분까지 Exitlong 신호 발생시 청산됨.
15시 이전에 진입한 포지션이 15시 10분까지 Exitlong 신호 발생하지 않을시
15시 10분에 청산됨( 당일청산).
답변 1
예스스탁 예스스탁 답변
2025-06-27 10:06:28
안녕하세요
예스스탁입니다.
올려주신 수식의 2번식이 변수는 data2로 선언이 되어 있지만
실제 내용은 data1로 계산을 합니다.
기존내용으로 사용하신다면 1번식을, data2로 수정한 식을 사용한다면 2번식 이용하시면 됩니다.
1
input : n(30), long(34),signal(9);
var : S1(0,Data2),D1(0,Data2),sTM(0,Data2),et(0,Data2),ets(0,Data2),eTM(0,Data2);
Var : SS(0,Data2),TS(0,Data2),second(0,Data2),ii(0,Data2),cnt(0,Data2),tf(0,Data2);
var : hlc(0,Data2),hi0(0,Data2),lo0(0,Data2),Ema5(0,Data2),Ema6(0,Data2),mi0(0,Data2),sb(0,Data2);
var : hh(0,Data2),ll(0,Data2),cc(0,Data2),b(0,Data2),sum(0,Data2);
var : hi01(Nan,Data2),lo01(Nan,Data2),ep(0,Data2),preEma5(0,Data2),preEma6(0,Data2);
Array : IMACD[100](0,Data2);
ep = 2/(long+1);
if Bdate != Bdate[1] Then
{
stm = TimeToMinutes(stime);
D1 = Bdate;
}
if D1 > 0 then
{
if date == D1 Then
eTM = TimeToMinutes(time)-S1;
Else
eTM = TimeToMinutes(time)+1440-S1;
ss = sTM*60;
et= eTM*60;
ets = FracPortion(time/100)*100;
TS = et+ets;
Second = TS-SS;
TF = second%n;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and TF < TF[1]) Then
{
hh = h;
ll = l;
hi01 = hi0[1];
lo01 = lo0[1];
b = b+1;
PreEma5 = Ema5[1];
PreEma6 = Ema6[1];
For cnt = 99 DownTo 1
{
IMACD[cnt] = IMACD[cnt-1];
}
}
if h > hh Then
hh = h;
if l < ll Then
ll = l;
hlc = (hh+ll+c)/3;
hi0 = iff(IsNan(hi01) == true, ma(hh,long), hi01*(long-1)+hh)/long;
lo0 = iff(IsNan(lo01) == true, ma(ll,long), lo01*(long-1)+ll)/long;
if b <= 1 then
{
Ema5 = hlc;
Ema6 = hlc;
}
else{
Ema5 = C * ep + PreEma5 * (1-ep);
Ema6 = Ema5 * ep + PreEma6 * (1-ep);
}
mi0 = Ema5+(Ema5-Ema6);
IMACD[0] = iff((mi0>hi0), (mi0-hi0) , iff((mi0<lo0) , (mi0 - lo0) , 0));
sum = 0;
For cnt = 0 to signal-1
{
sum = sum + IMACD[cnt];
}
sb = sum/signal;
}
Inputs: Length(9), StdDev(2), Bars(2);
Variables: BBTop(0,Data1),BBBot(0,Data1);
BBTop = data1(BollBandup(Length, StdDev));
BBBot = data1(BollBanddown(Length, StdDev));
If data1(CountIF(Close < BBBot, Bars) == Bars) and
sb < IMACD[0] and
data1(sTime >= 91000 and sTime < 150000) Then
Buy("B", AtStop, BBBot);
If data1(CountIF(Close > BBTop, Bars) == Bars) Then
Exitlong("Ex", AtStop, BBTop);
SetStopEndofday(151000);
2
input : n(30), long(34),signal(9);
var : S1(0,Data2),D1(0,Data2),sTM(0,Data2),et(0,Data2),ets(0,Data2),eTM(0,Data2);
Var : SS(0,Data2),TS(0,Data2),second(0,Data2),ii(0,Data2),cnt(0,Data2),tf(0,Data2);
var : hlc(0,Data2),hi0(0,Data2),lo0(0,Data2),Ema5(0,Data2),Ema6(0,Data2),mi0(0,Data2),sb(0,Data2);
var : hh(0,Data2),ll(0,Data2),cc(0,Data2),b(0,Data2),sum(0,Data2);
var : hi01(Nan,Data2),lo01(Nan,Data2),ep(0,Data2),preEma5(0,Data2),preEma6(0,Data2);
Array : IMACD[100](0,Data2);
ep = 2/(long+1);
if Bdate != Bdate[1] Then
{
stm = data2(TimeToMinutes(stime));
D1 = Bdate;
}
if D1 > 0 then
{
if data2(date == D1) Then
eTM = data2(TimeToMinutes(time)-S1);
Else
eTM = data2(TimeToMinutes(time)+1440-S1);
ss = sTM*60;
et= eTM*60;
ets = data2(FracPortion(time/100)*100);
TS = et+ets;
Second = TS-SS;
TF = second%n;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and TF < TF[1]) Then
{
hh = data2(h);
ll = data2(l);
hi01 = hi0[1];
lo01 = lo0[1];
b = b+1;
PreEma5 = Ema5[1];
PreEma6 = Ema6[1];
For cnt = 99 DownTo 1
{
IMACD[cnt] = IMACD[cnt-1];
}
}
if data2(h) > hh Then
hh = data2(h);
if data2(l) < ll Then
ll = data2(l);
hlc = (hh+ll+data2(c))/3;
hi0 = data2(iff(IsNan(hi01) == true, ma(hh,long), hi01*(long-1)+hh)/long);
lo0 = data2(iff(IsNan(lo01) == true, ma(ll,long), lo01*(long-1)+ll)/long);
if b <= 1 then
{
Ema5 = hlc;
Ema6 = hlc;
}
else{
Ema5 = data2(C) * ep + PreEma5 * (1-ep);
Ema6 = Ema5 * ep + PreEma6 * (1-ep);
}
mi0 = Ema5+(Ema5-Ema6);
IMACD[0] = iff((mi0>hi0), (mi0-hi0) , iff((mi0<lo0) , (mi0 - lo0) , 0));
sum = 0;
For cnt = 0 to signal-1
{
sum = sum + IMACD[cnt];
}
sb = sum/signal;
}
Inputs: Length(9), StdDev(2), Bars(2);
Variables: BBTop(0,Data1),BBBot(0,Data1);
BBTop = data1(BollBandup(Length, StdDev));
BBBot = data1(BollBanddown(Length, StdDev));
If data1(CountIF(Close < BBBot, Bars) == Bars) and
sb < IMACD[0] and
data1(sTime >= 91000 and sTime < 150000) Then
Buy("B", AtStop, BBBot);
If data1(CountIF(Close > BBTop, Bars) == Bars) Then
Exitlong("Ex", AtStop, BBTop);
SetStopEndofday(151000);
즐거운 하루되세요
> 뎅이요 님이 쓴 글입니다.
> 제목 : 수식작성 부탁드립니다
> 아래 수식(1,2,3)을 하나의 수식으로 작성 부탁드립니다.
매매시간내에 1. data1. 기준에 따라 Buy, Exitlong 되며, 2. 진입조건: data2의 sb < IMACD[0]일 때 매수진입 됨.
1. data1.매수진입, 청산
Inputs: Length(9), StdDev(2), Bars(2);
Variables: BBTop(0),BBBot(0);
BBTop = BollBandup(Length, StdDev);
BBBot = BollBanddown(Length, StdDev);
If CountIF(Close < BBBot, Bars) == Bars Then
Buy("B", AtStop, BBBot);
If CountIF(Close > BBTop, Bars) == Bars Then
Exitlong("Ex", AtStop, BBTop);
2. data2. 아래 수식
input : n(30), long(34),signal(9);
var : S1(0,Data2),D1(0,Data2),sTM(0,Data2),et(0,Data2),ets(0,Data2),eTM(0,Data2);
Var : SS(0,Data2),TS(0,Data2),second(0,Data2),ii(0,Data2),cnt(0,Data2),tf(0,Data2);
var : hlc(0,Data2),hi0(0,Data2),lo0(0,Data2),Ema5(0,Data2),Ema6(0,Data2),mi0(0,Data2),sb(0,Data2);
var : hh(0,Data2),ll(0,Data2),cc(0,Data2),b(0,Data2),sum(0,Data2);
var : hi01(Nan,Data2),lo01(Nan,Data2),ep(0,Data2),preEma5(0,Data2),preEma6(0,Data2);
Array : IMACD[100](0,Data2);
ep = 2/(long+1);
if Bdate != Bdate[1] Then
{
stm = TimeToMinutes(stime);
D1 = Bdate;
}
if D1 > 0 then
{
if date == D1 Then
eTM = TimeToMinutes(time)-S1;
Else
eTM = TimeToMinutes(time)+1440-S1;
ss = sTM*60;
et= eTM*60;
ets = FracPortion(time/100)*100;
TS = et+ets;
Second = TS-SS;
TF = second%n;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and TF < TF[1]) Then
{
hh = h;
ll = l;
hi01 = hi0[1];
lo01 = lo0[1];
b = b+1;
PreEma5 = Ema5[1];
PreEma6 = Ema6[1];
For cnt = 99 DownTo 1
{
IMACD[cnt] = IMACD[cnt-1];
}
}
if h > hh Then
hh = h;
if l < ll Then
ll = l;
hlc = (hh+ll+c)/3;
hi0 = iff(IsNan(hi01) == true, ma(hh,long), hi01*(long-1)+hh)/long;
lo0 = iff(IsNan(lo01) == true, ma(ll,long), lo01*(long-1)+ll)/long;
if b <= 1 then
{
Ema5 = hlc;
Ema6 = hlc;
}
else{
Ema5 = C * ep + PreEma5 * (1-ep);
Ema6 = Ema5 * ep + PreEma6 * (1-ep);
}
mi0 = Ema5+(Ema5-Ema6);
IMACD[0] = iff((mi0>hi0), (mi0-hi0) , iff((mi0<lo0) , (mi0 - lo0) , 0));
sum = 0;
For cnt = 0 to signal-1
{
sum = sum + IMACD[cnt];
}
sb = sum/signal;
plot1(IMACD[0],"MAD");
plot2(sb,"SB");
3. 매매시간설정(당일청산).
9시 10분에 매매시작 15시 까지 매수 진입 허용됨.
15시 이전에 진입한 포지션은 15시에서 15시 10분까지 Exitlong 신호 발생시 청산됨.
15시 이전에 진입한 포지션이 15시 10분까지 Exitlong 신호 발생하지 않을시
15시 10분에 청산됨( 당일청산).
다음글
이전글