% attempts to zero the first column of tensor t by Householder rotations

function [t,nmin] = tzerocol(t)

threshold = eps;

d = 3;
[t,h,n,s] = tmincol(t,d);
nmin = n;
nold = n+threshold+1;
clc;home;disp(0);disp(nmin)

iter = 1;
while nold-nmin > threshold,
  d = 5-d;
  [t,h,n,s] = tmincol(t,d);
  if n >= nmin, break, end
  nold = nmin;
  nmin = n;
  home;disp(iter);disp(nmin)
  iter = iter+1;
end
