龙听期货论坛's Archiver

C
+
+
版
量
化		 微信： QQ：

龙听 发表于 2022-11-2 13:23

【StandardError_a】

[code]Inputs: IndArray[Xsize](NumericArrayRef), DepArray[Ysize](NumericArrayRef), VArraySize(Numeric);
Variables: var0(0), var1(0), var2(0), var3(0), var4(0), var5(0), var6(0), var7(0), var8(0);
                                                                                                     
condition1 = MinList(Xsize, Ysize, VArraySize) > 0 ;
If condition1 Then Begin
        var0 = 0;
        var1 = 0;
        var2 = 0;
        For value1 = 1 To VArraySize Begin
                var0 = var0 + (IndArray[value1] * DepArray[value1]);
                var1 = var1 + Square(IndArray[value1]);
                var2 = var2 + Square(DepArray[value1]);
        End;
        var3 = Summation_a(IndArray, VArraySize);
        var4 = Summation_a(DepArray, VArraySize);
        var5 = (VArraySize * var2) - Square(var4);
        var6 = Square((VArraySize * var0) - (var3 * var4));
        var7 = (VArraySize * var1) - Square(var3);
       
        If var7 <> 0 Then Begin
                var8 = (1 / (VArraySize * (VArraySize - 2))) * (var5 - (var6 / var7));
                StandardError_a = SquareRoot(var8);
        End
        Else
                StandardError_a = -1;
End
Else
        StandardError_a = -1;
[/code]

页: [1]