커뮤니티
시스템식 작성 부탁.
2011-05-24 23:19:12
636
글번호 39018
너무 죄송한 부탁하나 드립니다.
아래 시스템식은 KODEX200 현물 주식 포지션 트레이딩 로직인데,
KODEX200현물 매수 상태에서 매수청산시 다음봉에 KODEX인버스를
자동으로 시스템 매수 할수 있도록 하고 싶습니다.
반대로 KODEX200 매수신호발생하자마 KODEX인버스 현물잔고는 청산하는 식으로요.
KODEX200에 로직을 걸고, 다른시스템식에 KODEX200을 참조종목으로 해서
실행시키면 될거 같은데, 로직을 어케 짜야할지 처음이 막막하네요.
도움부탁드립니다.
그리고 혹 만약 가능하시다면, 계좌에서 현금예수금을 100% 활용할수 있도록
동시에 신호가 안떨어지고, 신호지연 주문이나 다음봉에 주문할수 있는
방법은 있는지 궁금 합니다. 도움 부탁드려요.
//로직
Input : EmaLen(13), macd1(12), macd2(26), macd3(9), stoploss(5), len(5), mult(8), DiV(25);
input: LongEmaLen(65), Longmacd1(60), Longmacd2(130), Longmacd3(45);
var : emaV(0), MacdV(0), MacdS(0), MacdOsc(0);
var : mp(0), stopprice(0), LemaV(0), LmacdV(0), LmacdS(0), LmacdOsc(0);
emaV = ema(C,EmaLen);
MacdV = macd(macd1,macd2);
MacdS = ema(MacdV,macd3);
MacdOsc = MacdV-MacdS;
LemaV = ema(C,LongEmaLen);
LmacdV = macd(Longmacd1,Longmacd2);
LmacdS = ema(LmacdV,Longmacd3);
LmacdOsc = LmacdV-LmacdS;
If LemaV > LemaV[1] and LmacdOsc > LmacdOsc[1] then {
if emaV > emaV[1] and macdOsc > MacdOsc[1] Then
buy();
}
mp = marketposition;
if MP == 1 and MP[1] <> 1 then Begin
StopPrice = low - ma(range,4)*mult;
end;
If MP == 1 then begin
exitlong ("ExitLong", atstop,stopprice );
stopprice = stopprice +( low-stopprice )/Div;
end;
input : af(0.002), maxaf(0.2);
var : parabolic(0);
parabolic = sar(af, maxaf);
if MarketPosition <> 0 then {
if c > parabolic Then
exitlong("EL_파라볼릭청산", ATSTOP, PARABOLIC);
}
답변 1
예스스탁 예스스탁 답변
2011-05-25 12:29:35
안녕하세요
예스스탁입니다.
주종목 kodex인버스
참조종목 kodex200
으로 설정하신 후 적용하시기 바랍니다.
Input : EmaLen(13), macd1(12), macd2(26), macd3(9), stoploss(5), len(5), mult(8), DiV(25);
input: LongEmaLen(65), Longmacd1(60), Longmacd2(130), Longmacd3(45);
input : af(0.002), maxaf(0.2);
var : emaV(0,data2), MacdV(0,data2), MacdS(0,data2), MacdOsc(0,data2);
var : stopprice(0,data2), LemaV(0,data2), LmacdV(0,data2), LmacdS(0,data2), LmacdOsc(0,data2);
var : parabolic(0,data2),cond1(false,data2),va1(0,data2),va2(0,data2);
parabolic = data2(sar(af, maxaf));
emaV = data2(ema(C,EmaLen));
MacdV = data2(macd(macd1,macd2));
MacdS = data2(ema(MacdV,macd3));
MacdOsc = data2(MacdV-MacdS);
LemaV = data2(ema(C,LongEmaLen));
LmacdV = data2(macd(Longmacd1,Longmacd2));
LmacdS = data2(ema(LmacdV,Longmacd3));
LmacdOsc = data2(LmacdV-LmacdS);
cond1 = LemaV > LemaV[1] and LmacdOsc > LmacdOsc[1] and emaV > emaV[1] and macdOsc > MacdOsc[1];
if va1 == 0 and cond1[1] == true Then{
va1 = 1;
}
if va1 == 0 and cond1 == true Then
ExitLong();
if va1 == 1 and va1[1] == 0 then {
StopPrice = data2(low - ma(range,4)*mult);
}
If va1 == 1 then {
if data2(L) <= stopprice Then{
va1 = 0;
buy();
}
stopprice = stopprice+(data2(l)-stopprice)/Div;
}
if va1 == 1 then {
if data2(c[1]) > parabolic[1] and data2(L) <= parabolic[1] Then{
va1 = 0;
buy();
}
}
즐거운 하루되세요
> 도시군인 님이 쓴 글입니다.
> 제목 : 시스템식 작성 부탁.
>
너무 죄송한 부탁하나 드립니다.
아래 시스템식은 KODEX200 현물 주식 포지션 트레이딩 로직인데,
KODEX200현물 매수 상태에서 매수청산시 다음봉에 KODEX인버스를
자동으로 시스템 매수 할수 있도록 하고 싶습니다.
반대로 KODEX200 매수신호발생하자마 KODEX인버스 현물잔고는 청산하는 식으로요.
KODEX200에 로직을 걸고, 다른시스템식에 KODEX200을 참조종목으로 해서
실행시키면 될거 같은데, 로직을 어케 짜야할지 처음이 막막하네요.
도움부탁드립니다.
그리고 혹 만약 가능하시다면, 계좌에서 현금예수금을 100% 활용할수 있도록
동시에 신호가 안떨어지고, 신호지연 주문이나 다음봉에 주문할수 있는
방법은 있는지 궁금 합니다. 도움 부탁드려요.
//로직
Input : EmaLen(13), macd1(12), macd2(26), macd3(9), stoploss(5), len(5), mult(8), DiV(25);
input: LongEmaLen(65), Longmacd1(60), Longmacd2(130), Longmacd3(45);
var : emaV(0), MacdV(0), MacdS(0), MacdOsc(0);
var : mp(0), stopprice(0), LemaV(0), LmacdV(0), LmacdS(0), LmacdOsc(0);
emaV = ema(C,EmaLen);
MacdV = macd(macd1,macd2);
MacdS = ema(MacdV,macd3);
MacdOsc = MacdV-MacdS;
LemaV = ema(C,LongEmaLen);
LmacdV = macd(Longmacd1,Longmacd2);
LmacdS = ema(LmacdV,Longmacd3);
LmacdOsc = LmacdV-LmacdS;
If LemaV > LemaV[1] and LmacdOsc > LmacdOsc[1] then {
if emaV > emaV[1] and macdOsc > MacdOsc[1] Then
buy();
}
mp = marketposition;
if MP == 1 and MP[1] <> 1 then Begin
StopPrice = low - ma(range,4)*mult;
end;
If MP == 1 then begin
exitlong ("ExitLong", atstop,stopprice );
stopprice = stopprice +( low-stopprice )/Div;
end;
input : af(0.002), maxaf(0.2);
var : parabolic(0);
parabolic = sar(af, maxaf);
if MarketPosition <> 0 then {
if c > parabolic Then
exitlong("EL_파라볼릭청산", ATSTOP, PARABOLIC);
}
다음글
이전글