یک چیز دیگه، من تغییراتی که شما گفتینو اعمال کردم اما ارور داد و اجرا نشد
??? Error using ==> strrep
Not enough input arguments.
Error in ==> arithintcod at 49
tag = strcat(tag, strrep(sc, scale));
Error in ==> arithint at 9
btag=arithintcod(alpha,cnt,seq);