Sorting a matrix?

[DrD]

This is bulky, but seems to work (better ideas?):

Code:


EXPORT sm(N)
BEGIN
  
  M1:=CAS("randMat(N,3,ip(1..10))");     //  Generate random M1(N,3) cut list: M1[#pieces,length,width] of N patterns 

  for I from 1 to length(M1) do          
    M1(I,4):=M1(I,2)*M1(I,3);            //  Create column 4, M1[#pieces,length,width,area]   
  end;

  for I from 1 to length(M1) do
    for J from I+1 to length(M1) do
      IF M1(I,4)<M1(J,4) then SWAPROW(M1,J,I); end;  //  Sort column 4 in decreasing order
    end;  // J
  end;  // I

  for I from 1 to length(M1)-1 do
    for J from I+1 to length(M1) do
      IF (M1(I,4)==M1(J,4)) AND (M1(I,2)<M1(J,2)) then SWAPROW(M1,I,J); end;  // Then sort column 2 decreasing, if equal col 4 values
    end; // j
  end;  // I
  
END;

tnx,

-Dale-