function write_yuv1(filename,Y,U,V)


for k=1:1:(size(Y,3))
    
    tt1=reshape((Y(:,:,k))',((size(Y,1))*(size(Y,2))),1);
    tt2=reshape((U(:,:,k))',((size(U,1))*(size(U,2))),1);
    tt3=reshape((V(:,:,k))',((size(V,1))*(size(V,2))),1);
    C(:,:,k) = horzcat(tt1',tt2',tt3');
end

e=reshape(C,1,((size(C,1))*(size(C,2))*(size(C,3))));
ee=e';

fid = fopen(filename,'w');
fwrite(fid,ee,'uint8');
fclose(fid);