請教EMA及TEMA的指標寫法

a9108118

板上各位大大晚安
我是剛入門學習程式交易的新手
在網路上看到EMA感覺比SMA還好很多
但無奈功力不足
跪求神人們指教在TS要寫個EMA和TEMA自設指標要怎麼寫呢?
非常感謝

kilroy

小弟剛去網路找了一下 參考看看哩

1. input:FastDay(6),SlowDay(12);
   
2. variable:EMA_F(0),EMA_S(0);
   
3. EMA_F = EMA_F[1] * ((FastDay - 1) / FastDay) + close * ( 1 / FastDay);
   
4. EMA_S = EMA_S[1] * ((SlowDay - 1) / SlowDay) + close * ( 1 / SlowDay);

複製代碼

kilroy

1. /******************************************************************************************
   
2. 
   
3. Description: This Indicator plots Exponential Moving Average (EMA) indicator
   
4. 
   
5. Provided By: eSignal, a division of Interactive Data Corporation. Copyright  2002   
   
6. 
   
7. ******************************************************************************************/
   
8. 
   
9. function preMain() {
   
10. 
    
11.     setPriceStudy(true);
    
12. 
    
13. }
    
14. 
    
15. 
    
16. 
    
17. var dLastMA = 0.0;
    
18. 
    
19. var dThisMA = 0.0;
    
20. 
    
21. var dPercent = 0.0;
    
22. 
    
23. var dCount = 0;
    
24. 
    
25. var bPrimed = false;
    
26. 
    
27. 
    
28. 
    
29. 
    
30. 
    
31. function main(nInputLength) {
    
32. 
    
33.     if(nInputLength == null)
    
34. 
    
35.         nInputLength = 50;
    
36. 
    
37. 
    
38. 
    
39.         var nBarState = getBarState();
    
40. 
    
41.     var i;
    
42. 
    
43.         var dValue;
    
44. 
    
45.         var dSum = 0.0;
    
46. 
    
47. 
    
48. 
    
49.         if(nBarState == BARSTATE_ALLBARS) {
    
50. 
    
51.                 // reset!
    
52. 
    
53.                 dPercent = (2.0 / (nInputLength + 1.0));
    
54. 
    
55.                 dLastMA = 0.0;
    
56. 
    
57.                 dThisMA = 0.0;
    
58. 
    
59.                 dCount = 0;
    
60. 
    
61.         }
    
62. 
    
63. 
    
64. 
    
65.         if(nBarState == BARSTATE_NEWBAR) {
    
66. 
    
67.                 dLastMA = dThisMA;
    
68. 
    
69.         }
    
70. 
    
71.         dThisMA = dLastMA;
    
72. 
    
73. 
    
74. 
    
75.         if(bPrimed == false) {
    
76. 
    
77.             dValue = getValue("Close", 0, -nInputLength);
    
78. 
    
79.                 if(dValue == null)
    
80. 
    
81.                         return;
    
82. 
    
83. 
    
84. 
    
85.             for(i = 0; i < nInputLength; i++) {
    
86. 
    
87.                     dSum += dValue[i];
    
88. 
    
89.             }
    
90. 
    
91. 
    
92. 
    
93.                 dLastMA = dSum / nInputLength;
    
94. 
    
95.                 dThisMA = dLastMA;
    
96. 
    
97. 
    
98. 
    
99.                 bPrimed = true;
    
100. 
     
101.         } else {
     
102. 
     
103.                 dValue = getValue("Close");
     
104. 
     
105.                 if(dValue == null)
     
106. 
     
107.                         return;
     
108. 
     
109. 
     
110. 
     
111.                 dThisMA = (dValue - dLastMA) * dPercent + dLastMA;
     
112. 
     
113.         }
     
114. 
     
115. 
     
116. 
     
117. 
     
118. 
     
119.         return dThisMA;
     
120. 
     
121. 
     
122. 
     
123. }

複製代碼

bacardi

寬哥真的太熱心了, AB, TS都拿手

kilroy

寬哥真的太熱心了, AB, TS都拿手
bacardi 發表於 11-8-30 07:30 PM

   網路找到 XD
   因為 元大MC 今天開通了

   要來 K 一下哩

a9108118

寬哥
太感謝您了
請受小第一拜

a9108118

寬哥
小弟去看函數裡面Xaverage的算法
Factor = 2 / (Length + 1)
XAverage = Price*Factor +XAverage[1]*(1 - Factor)

好像就是EMA的計算公式
EMA=Price*(2/N+1)+EMA[1]*（ 1-(2/N+1)）

kilroy

大大客氣了，小弟只是上網找語法啦

我應該是沒幫上忙 XD

cxwh

看看这个是不是你要的效果！

1. Inputs: Price1(Numeric), Length(Numeric);
   
2. Variables: Factor(0),EMAA(0);
   
3. 
   
4. If CurrentBar = 1 Then
   
5. EMAA = Price1
   
6. Else If CurrentBar <= Length -1 Then begin
   
7. Factor = 2 / (CurrentBar + 1);
   
8. EMAA = Price1 * Factor + (1 - Factor) * EMA[1];
   
9. end
   
10. Else begin
    
11. Factor = 2 / (Length + 1);
    
12. EMAA = Factor * Price1 + (1 - Factor) * EMA[1];
    
13. End ;
    
14. 
    
15. EMA=EMAA;

複製代碼

cxwh

TEMA:

1. 
   
2. Inputs:
   
3.   Length(14);
   
4. Vars:
   
5. EMAValue(0),
   
6. DbEMAValue(0);
   
7. EMAValue = XAverage(Close,Length);
   
8. DbEMAValue = XAverage(EMAValue,Length);
   
9. plot1(3*EMAValue -  3*DbEMAValue+ XAverage(DbEMAValue,Length),"TEMA");
   

複製代碼

papiliolin

感謝分享程式碼
也許用TEMA的上升 或 下降 當作當前趨勢的確認也不錯

papiliolin

TEMAL1=(3*xaverage(close,L1)) - (3 * xaverage(xaverage(close,L1),L1)) +  (xaverage(xaverage(xaverage(close,L1),L1),L1));

以上是從multicharts國外網站抓下來的
程式碼更精簡了
只要設定L1就可以了