function?[zipperinfo]=RLEencode（vector）
[mn]=size（vector）;
vector=uint8（vector（:））;
L=length（vector）
c=vector（1）;
e（11）=c;
e（12）=0;
t1=1;
for?j=1:L
????if（vector（j）==c）
????????e（t12）=double（e