커뮤니티
수정부탁합니다
2017-03-16 18:38:59
100
글번호 107900
안녕하세요!
52419 확인 부탁 드립니다.
답변 1
예스스탁 예스스탁 답변
2017-03-17 10:21:51
안녕하세요
예스스탁입니다.
수정한 식입니다.
input : Per1(18),시작시간(103000),종료시간(235000);
Var : S1(0),S2(1),S3(1),S4(1),Tcond(false),T1(0),entry(0);
if 시작시간 == 0 and sdate != sdate[1] Then{
Tcond = true;
T1 = TotalTrades;
}
if 시작시간 > 0 and (stime == 시작시간 or (stime > 시작시간 and stime[1] < 시작시간)) Then{
Tcond = true;
T1 = TotalTrades;
}
if 종료시간 == 0 and sdate != sdate[1] Then{
Tcond = false;
if MarketPosition == 1 Then
exitlong();
if MarketPosition == -1 Then
ExitShort();
}
if 종료시간 > 0 and (stime == 종료시간 or (stime > 종료시간 and stime[1] < 종료시간)) Then{
Tcond = false;
if MarketPosition == 1 Then
exitlong();
if MarketPosition == -1 Then
ExitShort();
}
if MarketPosition == 0 Then
entry = TotalTrades -T1;
Else
entry = (TotalTrades -T1)+1;
S1 = (dayhigh(0)+daylow(0))/2;
S2 = (dayhigh(1)+daylow(1))/2;
S3 = dayhigh(1);
S4 = daylow(1);
var1 = dayclose(1)+abs(S3-S4)*(Per1/100);
var2 = dayclose(1)-abs(S3-S4)*(Per1/100);
if MarketPosition == 0 and Tcond == true and entry < 1 Then{
if NextBarOpen <= var2 Then
buy("b1",AtStop,var2,2);
Else
buy("b2",Atlimit,var2,2);
if NextBarOpen >= var1 Then
sell("s1",AtStop,var1,2);
Else
sell("s2",Atlimit,var1,2);
}
if MarketPosition == 1 Then{
exitlong("bx1",atlimit,EntryPrice+PriceScale*20,"",1,1);
exitlong("bx2",atlimit,var1,"",1,1);
}
if MarketPosition == -1 Then{
ExitShort("sx1",atlimit,EntryPrice-PriceScale*20,"",1,1);
ExitShort("sx2",atlimit,var2,"",1,1);
}
SetStopLoss(PriceScale*20,PointStop);
즐거운 하루되세요
> 골든키 님이 쓴 글입니다.
> 제목 : 수정부탁합니다
> 안녕하세요!
52419 확인 부탁 드립니다.
다음글