龙听期货论坛's Archiver

C
+
+
版
量
化		 微信： QQ：

龙听 发表于 2022-11-2 11:01

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