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