Board logo

标题: 【Rank】 [打印本页]
作者: 龙听    时间: 2022-11-2 11:53     标题: 【Rank】

  1. Inputs: RankNum(Numeric), PriceValue(Numeric), Len(Numeric), SOrder(Numeric);
  2. Variables: var0(0);
  3. Array: arr0[1000](0);

  5. condition1 = MinList(Len, RankNum) > 0 AND MaxList(Len, RankNum) <= 1000 ;
  6. If condition1 Then Begin
  7.         For value1 = 1 To Len Begin
  8.                 arr0[value1] = PriceValue[value1-1];
  9.         End;               
  10.         For value1 = 1 To Len-1 Begin
  11.         condition1 = arr0[value1] > arr0[value1+1] ;
  12.                 If condition1 Then Begin
  13.                         var0 = arr0[value1];
  14.                         arr0[value1] = arr0[value1+1];
  15.                         arr0[value1+1] = var0;
  16.                         value1 = 0;
  17.                 End;
  18.         End;
  19.         If SOrder > 0 Then
  20.                 Rank = arr0[RankNum]
  21.         Else
  22.                 Rank = arr0[Len - RankNum + 1];
  23. End;
复制代码




欢迎光临 龙听期货论坛 (http://www.qhlt.cn/) Powered by Discuz! 7.2