커뮤니티
예스로 변환부탁드립니다
2013-11-03 17:29:22
152
글번호 69158
안녕하세요..
아래수식을 예스로 변환부탁드립니다..
늘 감사드립니다..
감사합니다..
setbaroneentry
if tdate<> tdate(1)
var50=currententrynum
var49=darnum
var32=i_netprofit
cond37=False
end If
If darnum -var49=0 Then
var33=Open
var34=High
var35=Low
var36=Close
end If
If darnum-var49=1 Then
var43=Open
var44=High
var45=Low
var46=Close
end If
if darnum-var49=2 Then
var47=Open
var48=Close
end If
cond35=var36>var33 and var46>var43 and var48>var47
cond36=var36<var33 and var46<var43 and var48<var47
if i_netprofit-var32>=1500000 Then
cond37=True
end If
If darnum-var49=1 Then
var1=hhv(1,High,2)-atr(20)*0.18
var2=llv(1,low,2)+atr(20)*0.18
end If
if darnum-var49=2 Then
var3=hhv(1,High,3)-atr(20)*0.18
var4=llv(1,low,3)+atr(20)*0.18
end If
if cond35=true or cond36=True Then
if darnum-var49>2 and ttime<1500 Then
if currententrynum-var50<=0 Then
call bay("b"atstop,def,var3)
call Sell("s"atstop,def,var4)
end If
end If
end If
If Position<>0 Then
call ExitLong("dx",AtStop,hhv(1,High,darnumsinceentry+1)-atr(20)*2.7)
call ExitShort("sx",AtStop,llv(1,low,darnumsinceentry+1)+atr(20)*2.7)
end If
if Position=1 Then
coll ExitLong("손절dx",AtStop,EntryPrice*(1-0,01))
end If
if Position=-1 Then
coll ExitShort("손절ex"AtStop,EntryPrice*(1+0,01))
end If
답변 1
예스스탁 예스스탁 답변
2013-11-04 14:09:11
안녕하세요
예스스탁입니다.
var : cond35(false),cond36(false),cond37(false);
if sdate<> sdate[1] Then {
var50=TotalTrades;
var49=barindex;
var32=netprofit;
cond37=False;
}
If barindex -var49==0 Then{
var33=Open;
var34=High;
var35=Low;
var36=Close;
}
If barindex-var49==1 Then{
var43=Open;
var44=High;
var45=Low;
}
if barindex-var49==2 Then{
var47=Open;
var48=Close;
}
cond35=var36>var33 and var46>var43 and var48>var47;
cond36=var36<var33 and var46<var43 and var48<var47;
if netprofit-var32 >= 1500000 Then{
cond37=True;
}
If barindex-var49==1 Then{
var1=highest(High,2)-atr(20)*0.18;
var2=lowest(low,2)+atr(20)*0.18;
}
if barindex-var49==2 Then{
var3=highest(High,3)-atr(20)*0.18;
var4=highest(low,3)+atr(20)*0.18;
}
if cond35==true or cond36==True Then{
if BarIndex-var49>2 and stime < 150000 Then{
if TotalTrades-var50<=0 Then{
buy("b",atstop,var3);
Sell("s",atstop,var4);
}
}
}
If MarketPosition<>0 Then{
ExitLong("dx",AtStop,highest(High,BarsSinceEntry+1)-atr(20)*2.7);
ExitShort("sx",AtStop,lowest(low,BarsSinceEntry+1)+atr(20)*2.7);
}
if MarketPosition==1 Then{
ExitLong("손절dx",AtStop,EntryPrice*(1-0.01));
}
if MarketPosition==-1 Then{
ExitShort("손절ex",AtStop,EntryPrice*(1+0.01));
}
즐거운 하루되세요
> 1개미 님이 쓴 글입니다.
> 제목 : 예스로 변환부탁드립니다
> 안녕하세요..
아래수식을 예스로 변환부탁드립니다..
늘 감사드립니다..
감사합니다..
setbaroneentry
if tdate<> tdate(1)
var50=currententrynum
var49=darnum
var32=i_netprofit
cond37=False
end If
If darnum -var49=0 Then
var33=Open
var34=High
var35=Low
var36=Close
end If
If darnum-var49=1 Then
var43=Open
var44=High
var45=Low
var46=Close
end If
if darnum-var49=2 Then
var47=Open
var48=Close
end If
cond35=var36>var33 and var46>var43 and var48>var47
cond36=var36<var33 and var46<var43 and var48<var47
if i_netprofit-var32>=1500000 Then
cond37=True
end If
If darnum-var49=1 Then
var1=hhv(1,High,2)-atr(20)*0.18
var2=llv(1,low,2)+atr(20)*0.18
end If
if darnum-var49=2 Then
var3=hhv(1,High,3)-atr(20)*0.18
var4=llv(1,low,3)+atr(20)*0.18
end If
if cond35=true or cond36=True Then
if darnum-var49>2 and ttime<1500 Then
if currententrynum-var50<=0 Then
call bay("b"atstop,def,var3)
call Sell("s"atstop,def,var4)
end If
end If
end If
If Position<>0 Then
call ExitLong("dx",AtStop,hhv(1,High,darnumsinceentry+1)-atr(20)*2.7)
call ExitShort("sx",AtStop,llv(1,low,darnumsinceentry+1)+atr(20)*2.7)
end If
if Position=1 Then
coll ExitLong("손절dx",AtStop,EntryPrice*(1-0,01))
end If
if Position=-1 Then
coll ExitShort("손절ex"AtStop,EntryPrice*(1+0,01))
end If