标题:
【Trimmean_a】
[打印本页]
作者:
龙听
时间:
2022-11-2 14:07
标题:
【Trimmean_a】
Inputs: TrimmeanArray[size](NumericArrayRef), VArraySize(Numeric), PcntExcluded(Numeric);
Variables: var0(0), var1(0), var2(0), var3(0);
condition1 = PcntExcluded > 0 AND PcntExcluded < 1 ;
If condition1 Then Begin
var2 = 0;
var1 = VArraySize * PcntExcluded;
var0 = IntPortion(var1) - IntPortion(Mod(var1, 2));
var3 = SortUp_a(TrimmeanArray, VArraySize);
For value1 = 1 + (var0 * .5) To VArraySize - (var0 * .5) Begin
var2 = var2 + TrimmeanArray[value1];
End;
Trimmean_a = var2 / (VArraySize - var0);
End
Else
Trimmean_a = -1;
复制代码
欢迎光临 龙听期货论坛 (http://qhlt.club/)
Powered by Discuz! 7.2