rotina SetVector otmizada