龙听期货论坛's Archiver

C
+
+
版
量
化		 微信： QQ：

龙听 发表于 2022-11-2 10:09

【Kurtosis_a】

[code]Inputs: KurtosisArray[size](NumericArrayRef), VArraySize(Numeric);
Variables: var0(0), var1(0), var2(0), var3(0), var4(0);
                                                                                                     
condition1 = MinList(VArraySize, VArraySize) > 3 ;
If condition1 Then Begin
        var0 = VArraySize * (VArraySize + 1) / ((VArraySize - 1) * (VArraySize - 2) * (VArraySize - 3));
        var2 = 3 * Square(VArraySize - 1) / ((VArraySize - 2) * (VArraySize - 3));
        var3 = Average_a(KurtosisArray, VArraySize);
        var4 = StdDevS_a(KurtosisArray, VArraySize);

        If var4 <> 0 Then Begin
                var1 = 0;
                For value1 = 1 To VArraySize Begin
                        var1 = var1 + Power((KurtosisArray[value1] - var3) / var4, 4);
                End;
                Kurtosis_a = var0 * var1 - var2;
        End
        Else
                Kurtosis_a = 0;
End
Else
        Kurtosis_a = 0;
[/code]

页: [1]