커뮤니티
함수요청
2018-08-30 10:00:04
149
글번호 121729
안녕하세요?
함수변환 요청드립니다.
아래는 하나금융투자에서 사용했던 전략입니다.
한국투자증권에서 사용할 수 있도록 함수 변환요청드립니다.
Vars : lastbStat(0);
Vars : do1(0), do2(0), do3(0), do4(0), do5(0);
Vars : dc1(0), dc2(0), dc3(0), dc4(0), dc5(0);
Vars : bCOND(False), sCOND(False);
If Date[1] <> date Then condition1 = True
Else condition1 = False;
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////
If condition1 Then
Begin
If C[1] > O[1] Then lastbStat = 1
Else If C[1] < O[1] Then lastbStat = -1
Else lastbStat = 0;
End;
do1 = DayOpen(5);
dc1 = DayClose(5);
do2 = DayOpen(4);
dc2 = DayClose(4);
do3 = DayOpen(3);
dc3 = DayClose(3);
do4 = DayOpen(2);
dc4 = DayClose(2);
do5 = DayOpen(1);
dc5 = DayClose(1);
If do1 < dc5 Then bCOND = True
Else bCOND = False;
If do1 > dc5 Then sCOND = True
Else sCOND = False;
If condition1[1] And lastbStat = 1 Then Buy("B", Atmarket);
If condition1[1] And lastbStat = -1 Then Sell("S", Atmarket);
SetExitOnClose;
답변 1
예스스탁 예스스탁 답변
2018-08-30 13:32:18
안녕하세요
예스스탁입니다.
청산시간은 별도로 지정하셔야 합니다.
Vars : lastbStat(0);
Vars : do1(0), do2(0), do3(0), do4(0), do5(0);
Vars : dc1(0), dc2(0), dc3(0), dc4(0), dc5(0);
Vars : bCOND(False), sCOND(False);
If Date[1] <> date Then
condition1 = True;
Else
condition1 = False;
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////
If condition1 Then
Begin
If C[1] > O[1] Then lastbStat = 1;
Else If C[1] < O[1] Then lastbStat = -1 ;
Else lastbStat = 0;
End;
do1 = DayOpen(5);
dc1 = DayClose(5);
do2 = DayOpen(4);
dc2 = DayClose(4);
do3 = DayOpen(3);
dc3 = DayClose(3);
do4 = DayOpen(2);
dc4 = DayClose(2);
do5 = DayOpen(1);
dc5 = DayClose(1);
If do1 < dc5 Then
bCOND = True;
Else
bCOND = False;
If do1 > dc5 Then
sCOND = True;
Else
sCOND = False;
If condition1[1] And lastbStat == 1 Then Buy("B", Atmarket);
If condition1[1] And lastbStat == -1 Then Sell("S", Atmarket);
input : EXTtime(060000);
if sdate != sdate[1] Then
SetStopEndofday(0);
if bdate != bdate[1] Then
SetStopEndofday(EXTtime);
즐거운 하루되세요
> 흰둥이아빠 님이 쓴 글입니다.
> 제목 : 함수요청
> 안녕하세요?
함수변환 요청드립니다.
아래는 하나금융투자에서 사용했던 전략입니다.
한국투자증권에서 사용할 수 있도록 함수 변환요청드립니다.
Vars : lastbStat(0);
Vars : do1(0), do2(0), do3(0), do4(0), do5(0);
Vars : dc1(0), dc2(0), dc3(0), dc4(0), dc5(0);
Vars : bCOND(False), sCOND(False);
If Date[1] <> date Then condition1 = True
Else condition1 = False;
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////
If condition1 Then
Begin
If C[1] > O[1] Then lastbStat = 1
Else If C[1] < O[1] Then lastbStat = -1
Else lastbStat = 0;
End;
do1 = DayOpen(5);
dc1 = DayClose(5);
do2 = DayOpen(4);
dc2 = DayClose(4);
do3 = DayOpen(3);
dc3 = DayClose(3);
do4 = DayOpen(2);
dc4 = DayClose(2);
do5 = DayOpen(1);
dc5 = DayClose(1);
If do1 < dc5 Then bCOND = True
Else bCOND = False;
If do1 > dc5 Then sCOND = True
Else sCOND = False;
If condition1[1] And lastbStat = 1 Then Buy("B", Atmarket);
If condition1[1] And lastbStat = -1 Then Sell("S", Atmarket);
SetExitOnClose;