I=imread('karakterek_MS2','jpg');
I=double(I);
I=127.5*sign(128-I)+127.5;
si=sum(I(205:240,:));
sil=length(si);
di=si(1:sil-1)-si(2:sil);
k=1;
while si(k)>= si(k+1)
   k=k+1;
end
k
k=k+1;bal=k;
while not(si(k)>0 & si(k+1)==0)
   k=k+1;
end
k
jobb=k;
y=I(220:238,150:162);
yt=bwmorph(y,'thin',Inf);
sb=sum(I(205:240,bal:jobb)');
figure(4)
%image(I(205:240,:)/8)
imagesc(yt)
colormap(gray)
figure(2)
plot(sb)