求助一个TS代码改写

jiaoyizhe

几个交易逻辑:
      1; 在开盘一定时间内取其波动区间
      2; 突破此波动区间后，代表波动区间变大，向上突破买进，向下突破卖出
      3; 止损采用动态止损,获利值减少一定额度后出场
      4; 收盘时出场,不留仓

1. inputs:
   
2.         Factor(1),
   
3.         endtime(1455),
   
4.         stopLongPoint(50),
   
5.         stopShortPoint(50);
   
6. 
   
7. vars:
   
8.         DateH(0),DateL(0),BrkR(0),canTradeTime(false),lo(0),hi(0);
   
9. 
   
10. If date > Date[1] then begin
    
11.         BrkR = HighD(1)-LowD(1);
    
12.         DateH = H;
    
13.         DateL = L;
    
14. end;
    
15. 
    
16. lo = dailyLowest;
    
17. hi = dailyHighest;
    
18. 
    
19. canTradeTime = time>915 and time<1400;
    
20. 
    
21. If canTradeTime and marketposition=0 and EntriesToday(date)=0  then begin
    
22.         if c > DateL + Factor*BrkR then Buy ("Larry_L") next bar at market;
    
23.         if C < DateH - Factor*BrkR then Sellshort ("Larry_S") next bar at market;
    
24.         tl_new(date,time,DateL + Factor*BrkR,date,1330,DateL + Factor*BrkR);
    
25.         tl_new(date,time,DateH - Factor*BrkR,date,1330,DateH - Factor*BrkR);
    
26. end;
    
27. 
    
28. {Exit before market close}
    
29.         if time>=endtime then begin
    
30.                 if marketposition=1 then
    
31.                         sell("DayTrade_L") this bar at close;
    
32.                 if marketposition=-1 then
    
33.                         buytocover("DayTrade_S") this bar at close;
    
34.         end;

复制代码

win5ms

效果怎样？

sorakiraa

Larry_L,Larry_S为何物

flyfish

这个代码逻辑倒是不难看懂