function [ytut1,ytut2,ytut3,ytut4]=fenk(A)
ys1=A(:,1:256);
ys2=A(:,257:512);
ys3=A(:,513:768);
ys4=A(:,769:1024);
yss1=reshape(ys1,1,256*256);
yss2=reshape(ys2,1,256*256);
yss3=reshape(ys3,1,256*256);
yss4=reshape(ys4,1,256*256);
ytut1=yasuof(yss1,501);
ytut2=yasuof(yss2,501);
ytut3=yasuof(yss3,501);
ytut4=yasuof(yss4,501);
fid=fopen('yt1.bin','w');
count=fwrite(fid,ytut1,'integer*2');
fclose(fid);
fid=fopen('yt2.bin','w');
count=fwrite(fid,ytut1,'integer*2');
fclose(fid);
fid=fopen('yt3.bin','w');
count=fwrite(fid,ytut1,'integer*2');
fclose(fid);
fid=fopen('yt4.bin','w');
count=fwrite(fid,ytut1,'integer*2');
fclose(fid);