function creator(v)
%v=not(imread(filenamedata));
[n,m]=size(v);
while (sum(v(1,:))<n/20)&&(n>2),
    v=v(2:n,1:m);
    [n,m]=size(v);
end

while (sum(v(:,1))<m/20)&&(m>2),
    v=v(1:n,2:m);
    [n,m]=size(v);
end

while (sum(v(n,:))<n/20)&&(n>2),
    v=v(1:n-1,1:m);
    [n,m]=size(v);
end

while (sum(v(:,m))<m/20)&&(m>2),
    v=v(1:n,1:m-1);
    [n,m]=size(v);
end

imshow(v);
x=14;y=10;%kich thuoc ma tran goc!
px=floor(n/x);
py=floor(m/y);
dat=zeros(x*(px+1),y*(py+1));
dat(1:n,1:m)=v;
%    ==================================  
data=[];
for i=0:x-1,
     for j=0:y-1,        
     s=sum(sum(dat(1+i*px:i*px+px,1+j*py:j*py+py)))>px*py/10;   
     data=[data;s];     
     end    
end
r = input('enter number o ralpabet: ','s');
if (r<58)&&(r>47),
[f,mes]=fopen('numberinput.m','a+');
fprintf(f,'v=[');
fprintf(f,'%2d %2d %2d %2d %2d %2d %2d %2d %2d %2d ...\n',data);  
fprintf(f,']'';\n');
fprintf(f,'s=[s,v];\n');
fclose(f);
%----------------------
ds=[0 0 0 0 0 0 0 0 0 0];
[f,mes]=fopen('numberoutput.m','a+');
ds(r-47)=1;
fprintf(f,'v=[%2d %2d %2d %2d %2d %2d %2d %2d %2d %2d];\n',ds);
fprintf(f,'s=[s;v];\n');
fclose(f);
%-----------------------------------------------------------
elseif (r<91)&&(r>64),
  [f,mes]=fopen('charinput.m','a+');
fprintf(f,'v=[');
fprintf(f,'%2d %2d %2d %2d %2d %2d %2d %2d %2d %2d ...\n',data);  
fprintf(f,']'';\n');
fprintf(f,'s=[s,v];\n');
fclose(f);
%----------------------
ds=[0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0];
[f,mes]=fopen('charoutput.m','a+');
ds(r-64)=1;
fprintf(f,'v=[%2d %2d %2d %2d %2d %2d %2d %2d %2d %2d %2d %2d %2d %2d %2d %2d %2d %2d %2d %2d %2d %2d %2d %2d %2d %2d];\n',ds);
fprintf(f,'s=[s;v];\n');
fclose(f);  
    
end