[金字塔源码] 逐步盈利交易系统模型源码[金字塔模型]

龙听

{参数:
开始日期:缺省:100416  最小:100416 最大:121231 步长:1
结束日期:缺省:121231  最小:100416 最大:121231 步长:1
隔夜持仓:缺省:0 最小:0 最大:1 步长:1
}

模型策略源码：

1. runmode:0; //逐K线模式
   
2. 
   
3. 清仓数量:=1;
   
4. 
   
5. 开仓数量:=1;
   
6. 
   
7. 平仓数量:=1;
   
8. 
   
9. 开仓滑点:=0.4; //2*mindiff
   
10. 
    
11. 平仓滑点:=0.6; //3*mindiff
    
12. 
    
13. 开仓时间:=TIME<145500 AND TIME>091500;
    
14. 
    
15. 平仓时间:=TIME<150800 AND TIME>091500;
    
16. 
    
17. 清仓时间:=time > 150800;
    
18. 
    
19. 开始时间:=1000000 开始日期;
    
20. 
    
21. 结束时间:=1000000 结束日期;
    
22. 
    
23. MA19:MA(C,19),PRECISION2,LINETHICK0;
    
24. 
    
25. MA2:MA(C,2),PRECISION2,LINETHICK0;
    
26. 
    
27. 开多: CROSS(MA2,MA19),PRECISION0,LINETHICK0;
    
28. 
    
29. 开空: CROSS(MA19,MA2),PRECISION0,LINETHICK0;
    
30. 
    
31. 平空: CROSS(MA2,MA19),PRECISION0,LINETHICK0;
    
32. 
    
33. 平多: CROSS(MA19,MA2),PRECISION0,LINETHICK0;
    
34. 
    
35. if date>结束时间 or date<开始时间 then exit;
    
36. 
    
37. myholding:=HOLDING;
    
38. 
    
39. if  平仓时间 then begin
    
40. 
    
41. IF (myholding>0 and 平多)  THEN begin
    
42. 
    
43. SELL(1,平仓数量,LIMIT,close-平仓滑点),orderqueue,IGNORECHECKPRICE;
    
44. 
    
45.   IF (开仓时间 and 开空)  THEN BUYSHORT(1,开仓数量,LIMIT,close-开仓滑点),orderqueue,IGNORECHECKPRICE;
    
46. 
    
47. end
    
48. 
    
49. IF (myholding<0 and 平空)  THEN begin
    
50. 
    
51.   SELLSHORT(1,平仓数量,LIMIT,close 平仓滑点),orderqueue,IGNORECHECKPRICE;
    
52. 
    
53.   IF (开仓时间 and 开多)  THEN BUY(1,开仓数量,LIMIT,close 开仓滑点),orderqueue,IGNORECHECKPRICE;
    
54. end
    
55. end
    
56. 
    
57. IF (开仓时间 and holding=0) THEN  BEGIN
    
58. 
    
59. IF (开多)  THEN BUY(1,开仓数量,LIMIT,close 开仓滑点),IGNORECHECKPRICE;
    
60. 
    
61. IF (开空)  THEN BUYSHORT(1,开仓数量,LIMIT,close-开仓滑点),IGNORECHECKPRICE;
    
62. 
    
63. END
    
64. 
    
65. if 清仓时间 and NOT(隔夜持仓) and holding<>0 then
    
66. 
    
67. begin
    
68. 
    
69. sell(holding > 0, 清仓数量, LIMIT,close-平仓滑点),orderqueue,IGNORECHECKPRICE;
    
70. 
    
71. sellshort(holding < 0, 清仓数量, LIMIT,close 平仓滑点),orderqueue,IGNORECHECKPRICE;
    
72. 
    
73. end
    
74. 
    
75. 
    
76. 资产:ASSET,PRECISION0,NOAXIS,colorcyan;
    
77. 
    
78. 持仓:HOLDING,PRECISION0,LINETHICK0;
    
79. 
    
80. 交易数:totaltrade,PRECISION0,LINETHICK0;
    
81. 
    
82. 日盈利:ASSET-REF(ASSET,barslast(date<>ref(date,1))),PRECISION0,LINETHICK0;
    
83. 
    
84. 日交易数:totaltrade-REF(totaltrade,barslast(date<>ref(date,1))),PRECISION0,LINETHICK0;

复制代码