【Skew_a】
[code]Inputs: SkewArray[size](NumericArrayRef), VArraySize(Numeric);Variables: var0(0), var1(0), var2(0), var3(0);
If VArraySize <= size Then Begin
var1 = Average_a(SkewArray, VArraySize);
var2 = StdDevS_a(SkewArray, VArraySize);
var0 = 0;
var3 = VArraySize / ((VArraySize - 1) * (VArraySize - 2));
For value1 = 1 TO VArraySize Begin
var0 = var0 + Power((SkewArray[value1] - var1) / var2, 3);
End;
Skew_a = var3 * var0;
End
Else
Skew_a = -1;
[/code]
页:
[1]