[金字塔源码] 金字塔趋势跟踪指标源码[金字塔模型]

1. runmode:0;
   
2. 
   
3. 
   
4. 
   
5. input:length(20,5,60,5);
   
6. 
   
7. input:ratio(4,1,5,1);
   
8. 
   
9. 
   
10. 
    
11. variable:trend=0;
    
12. 
    
13. variable:stopprice=0;
    
14. 
    
15. 
    
16. 
    
17. prebarhigh:=ref(high,1);
    
18. 
    
19. prebarlow:=ref(low,1);
    
20. 
    
21. 
    
22. 
    
23. atr:=trimprice(ref(ema(high-low,length),1));
    
24. 
    
25. trailingstop:=ratio*atr;
    
26. 
    
27. 
    
28. 
    
29. if barpos>length and trend=0 then begin
    
30. 
    
31. trend:=1;
    
32. 
    
33. stopprice:=prebarlow-trailingstop;
    
34. 
    
35. drawicon(1,prebarlow-trailingstop,8,0);
    
36. 
    
37. drawtext(1,prebarlow-trailingstop,\'开多\',colorred,1);
    
38. 
    
39. end
    
40. 
    
41. 
    
42. 
    
43. if trend=1 then begin
    
44. 
    
45. if prebarlow-trailingstop>stopprice then
    
46. 
    
47. stopprice:=prebarlow-trailingstop;
    
48. 
    
49.   
    
50. 
    
51. if low<=stopprice then begin
    
52. 
    
53.   trend:=-1;
    
54. 
    
55. stopprice:=prebarhigh+trailingstop;
    
56. 
    
57. drawicon(1,prebarhigh+trailingstop,9,0);
    
58. 
    
59. drawtext(1,prebarhigh+trailingstop,\'开空\',colorgreen,1);  
    
60. 
    
61. end
    
62. 
    
63. 
    
64. 
    
65. stickline(close>=open,high,close,1,1,colorred);
    
66. 
    
67. stickline(close>=open,close,open,10,1,colorred);
    
68. 
    
69. stickline(close>=open,open,low,1,1,colorred);
    
70. 
    
71. stickline(close
    
72. 
    
73. stickline(close
    
74. 
    
75. stickline(close
    
76. 
    
77. end
    
78. 
    
79. 
    
80. 
    
81. if trend=-1 then begin
    
82. 
    
83. if prebarhigh+trailingstop
    
84. 
    
85. stopprice:=prebarhigh+trailingstop;
    
86. 
    
87.   
    
88. 
    
89. if high>=stopprice then begin
    
90. 
    
91.   trend:=1;  
    
92. 
    
93. stopprice:=prebarlow-trailingstop;
    
94. 
    
95. drawicon(1,prebarlow-trailingstop,8,0);
    
96. 
    
97. drawtext(1,prebarlow-trailingstop,\'开多\',colorred,1);  
    
98. 
    
99. end
    
100. 
     
101. 
     
102. 
     
103. stickline(close>=open,high,close,1,1,colorgreen);
     
104. 
     
105. stickline(close>=open,close,open,10,1,colorgreen);
     
106. 
     
107. stickline(close>=open,open,low,1,1,colorgreen);
     
108. 
     
109. stickline(close
     
110. 
     
111. stickline(close
     
112. 
     
113. stickline(close
     
114. 
     
115. end
     
116. 
     
117. 
     
118. 
     
119. drawicon(trend=1,stopprice,10);
     
120. 
     
121. drawicon(trend=-1,stopprice,11);

复制代码