Z = [3 4 3 3]; % входной вектор

Z(Z==0) = []; % избавляемся от нулей
Z = wextend('1','zpd',Z,4-size(Z,2),'r'); % возвращаем длину вектора к 4

A = Z(1); sA = sign(A);
B = Z(2); sB = sign(B);
C = Z(3); sC = sign(C);
D = Z(4); sD = sign(D);

B1 = A == B;
B2 = B == C;
B3 = C == D;

if B1,
    if B3, Z = [A+sB C+sD 0 0];
    else Z = [A+sB C D 0];
    end
else
    if B2, Z = [A B+sC D 0];
    elseif B3, Z = [A B C+sD 0];
    end
end

disp(Z);