커뮤니티
타주기 서식
2016-03-03 12:42:49
162
글번호 95961
항상 좋은 답변 감사드리립니다
1) 주차트 15분
macd >o , sto 크로스 , 특정 이평 위에 있을때
2) 보조차트 30분
macd >o , sto 크로스 , 특정 이평 위에 있을때
1) 2) 만족시 매수 , 매도
3)다계약일때 50%는 100틱 익절
수식부탁드립니다
답변 2
예스스탁 예스스탁 답변
2016-03-03 16:22:18
안녕하세요
예스스탁입니다.
Input : Ntime(30);
input : short(12),long(26),sig(9);
input : sto1(10),sto2(5),sto3(5);
input : P(20);
var : TF(0),DINDEX(0),cnt(0);
Var : MEP1(0),MEP2(0),MEP3(0);
var : EMA1(0),EMA2(0),EMA3(0);
var : PreEMA1(0),PreEMA2(0),PreEMA3(0);
Var : TMACDV(0),TMACDS(0),PreTMACDV(0),PreTMACDS(0);
var : HH(0), LL(0),SEP1(0),SEP2(0);
var : TFK(0), TStoK(0), TStoD(0);
var : PreTStoK(0), PreTStoD(0);
var : MACDV(0),MACDS(0),stok(0),stod(0);
var : sum(0),Tmav(0),mav(0);
Array : H1[50](0),L1[50](0),C1[50](0);
MEp1 = 2/(short+1);
MEp2 = 2/(long+1);
MEp3 = 2/(sig+1);
SEP1 = 2/(sto2+1);
SEP2 = 2/(Sto3+1);
TF = TimeToMinutes(stime)%Ntime;
if Bdate != Bdate[1] or (TF < TF[1] and bdate == Bdate[1]) Then{
DINDEX = DINDEX + 1;
PreEMA1 = EMA1[1];
PreEMA2 = EMA2[1];
PreTMACDV = TMACDV[1];
PreTMACDS = TMACDS[1];
H1[0] = H;
L1[0] = L;
for cnt = 1 to 49{
H1[cnt] = H1[cnt-1][1];
L1[cnt] = L1[cnt-1][1];
C1[cnt] = C1[cnt-1][1];
}
PreTStoK = TStoK[1];
PreTStoD = TStoD[1];
}
if H > H1[0] Then
H1[0] = H;
if L < L1[0] Then
L1[0] = L;
C1[0] = C;
HH = H1[0];
LL = L1[0];
for cnt = 0 to sto1-1 {
if H1[cnt] > HH then
HH = H1[cnt];
if L1[cnt] < LL then
LL = L1[cnt];
}
TFK = (C-LL)/(HH-LL)*100;
if DINDEX <= 1 then {
EMA1 = C;
EMA2 = C;
TMACDV = EMA1-EMA2;
TMACDS = TMACDV;
TStoK = TFK;
TStoD = TStoK ;
}
else{
EMA1 = C * MEP1 + PreEMA1 * (1-MEP1);
EMA2 = C * MEP2 + PreEMA2 * (1-MEP2);
TMACDV = EMA1-EMA2;
TMACDS = TMACDV * MEP3 + PreTMACDS * (1-MEP3);
TStoK = TFK * SEP1 + PreTStoK * (1-SEP1);
TStoD = TStoK * SEP2 + PreTStoD * (1-SEP2);
}
sum = 0;
for cnt = 0 to P-1{
sum = sum + C1[cnt];
}
Tmav = sum/P;
MACDV = MACD(short,long);
MACDS = ema(MACDV,sig);
stoK = StochasticsK(sto1,sto2);
stod = StochasticsD(sto1,sto2,sto3);
mav = ma(c,P);
if TMACDV > 0 and Tstok > Tstod and PreTstok <= PreTstod and C1[0] > Tmav and
MACDV > 0 and crossup(stok,stod) and C > mav Then
buy();
if TMACDV < 0 and Tstok < Tstod and PreTstok >= PreTstod and C1[0] < Tmav and
MACDV < 0 and CrossDown(stok,stod) and C < mav Then
sell();
if MarketPosition == 1 and MaxContracts >= 2 Then
ExitLong("bx",Atlimit,EntryPrice+PriceScale*100,"",Floor(MaxContracts*0.5),1);
if MarketPosition == -1 and MaxContracts >= 2 Then
ExitShort("sx",Atlimit,EntryPrice-PriceScale*100,"",Floor(MaxContracts*0.5),1);
즐거운 하루되세요
> 파생타이거 님이 쓴 글입니다.
> 제목 : 타주기 서식
> 항상 좋은 답변 감사드리립니다
1) 주차트 15분
macd >o , sto 크로스 , 특정 이평 위에 있을때
2) 보조차트 30분
macd >o , sto 크로스 , 특정 이평 위에 있을때
1) 2) 만족시 매수 , 매도
3)다계약일때 50%는 100틱 익절
수식부탁드립니다
파생타이거
2016-03-04 10:38:20
주차트 10분 보조차트30분도 부탁드립니다
> 예스스탁 님이 쓴 글입니다.
> 제목 : Re : 타주기 서식
> 안녕하세요
예스스탁입니다.
Input : Ntime(30);
input : short(12),long(26),sig(9);
input : sto1(10),sto2(5),sto3(5);
input : P(20);
var : TF(0),DINDEX(0),cnt(0);
Var : MEP1(0),MEP2(0),MEP3(0);
var : EMA1(0),EMA2(0),EMA3(0);
var : PreEMA1(0),PreEMA2(0),PreEMA3(0);
Var : TMACDV(0),TMACDS(0),PreTMACDV(0),PreTMACDS(0);
var : HH(0), LL(0),SEP1(0),SEP2(0);
var : TFK(0), TStoK(0), TStoD(0);
var : PreTStoK(0), PreTStoD(0);
var : MACDV(0),MACDS(0),stok(0),stod(0);
var : sum(0),Tmav(0),mav(0);
Array : H1[50](0),L1[50](0),C1[50](0);
MEp1 = 2/(short+1);
MEp2 = 2/(long+1);
MEp3 = 2/(sig+1);
SEP1 = 2/(sto2+1);
SEP2 = 2/(Sto3+1);
TF = TimeToMinutes(stime)%Ntime;
if Bdate != Bdate[1] or (TF < TF[1] and bdate == Bdate[1]) Then{
DINDEX = DINDEX + 1;
PreEMA1 = EMA1[1];
PreEMA2 = EMA2[1];
PreTMACDV = TMACDV[1];
PreTMACDS = TMACDS[1];
H1[0] = H;
L1[0] = L;
for cnt = 1 to 49{
H1[cnt] = H1[cnt-1][1];
L1[cnt] = L1[cnt-1][1];
C1[cnt] = C1[cnt-1][1];
}
PreTStoK = TStoK[1];
PreTStoD = TStoD[1];
}
if H > H1[0] Then
H1[0] = H;
if L < L1[0] Then
L1[0] = L;
C1[0] = C;
HH = H1[0];
LL = L1[0];
for cnt = 0 to sto1-1 {
if H1[cnt] > HH then
HH = H1[cnt];
if L1[cnt] < LL then
LL = L1[cnt];
}
TFK = (C-LL)/(HH-LL)*100;
if DINDEX <= 1 then {
EMA1 = C;
EMA2 = C;
TMACDV = EMA1-EMA2;
TMACDS = TMACDV;
TStoK = TFK;
TStoD = TStoK ;
}
else{
EMA1 = C * MEP1 + PreEMA1 * (1-MEP1);
EMA2 = C * MEP2 + PreEMA2 * (1-MEP2);
TMACDV = EMA1-EMA2;
TMACDS = TMACDV * MEP3 + PreTMACDS * (1-MEP3);
TStoK = TFK * SEP1 + PreTStoK * (1-SEP1);
TStoD = TStoK * SEP2 + PreTStoD * (1-SEP2);
}
sum = 0;
for cnt = 0 to P-1{
sum = sum + C1[cnt];
}
Tmav = sum/P;
MACDV = MACD(short,long);
MACDS = ema(MACDV,sig);
stoK = StochasticsK(sto1,sto2);
stod = StochasticsD(sto1,sto2,sto3);
mav = ma(c,P);
if TMACDV > 0 and Tstok > Tstod and PreTstok <= PreTstod and C1[0] > Tmav and
MACDV > 0 and crossup(stok,stod) and C > mav Then
buy();
if TMACDV < 0 and Tstok < Tstod and PreTstok >= PreTstod and C1[0] < Tmav and
MACDV < 0 and CrossDown(stok,stod) and C < mav Then
sell();
if MarketPosition == 1 and MaxContracts >= 2 Then
ExitLong("bx",Atlimit,EntryPrice+PriceScale*100,"",Floor(MaxContracts*0.5),1);
if MarketPosition == -1 and MaxContracts >= 2 Then
ExitShort("sx",Atlimit,EntryPrice-PriceScale*100,"",Floor(MaxContracts*0.5),1);
즐거운 하루되세요
> 파생타이거 님이 쓴 글입니다.
> 제목 : 타주기 서식
> 항상 좋은 답변 감사드리립니다
1) 주차트 15분
macd >o , sto 크로스 , 특정 이평 위에 있을때
2) 보조차트 30분
macd >o , sto 크로스 , 특정 이평 위에 있을때
1) 2) 만족시 매수 , 매도
3)다계약일때 50%는 100틱 익절
수식부탁드립니다
다음글