龙听期货论坛's Archiver

C
+
+
版
量
化		 微信： QQ：

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

【SortUp_a】

[code]Inputs: SortArray[size](NumericArrayRef), VArraySize(Numeric);
Variables: var0(0);
                                                                                                     

SortUp_a = -1;

condition1 = MinList(size, VArraySize) > 1 AND VArraySize <= size ;
If condition1 Then Begin
        For value1 = 1 To VArraySize - 1 Begin
                For value2 = Value1 + 1 To VArraySize Begin
                condition1 = SortArray[value1] > SortArray[value2] ;
                        If condition1 Then Begin                       
                                var0 = SortArray[value1];
                                SortArray[value1] = SortArray[value2];
                                SortArray[value2] = var0;
                        End;
                End;
        End;
End;

SortUp_a = 1;
[/code]

页: [1]