标题：[求助]请问有什么函数可以替代文华的TRMA三角移动平均？或者最接近的是哪个？

[求助]请问有什么函数可以替代文华的TRMA三角移动平均？或者最接近的是哪个？如果要自己编函数我就不会了。

详细解释一下TRMA的意思。

TRMA(X,N)

求X在N周期内的三角移动平均。

三角移动平均计算方法:第1种可能先算(奇数+1)/2周期移动平均,得出值再算这个值的(奇数+1)/2周期的移动平均. 第2种可能先算偶数/2周期移动平均,得出值再算这个值的(偶数/2+1)周期的移动平均，也就是先判断一下N是奇数还是偶数，然后再选对应的计算式。

 

runmode:1;
input:n(5,1,100,1);
variable:t1=0,t2=0;
var1:=close;

if mod(n,2)=1 then begin
 p1:=(n+1)/2;
 p2:=(n+1)/2;
end

if mod(n,2)=0 then begin
 p1:=n/2;
 p2:=n/2+1;
end

for i=1 to datacount do begin
 t1:=t1+var1[i];
 if i>=p1 then begin
  if i>p1 then
   t1:=t1-var1[i-p1];
  ma1[i]:=t1/p1; 
 end
end

for i=1 to datacount do begin
 t2:=t2+ma1[i];
 if i>=p2 then begin
  if i>p2 then
   t2:=t2-ma1[i-p2];
  ma2[i]:=t2/p2; 
 end
end

trma:ma2,colorred,linethick2;

非常感谢！

 

逐周期版本：

 

runmode:0;
input:n(5,1,100,1);
bound:=datacount;
variable:t1=0,t2=0,ma1[bound]=0;
var1:=close;

if mod(n,2)=1 then begin
 p1:=(n+1)/2;
 p2:=(n+1)/2;
end

if mod(n,2)=0 then begin
 p1:=n/2;
 p2:=n/2+1;
end

if barpos=1 then begin 
  for i=1 to datacount do begin
   t1:=t1+var1[i];
    if i>=p1 then begin
      if i>p1 then
      t1:=t1-var1[i-p1];
    ma1[i]:=t1/p1;     
  end
 end 
end

if barpos<=p2 then exit;

ma2:=ma1[barpos];
for i=1 to p2-1 do
 ma2:=ma2+ma1[barpos-i];
ma2:=ma2/p2;

trma:ma2,colorred,linethick2; 

n:=10;
if barpos < n then
  N:=barpos;
d:=c*0;
r:=intpart((n+1)/2);

s:=(n*n+n*2+(mod(n,2)=1))/4;

for i=0 to n-1 do

d:=d+ref(c,i)*if(i<r,i+1,n-i);

j:d/s;

 

这是另一个实现版本，可以同时在序列和逐周期运行

不错，学习了。