커뮤니티
시스템 개발 부탁드립니다.
2014-07-12 19:16:06
191
글번호 76662
아래 코딩을 예스랭귀지로 변환 부탁드립니다.
아직 프로그램을 배우는 중이라 변환하기가 쉽지 않네요
부탁 좀 드립니다.
감사합니다.
=======================================================================================
INPUT : LEN[3.2], METHOD([1]
IF METHOD = 1 Then
VAR10 = (HIGHD(1) + LOWD(1) + CLOSED(1)) / 3 /* 피봇 */
VAR11 = VAR10 * 2 - LOWD(1) /* 1차 저항 */
VAR12 = VAR10 + HIGHD(1) - LOW(1) /* 2차 저항 */
VAR9 = VAR10 * 2 - HIGHD(1) /* 1차 지지 */
VAR8 = VAR10 - HIGHD(1) + LOWD(1) /* 2차 지지 */
Else
VAR10 = (HIGHD(1) + LOWD(1) + CLOSED(1) + OPEND(1)) / 4 /* 피봇 */
VAR11 = VAR10 * 2 - LOWD(1) /* 1차 저항 */
VAR12 = VAR10 + HIGHD(1) - LOW(1) /* 2차 저항 */
VAR9 = VAR10 * 2 - HIGHD(1) /* 1차 지지 */
VAR8 = VAR10 - HIGHD(1) + LOWD(1) /* 2차 지지 */
END
IF VAR9 > OPEND AND OPEND > VAR8 Then
IF TTIME <=1500 Then
IF POSITON = 0 AND TDATE<>EntryDate(1) Then
BUY("매수1", ATSTOP, DEF, VAR9)
SELL("매도1", ATSTOP, DEF, Var8)
End
End
End
IF VAR10 > OPEND AND OPEND > VAR9 Then
IF TTIME <=1500 Then
IF POSITON = 0 AND TDATE<>EntryDate(1) Then
BUY("매수2", ATSTOP, DEF, VAR10)
SELL("매도2", ATSTOP, DEF, Var8)
End
End
End
IF VAR11 > OPEND AND OPEND > VAR10 Then
IF TTIME <=1500 Then
IF POSITON = 0 AND TDATE<>EntryDate(1) Then
BUY("매수3", ATSTOP, DEF, VAR12)
SELL("매도3", ATSTOP, DEF, Var10)
End
End
End
IF VAR12 > OPEND AND OPEND > VAR11 Then
IF TTIME <=1500 Then
IF POSITON = 0 AND TDATE<>EntryDate(1) Then
BUY("매수4", ATSTOP, DEF, VAR12)
SELL("매도4", ATSTOP, DEF, Var11)
End
End
End
IF OPEND >= VAR12 Then
IF TTIME <=1500 Then
IF POSITON = 0 AND TDATE<>EntryDate(1) Then
BUY("매수5", ATSTOP, DEF, OPEND+(VAR12-VAR11))
SELL("매도5", ATSTOP, DEF, Var12)
End
End
End
IF OPEND <= VAR8 Then
IF TTIME <=1500 Then
IF POSITON = 0 AND TDATE<>EntryDate(1) Then
BUY("매수6", ATSTOP, DEF, Var8)
SELL("매도6", ATSTOP, DEF, OPEND-(VAR9-VAR8))
End
End
End
IF POSITION <> 0 Then
CALL EXITLONG("매수청산", ATSTOP, HHV(1, HIGH, BANUMSIINCEENTRY+1)-ATR(20)*LEN)
CALL EXITSHORT("매도청산", ATSTOP, LLV(1, LOW, BANUMSIINCEENTRY+1)+ATR(20)*LEN)
End
======================================================================================
답변 1
예스스탁 예스스탁 답변
2014-07-14 11:49:15
안녕하세요
예스스탁입니다.
INPUT : LEN(3.2), METHOD(1);
IF METHOD == 1 Then {
VAR10 = (Dayhigh(1) + DayLow(1) + DayClose(1)) / 3; /* 피봇 */
VAR11 = VAR10 * 2 - DayLow(1); /* 1차 저항 */
VAR12 = VAR10 + Dayhigh(1) - LOW[1]; /* 2차 저항 */
VAR9 = VAR10 * 2 - Dayhigh(1); /* 1차 지지 */
VAR8 = VAR10 - Dayhigh(1) + DayLow(1); /* 2차 지지 */
}
Else{
VAR10 = (Dayhigh(1) + DayLow(1) + DayClose(1) + DayOpen(1))/ 4; /* 피봇 */
VAR11 = VAR10 * 2 - DayLow(1); /* 1차 저항 */
VAR12 = VAR10 + Dayhigh(1) - LOW[1]; /* 2차 저항 */
VAR9 = VAR10 * 2 - Dayhigh(1); /* 1차 지지 */
VAR8 = VAR10 - Dayhigh(1) + DayLow(1); /* 2차 지지 */
}
IF VAR9 > DayOpen(0) AND DayOpen(0) > VAR8 Then{
IF sTIME <= 15000 Then{
IF MarketPosition == 0 AND sDATE<>EntryDate(1) Then{
BUY("매수1", ATSTOP, VAR9) ;
SELL("매도1", ATSTOP, Var8);
}
}
}
IF VAR10 > DayOpen(0) AND DayOpen(0) > VAR9 Then{
IF sTIME <= 150000 Then{
IF MarketPosition == 0 AND sDATE<>EntryDate(1) Then{
BUY("매수2", ATSTOP, VAR10);
SELL("매도2", ATSTOP, Var8);
}
}
}
IF VAR11 > DayOpen(0) AND DayOpen(0) > VAR10 Then{
IF sTIME <= 150000 Then{
IF MarketPosition == 0 AND sDATE<>EntryDate(1) Then{
BUY("매수3", ATSTOP, VAR12);
SELL("매도3", ATSTOP, Var10);
}
}
}
IF VAR12 > DayOpen(0) AND DayOpen(0) > VAR11 Then{
IF sTIME <= 150000 Then{
IF MarketPosition == 0 AND sDATE<>EntryDate(1) Then{
BUY("매수4", ATSTOP, VAR12);
SELL("매도4", ATSTOP, Var11);
}
}
}
IF DayOpen(0) >= VAR12 Then{
IF sTIME <= 150000 Then{
IF MarketPosition == 0 AND sDATE<>EntryDate(1) Then{
BUY("매수5", ATSTOP, DayOpen+(VAR12-VAR11)) ;
SELL("매도5", ATSTOP, Var12);
}
}
}
IF DayOpen(0) <= VAR8 Then{
IF sTIME <= 150000 Then{
IF MarketPosition == 0 AND sDATE<>EntryDate(1) Then{
BUY("매수6", ATSTOP, Var8) ;
SELL("매도6", ATSTOP,DayOpen-(VAR9-VAR8)) ;
}
}
}
IF MarketPosition <> 0 Then{
EXITLONG("매수청산", ATSTOP, highest(HIGH, BarsSinceEntry+1)-ATR(20)*LEN);
EXITSHORT("매도청산", ATSTOP, lowest(LOW, BarsSinceEntry+1)+ATR(20)*LEN);
}
즐거운 하루되세요
> 양치기 님이 쓴 글입니다.
> 제목 : 시스템 개발 부탁드립니다.
> 아래 코딩을 예스랭귀지로 변환 부탁드립니다.
아직 프로그램을 배우는 중이라 변환하기가 쉽지 않네요
부탁 좀 드립니다.
감사합니다.
=======================================================================================
INPUT : LEN[3.2], METHOD([1]
IF METHOD = 1 Then
VAR10 = (HIGHD(1) + LOWD(1) + CLOSED(1)) / 3 /* 피봇 */
VAR11 = VAR10 * 2 - LOWD(1) /* 1차 저항 */
VAR12 = VAR10 + HIGHD(1) - LOW(1) /* 2차 저항 */
VAR9 = VAR10 * 2 - HIGHD(1) /* 1차 지지 */
VAR8 = VAR10 - HIGHD(1) + LOWD(1) /* 2차 지지 */
Else
VAR10 = (HIGHD(1) + LOWD(1) + CLOSED(1) + OPEND(1)) / 4 /* 피봇 */
VAR11 = VAR10 * 2 - LOWD(1) /* 1차 저항 */
VAR12 = VAR10 + HIGHD(1) - LOW(1) /* 2차 저항 */
VAR9 = VAR10 * 2 - HIGHD(1) /* 1차 지지 */
VAR8 = VAR10 - HIGHD(1) + LOWD(1) /* 2차 지지 */
END
IF VAR9 > OPEND AND OPEND > VAR8 Then
IF TTIME <=1500 Then
IF POSITON = 0 AND TDATE<>EntryDate(1) Then
BUY("매수1", ATSTOP, DEF, VAR9)
SELL("매도1", ATSTOP, DEF, Var8)
End
End
End
IF VAR10 > OPEND AND OPEND > VAR9 Then
IF TTIME <=1500 Then
IF POSITON = 0 AND TDATE<>EntryDate(1) Then
BUY("매수2", ATSTOP, DEF, VAR10)
SELL("매도2", ATSTOP, DEF, Var8)
End
End
End
IF VAR11 > OPEND AND OPEND > VAR10 Then
IF TTIME <=1500 Then
IF POSITON = 0 AND TDATE<>EntryDate(1) Then
BUY("매수3", ATSTOP, DEF, VAR12)
SELL("매도3", ATSTOP, DEF, Var10)
End
End
End
IF VAR12 > OPEND AND OPEND > VAR11 Then
IF TTIME <=1500 Then
IF POSITON = 0 AND TDATE<>EntryDate(1) Then
BUY("매수4", ATSTOP, DEF, VAR12)
SELL("매도4", ATSTOP, DEF, Var11)
End
End
End
IF OPEND >= VAR12 Then
IF TTIME <=1500 Then
IF POSITON = 0 AND TDATE<>EntryDate(1) Then
BUY("매수5", ATSTOP, DEF, OPEND+(VAR12-VAR11))
SELL("매도5", ATSTOP, DEF, Var12)
End
End
End
IF OPEND <= VAR8 Then
IF TTIME <=1500 Then
IF POSITON = 0 AND TDATE<>EntryDate(1) Then
BUY("매수6", ATSTOP, DEF, Var8)
SELL("매도6", ATSTOP, DEF, OPEND-(VAR9-VAR8))
End
End
End
IF POSITION <> 0 Then
CALL EXITLONG("매수청산", ATSTOP, HHV(1, HIGH, BANUMSIINCEENTRY+1)-ATR(20)*LEN)
CALL EXITSHORT("매도청산", ATSTOP, LLV(1, LOW, BANUMSIINCEENTRY+1)+ATR(20)*LEN)
End
======================================================================================
다음글