[金字塔源码] 金字塔完整的包括止损，移动止赢交易范例

源码如下：

1. {
   
2. 
   
3. 代码工作在图表自动交易模式下
   
4. 
   
5. 当出现开仓后，开仓价格相比，最大损失超过2％止损
   
6. 
   
7. 当出现盈利后，与最大盈利价格相比，回落到60％幅度后止赢离场
   
8. 
   
9. }
   
10. 
    
11. 
    
12. 
    
13. MA1:=MA(CLOSE,5);
    
14. MA2:=MA(CLOSE,30);
    
15. 
    
16. variable:maxprofit=0;//有仓位时最大获利幅度
    
17. 
    
18. //开仓
    
19. IF CROSS(MA1,MA2) THEN
    
20. BEGIN
    
21. BUY(1,1);
    
22. maxprofit:=0;
    
23. END
    
24. 
    
25. //平仓
    
26. SELL(CROSS(MA2,MA1),0);
    
27. 
    
28. //判断当前持仓状态下的最大盈利
    
29. win:=0;
    
30. win2:=0;
    
31. 
    
32. if holding > 0 and enterbars > 0 then
    
33. begin
    
34. win:=(c-enterprice)/enterprice*100; //记录最大盈利
    
35. if win > maxprofit then
    
36.   maxprofit:=win;
    
37.   
    
38. win2:=(maxprofit-win)/maxprofit*100; //最大盈利后的回调幅度
    
39. end
    
40. 
    
41. if holding < 0 and enterbars > 0 then
    
42. begin
    
43. win:=(enterprice-c)/enterprice*100; //记录最大盈利
    
44. if win > maxprofit then
    
45.   maxprofit:=win;
    
46.   
    
47. win2:=(maxprofit-win)/maxprofit*100; //最大盈利后的回调幅度
    
48. end
    
49. 
    
50. //出现浮动亏损比如2％平仓 WWW.CXH99.COM
    
51. 止损:SELL(win < -2,0);
    
52. 
    
53. //出现最高盈利后，回落到盈利的60％平仓出场
    
54. 止赢:SELL(win2 >= 60 and openprofit > 0, 0);

复制代码