delete zeros rows and columns

i try do delete rows and columns that are zeros but it cut also part of shape .I use this code

u=I;
old=[];
new=all(~u);
while ~isequal(old,new)
    u(new,:)=0;
    old=new;
    new=all(~u);

end
 u(new,:)=[];
 u(:,new)=[];

       av=u;
       av(~any(u,2),:)=[];
   %radious of puple
  figure, imshow(av,[]);

so any other way to do that

Answer 1

[Jonathan Sullivan]

u = I;
zc = ~any(u);
u(:,zc) = [];
zr = ~any(u,2);
u(zr,:) = [];

[Isee You]

thank u "Jonathan Sullivan"

Answer 2

[Walter Roberson]

u = I;
zc = ~any(u);
zr = ~any(u,2);
u(zc,zr) = [];

imshow(u, []);

[Isee You]

i try this code but i get this error

Subscripted assignment dimension mismatch.

Error in first_step_to_final (line 110)

u(zc,zr) = [];

why? how to solve it

Answer 3

[Andrea]

data( all( ~any( data), 2 ), : ) = []; % removes all rows with all zero

data( :, all( ~any( data ), 1 ) ) = []; % and columns