龙听期货论坛's Archiver

C
+
+
版
量
化		 微信： QQ：

龙听 发表于 2022-11-2 14:07

【Trimmean_a】

[code]
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;
[/code]

页: [1]