【Mode_a】
[code]Inputs: ModeArray[size](NumericArrayRef), VArraySize(Numeric), Type(Numeric);Variables: var0(0), var1(1), var2(0), var3(-1);
condition1 = MinList(size, VArraySize) > 1 ;
If condition1 Then Begin
var0 = SortUp_a(ModeArray, VArraySize);
var1 = 0;
var2 = 0;
For value1 = 1 To VArraySize - 1 Begin
condition1 = ModeArray[value1] = ModeArray[value1 + 1] ;
If condition1 Then
var1 = var1 + 1
Else
var1 = 1;
condition1 = var1 <> 1 AND var1 >= var2 ;
If condition1 Then Begin
If var1 > var2 Then Begin
var3 = ModeArray[value1];
var2 = var1;
End
Else
If Type >= 0 Then
var3 = ModeArray[value1];
End;
End;
End;
Mode_a = var3;
[/code]
页:
[1]