龙听期货论坛's Archiver

C
+
+
版
量
化		 微信： QQ：

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

【SortDown_a】

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

SortDown_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;

SortDown_a = 1;
[/code]

页: [1]