timing QRFact

#{

Gemessene Zeiten
Oben: Mit find
Unten: Ohne find

>> test(A1,1000)
Elapsed time is 0.016741 seconds.
Elapsed time is 0.0168991 seconds.
>> test(A1,100000)
Elapsed time is 0.0150471 seconds.
Elapsed time is 0.0165188 seconds.
>> test(A1,1000000)
Elapsed time is 0.0162051 seconds.
Elapsed time is 0.0188031 seconds.
>>

#}

function [] = test(A1, n)
  disp("QRFact")
  tic
  for i=1:n
    [A, D, p , k ] = QRFact(A1);
  end
  toc
  disp("QRFact2")
  tic
  for i=1:n
    [A, D, p , k ] = QRFact2(A1);
  end
  toc
end