커뮤니티
시스템식 부탁드려요
2013-05-07 16:54:48
329
글번호 62914
첨부 이미지
그림1
첨부된 파일은 스토캐스틱다이버전스매도로 압니다.
같은 방법으로 매수도 함께 적용해주시구요.
다만 진입은 신호봉의 종가가 아니라 그 봉의 중간값을 기억했다가 중간값에 진입하구요.
익절은 0.75P로 고쳐주시구요.
매수청산은 다이버전스 발생한 최저봉의 저가를 붕괴할 때 즉시.
매도청산은 다이버전스 발생한 최고봉의 고가를 돌파할 때 즉시.
부탁드립니다.
- 1. 스토다이버전스.jpg (0.06 MB)
답변 1
예스스탁 예스스탁 답변
2013-05-07 18:10:48
안녕하세요
예스스탁입니다.
var : StoLength(12),StoPeriod(5),StoK(0),StoD(0),StoTop(80),StoBOTTOM(20),FirstBar(0);
var : DivShortCond(false),PrevTop(0),PrevTopInd(0);
var : DivLongCond(false),PrevBot(0),PrevBotInd(0);
STOK = StochasticsK(StoLength,StoPeriod);
STOD = StochasticsD(StoLength,StoPeriod,StoPeriod);
if date <> date[1] Then
{
FirstBar = Barindex;
DivShortCond = false;
PrevTop = 0;
PrevTopInd = 0;
DivLongCond = false;
PrevBot = 9999999;
PrevBotInd = 100;
}
if ((H[1] == HighD(0) and C[1] > O[1]) or (H==HighD(0) and C < O)) and BarIndex <> FirstBar Then
{
if (H[1] > PreVTop and Stok[1] > StoTop) or (H > PrevTop and StoK > StoTop) Then
{
PrevTop = H[1];
PrevTopInd = Stok[1];
}
Else if PrevTop <> 0 and Stok < PreVTopInd and Stok < Stok[1] and Stok[1] < StoTop Then
DivShortCond = true;
}
if DivShortcond Then
if stok > StoTop Then
DivShortCond = false;
if DivShortcond Then {
if (CrossDown(stok,stod) and C < L[1]) Then
{
Sell("다이버젼스 매도",atlimit,(H+L)/2);
DivShortcond = false;
PrevTop = 0;
PrevTopInd = 0;
}
}
if ((L[1] == LowD(0) and C[1] < O[1]) or (L==LowD(0) and C > O)) and BarIndex <> FirstBar Then
{
if (L[1] < PreVBot and Stok[1] < StoBottom) or (L < PrevBot and StoK < StoBottom) Then
{
PrevBot = L[1];
PrevBotInd = Stok[1];
}
Else if PrevBot <> 9999999 and Stok > PreVBotInd and Stok > Stok[1] and Stok[1] > StoBottom Then
DivLongCond = true;
}
if DivLongCond Then
if stok < StoBottom Then
DivLongCond = false;
if DivLongCond Then {
if (CrossUp(stok,stod) and C > H[1]) Then
{
Buy("다이버젼스 매수",atlimit,(H+L)/2);
DivLongCond = false;
PrevBot = 9999999;
PrevBotInd = 100;
}
}
if PrevBot != 9999999 and PrevBot[1] == 9999999 Then
var1 = L;
if L < var1 Then
var1 = L;
if PrevTop != 0 and PrevTop[1] == 0 Then
var1 = H;
if H > var2 Then
var2 = H;
if MarketPosition == 1 Then
exitlong("bx",AtStop,var1[BarsSinceEntry]);
if MarketPosition == -1 Then
exitlong("sx",AtStop,var2[BarsSinceEntry]);
SetStopProfittarget(0.7,PointStop);
즐거운 하루되세요
> 묘선낭자 님이 쓴 글입니다.
> 제목 : 시스템식 부탁드려요
> 첨부된 파일은 스토캐스틱다이버전스매도로 압니다.
같은 방법으로 매수도 함께 적용해주시구요.
다만 진입은 신호봉의 종가가 아니라 그 봉의 중간값을 기억했다가 중간값에 진입하구요.
익절은 0.75P로 고쳐주시구요.
매수청산은 다이버전스 발생한 최저봉의 저가를 붕괴할 때 즉시.
매도청산은 다이버전스 발생한 최고봉의 고가를 돌파할 때 즉시.
부탁드립니다.
다음글
이전글