function CodigoGenerado=encod(fs,cb,CodigoGenerado,str,lp)
idx=find(cb(:,1)==fs);
x=cb(idx,2);
y=cb(idx,3);
 if x<=lp & y<=lp
     CodigoGenerado(x)=strcat(str,CodigoGenerado(x));
     CodigoGenerado(y)=strcat(str,CodigoGenerado(y));
     return
 elseif x<=lp
     CodigoGenerado(x)=strcat(str,CodigoGenerado(x));
     CodigoGenerado=encod(y,cb,CodigoGenerado,str,lp);
 elseif y<=lp
     CodigoGenerado(y)=strcat(str,CodigoGenerado(y));
     CodigoGenerado=encod(x,cb,CodigoGenerado,str,lp);
 else
     CodigoGenerado=encod(x,cb,CodigoGenerado,str,lp);
     CodigoGenerado=encod(y,cb,CodigoGenerado,str,lp);
 end