【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]