커뮤니티
문의
2013-05-16 17:10:39
181
글번호 63304
수고많으십니다
30377 관련 답변이 정확한 답변인지 다시한번 확인하여 주세요 ...
답변 1
예스스탁 예스스탁 답변
2013-05-16 19:29:11
안녕하세요
예스스탁입니다.
죄송합니다. 식을 수정했습니다.
포지션 함수값을 잘못사용했습니다.
주석을 추가했습니다. 의도와 다른 부분 있으시면
다시 글 남겨주시기 바랍니다.
Var : Pivot(0),R1(0),R2(0),S1(0),S2(0);
var : cnt(0),count(0);
Pivot = (DayHigh(1)+DayLow(1)+DayClose(1))/3;
R1 = 2*Pivot-DayLow(1);
R2 = Pivot+DayHigh(1)-DayLow(1);
S1 = 2*Pivot-DayHigh(1);
S2 = Pivot-DayHigh(1)+DayLow(1);
count = 0;
for cnt = 0 to 20{
if sdate == EntryDate(cnt) Then
count = count+1;
}
#당일 첫진입 - 종가가 저항1을 상향돌파하고 저항1을 하향하면 1계약 매도
#당일 두번째 부터 - 종가가 직전 청산이후에 R1을 상향돌파하고 다시 저항1을 하향하면 1계약 매도
if (MarketPosition == 0 and count == 0 and countif(Crossup(c,R1),dayindex+1) >= 1 and CrossDown(c,R1)) or
(MarketPosition == 0 and count > 0 and countif(Crossup(c,R1),BarsSinceExit(1)) >= 1 and CrossDown(c,R1)) Then
sell("s1",OnClose,def,1);
#매도포지션 상태에서 진입이후로 저항1을 상향돌파한적이 있고 저항1을 하향하면 2계약 추가 매도진입
if MarketPosition == -1 and
countif(Crossup(c,R1),BarsSinceEntry) >= 1 and CrossDown(c,R1) Then
sell("s2",OnClose,def,2);
#진입봉의 고가+1틱 이상 가격 상승하면 매도청산
if MarketPosition == -1 Then
ExitShort("sx",AtStop,H[BarsSinceEntry]+PriceScale*1);
즐거운 하루되세요
> CSI300 님이 쓴 글입니다.
> 제목 : 문의
> 수고많으십니다
30377 관련 답변이 정확한 답변인지 다시한번 확인하여 주세요 ...