function newP = translocate ( time, oldP )

% fprintf( 'translocation %4.2f\n', time );

%THIS CODE DOES NO TRANSLOCATION - HAS TO BE INCLUDED AS A MINIMUM
newP = oldP;

% THIS CODE MOVES ONE BIRD FROM THE HIGHEST DENSITY TO LOWEST DENSITY AT
% EACH TIME POINT
% [ minPop minIndex ] = min ( newP );
% [ maxPop maxIndex ] = max ( newP );
% newP( maxIndex ) = newP( maxIndex ) - 1;
% if rand > 0.2
%     newP( minIndex ) = newP( minIndex ) + 1;
% end

%THIS CODE MOVES 20 BIRDS FROM THE HIGHEST TO THE LOWEST, BUT ONLY AT THE
%START
% if time == 0
%     numMoved = 0;
%     done = false;
%     while numMoved<20 && ~done
%         [ minPop minIndex ] = min ( newP );
%         [ maxPop maxIndex ] = max ( newP );
%         if minPop == maxPop
%             done = true;
%         else
%             newP( maxIndex ) = newP( maxIndex ) - 1;
%             if rand > 0.2
%                 newP( minIndex ) = newP( minIndex ) + 1;
%             end
%             numMoved = numMoved + 1;
%         end
%     end
% end

return
end