技术因子计算

<table class="text"><tr class="li1">
<td class="ln"><pre class="de1">1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34

方法是一样的，区别在于移动平均线是以每日收盘价计算的，而变异平均线则是用每日的开盘价、收盘价、最高价和最低价相加后除以4得出的数据计算平均线。   (open_price + close_price + top_price + bottom_price)/4 = vma   指数平均数指标也叫EXPMA指标，它也是一种趋向类指标，其构造原理是仍然对价格收盘价进行算术平均，并根据计算结果来进行分析，用于判断价格未来走势的变动趋势。       EXPMA＝（当日或当期收盘价－上一日或上期EXPMA）／Ｎ＋上一日或上期EXPMA   EXPMA<- function(today_close_price,yesterday_exmpa,N){                 yesterday_exmpa + (today_close_price - yesterday_exmpa)/N }     EXPMA <- function(price,n){         for (i in 1:length(price)){                         if ((n == 0) | (n == 1)){     out = 1     } else {     out = Fubini(n-1)+Fubini(n-2)       }   return(out)           }   }       http://www.10jqka.com.cn/ex_info/man_html/f4-2.htm#19 Fubini(5) sapply(0:30,Fubini)