inpfile.m

neural fault finding relay

% This function reads from input file containing
% data set in a row. The returning value is the
% data set in a column for NN input
function input=inpfile(filename,numdata)
filename='Wb5050_01.out';
numdata=6482;
inpnum=numdata;
[FID,MSG]=fopen(filename,'rt');
matrix=fscanf(FID,'%f');
fclose(FID);
passnum=length(matrix)/inpnum;
input=reshape(matrix,inpnum,passnum);
[RVB,MSG]=fopen(strcat('o',filename),'wt');
fprintf(RVB,'%d\n',input);
fclose(RVB);