deleting separate zeros from vector

I need to remove separate zeros from a series of numbers. But if zeros repeat, I need to keep them.

example of vector:

A = [ 0 0 1 0 0 0 1 0 1 0 0 1 5 9 8 2 0 3 0 1 0 0 0 ];

result:

A = [ 0 0 1 0 0 0 1 1 0 0 1 5 9 8 2 3 1 0 0 0 ];

Answer 1

[Rik]

It took a bit of thinking, but here is a oneliner:

A = [ 0  0  1  0  0  0 1  0 1  0  0  1  5  9  8  2  0  3  0  1  0  0  0 ];
A(conv([NaN A]==0,[-1 1 -1])==1)=[];
A

A = 1×20

0 0 1 0 0 0 1 0 1 0 1 5 9 8 2 0 3 1 0 0

Thanks to @Alan Stevens for the idea of converting A to a logical and ignoring it for the rest of the processing.

[Legally Blonde]

Thank you so much for the quick answers! You're great! I will certainly use the answers to other problems in the processing of my meteorological data.

Answer 2

[Alan Stevens]

Here's one way (there is probably a slicker way!):

A = [ 0  0  1  0  0  0 1  0 1  0  0  1  5  9  8  2  0  3  0  1  0  0  0 ];
ix = find(A~=0);
it = find(abs(diff(ix))==2);
remove = ix(it+1)-1;
A(remove)=[]

A = 1×20

0 0 1 0 0 0 1 1 0 0 1 5 9 8 2 3 1 0 0 0