clear all; close all; clc;
addpath('octave');

x = readbin('dat/x.dat');
if(isreal(x))
    writebin(x, 0, 'dat/y.dat');
else
    writebin(x, 1, 'dat/y.dat');
end