[金字塔源码] 金字塔德马克指标源码[金字塔模型]

德马克这一阵火了，成了预测帝，他的TDSETUP和TDCOUNTDOWN指标在大智慧上改成了TS指标，但收费很高，且不是完全按德马克原意，与动态数据库相连也没办法修改。近日在理想论坛上看到一个，这个说老实话就差得更远。有哪位高手对此有研究，能否指点一二？主要是TDSETUP不能中断，而COUNTDOWN在碰到相反的TDSETUP出现时就要取消，因本人水平有限，想不出如何实现。本人编程能力实在是拿不出手，对个现成的模板做少许修补还能勉强凑合。附理想论坛通达信的TD模板。PS：在此贴出源码仅为交流方便，应该不算侵权吧？还望原作者海涵。

1. {TD准备}
   
2. A:=REF(C,1)>REF(C,4);
   
3. AB:=C<REF(C,4);
   
4. AA:A  AND  AB;
   
5. LS0:=BARSLAST(AA);
   
6. LS11:=IF(1,LS0=1,AA);
   
7. LS21:=IF(1,LLV(C,1)<REF(C,4),1);
   
8. A1:=LS11 AND LS21;
   
9. LS12:=IF(2,LS0=2,AA);
   
10. LS22:=IF(2,LLV(C,2)<REF(C,4),1);
    
11. A2:=LS12 AND LS22;
    
12. LS13:=IF(3,LS0=3,AA);
    
13. LS23:=IF(3,LLV(C,3)<REF(C,4),1);
    
14. A3:=LS13 AND LS23;
    
15. LS14:=IF(4,LS0=4,AA);
    
16. LS24:=IF(4,LLV(C,4)<REF(C,4),1);
    
17. A4:=LS14 AND LS24;
    
18. LS15:=IF(5,LS0=5,AA);
    
19. LS25:=IF(5,LLV(C,5)<REF(C,4),1);
    
20. A5:=LS15 AND LS25;
    
21. LS16:=IF(6,LS0=6,AA);
    
22. LS26:=IF(6,LLV(C,6)<REF(C,4),1);
    
23. A6:=LS16 AND LS26;//www.cxh99.com
    
24. LS17:=IF(7,LS0=7,AA);
    
25. LS27:=IF(7,LLV(C,7)<REF(C,4),1);
    
26. A7:=LS17 AND LS27;
    
27. LS18:=IF(8,LS0=8,AA);
    
28. LS28:=IF(8,LLV(C,8)<REF(C,4),1);
    
29. A8:=LS18 AND LS28;
    
30. LS19:=IF(9,LS0=9,AA);
    
31. LS29:=IF(9,LLV(C,9)<REF(C,4),1);
    
32. A9:=LS19 AND LS29;
    
33. 
    
34. DRAWTEXT(A1,L-0.3,\'1\'),COLORGREEN;
    
35. DRAWTEXT(A2,L-0.3,\'2\'),COLORGREEN;
    
36. DRAWTEXT(A3,L-0.3,\'3\'),COLORGREEN;
    
37. DRAWTEXT(A4,L-0.3,\'4\'),COLORGREEN;
    
38. DRAWTEXT(A5,L-0.3,\'5\'),COLORGREEN;
    
39. DRAWTEXT(A6,L-0.3,\'6\'),COLORGREEN;
    
40. DRAWTEXT(A7,L-0.3,\'7\'),COLORGREEN;
    
41. DRAWTEXT(A8,L-0.3,\'8\'),COLORGREEN;
    
42. DRAWTEXT(A9,L-0.3,\'9\'),COLORGREEN;
    
43. 
    
44. 
    
45. {TD13次倒数}
    
46. B:=C<=REF(L,2);
    
47. LSP:=BARSLAST(A9);
    
48. LS11A:=IF(1,LSP=1,B);
    
49. LS21A:=IF(1,LLV(C,1)<REF(L,2),1);
    
50. D1:=LS11A AND LS21A;
    
51. LS12A:=IF(2,LSP=2,B);
    
52. LS22A:=IF(2,LLV(C,2)<REF(L,2),1);
    
53. D2:=LS12A AND LS22A;
    
54. LS13A:=IF(3,LSP=3,B);
    
55. LS23A:=IF(3,LLV(C,3)<REF(L,2),1);
    
56. D3:=LS13A AND LS23A;
    
57. LS14A:=IF(4,LSP=4,B);
    
58. LS24A:=IF(4,LLV(C,4)<REF(L,2),1);
    
59. D4:=LS14A AND LS24A;
    
60. LS15A:=IF(5,LSP=5,B);
    
61. LS25A:=IF(5,LLV(C,5)<REF(L,2),1);
    
62. D5:=LS15A AND LS25A;
    
63. LS16A:=IF(6,LSP=6,B);
    
64. LS26A:=IF(6,LLV(C,6)<REF(L,2),1);
    
65. D6:=LS16A AND LS26A;
    
66. LS17A:=IF(7,LSP=7,B);//cxh99.com
    
67. LS27A:=IF(7,LLV(C,7)<REF(L,2),1);
    
68. D7:=LS17A AND LS27A;
    
69. LS18A:=IF(8,LSP=8,B);
    
70. LS28A:=IF(8,LLV(C,8)<REF(L,2),1);
    
71. D8:=LS18A AND LS28A;
    
72. LS19A:=IF(9,LSP=9,B);
    
73. LS29A:=IF(9,LLV(C,9)<REF(L,2),1);
    
74. D9:=LS19A AND LS29A;
    
75. LS10A:=IF(10,LSP=10,B);
    
76. LS20A:=IF(10,LLV(C,10)<REF(L,2),1);
    
77. D10:=LS10A AND LS20A;
    
78. LS110A:=IF(11,LSP=11,B);
    
79. LS210A:=IF(11,LLV(C,11)<REF(L,2),1);
    
80. D11:=LS110A AND LS210A;
    
81. LS120A:=IF(12,LSP=12,B);
    
82. LS220A:=IF(12,LLV(C,12)<REF(L,2),1);
    
83. D12:=LS120A AND LS220A;
    
84. LS130A:=IF(13,LSP=13,B);
    
85. LS230A:=IF(13,LLV(C,13)<REF(L,2),1);
    
86. D13:=LS130A AND LS230A;
    
87. 
    
88. 
    
89. DRAWTEXT(D1,L-0.6,\'1\'),COLORRED;
    
90. DRAWTEXT(D2,L-0.6,\'2\'),COLORRED;
    
91. DRAWTEXT(D3,L-0.6,\'3\'),COLORRED;
    
92. DRAWTEXT(D4,L-0.6,\'4\'),COLORRED;
    
93. DRAWTEXT(D5,L-0.6,\'5\'),COLORRED;
    
94. DRAWTEXT(D6,L-0.6,\'6\'),COLORRED;
    
95. DRAWTEXT(D7,L-0.6,\'7\'),COLORRED;
    
96. DRAWTEXT(D8,L-0.6,\'8\'),COLORRED;
    
97. DRAWTEXT(D9,L-0.6,\'9\'),COLORRED;
    
98. DRAWTEXT(D10,L-0.6,\'10\'),COLORRED;
    
99. DRAWTEXT(D11,L-0.6,\'11\'),COLORRED;
    
100. DRAWTEXT(D12,L-0.6,\'12\'),COLORRED;
     
101. DRAWTEXT(D13,L-0.6,\'13\'),COLORRED;

复制代码