WH SelfInvest (Support) Forum

Code: Select all

express bubblesort;

vars
series closeSortedSeries;
array closeSorted[1];
numeric i, j, swap, swapped;

calculation
if IsFirstBar() then
begin
  SetArraySize(closeSorted, FinalBarIndex()+1);
end
closeSorted[CurrentBarIndex()] = close;

// Sort
if IsFinalBar() then
begin
  for i = CurrentBarIndex() - 1 downto 0
  begin
    swapped = 0;
    for j = 0 to i
    begin
      if (closeSorted[j] > closeSorted[j+1]) then
      begin
        swap = closeSorted[j];
        closeSorted[j] = closeSorted[j+1];
        closeSorted[j+1] = swap;
        swapped = 1;
      end
    end
    if (swapped = 0) then
      i = -1;
  end
end

// Array -> Series
for i = 0 to GetArraySize(closeSorted) - 1
begin
  closeSortedSeries[CurrentBarIndex()-i] = closeSorted[i];
end

interpretation
begin
end

plot(close,lightblue,1);
plot(closeSortedSeries,lightred,1);