zeditdata.m

neural fault finding relay

function zeditdata(fn1)
%change the following line according to the data

fn1=uigetfile({'*.out'},'Open data file');%fn1='b5050_01.out'
numline=6501;%numline=100;
%fn1 column
%col1head='t';
col2head='Z';%col2head='V';
col3head='I';%col3head='I';
col4head='V';%col4head='Z';

%----------------------------------------------
% editing file 1
[FID,MSG]=fopen(fn1,'rt');

sgcol=fscanf(FID,'%f');
fclose(FID);
numcol=length(sgcol)/numline;%numcol=length(sgcol)/numline;
table=reshape(sgcol,numcol,numline);
col2=table(2,:);
[FID,MSG]=fopen(strcat(col2head,fn1),'wt');
fprintf(FID,'%f\n',col2);
fclose(FID);
col3=table(3,:);
[FID,MSG]=fopen(strcat(col3head,fn1),'wt');
fprintf(FID,'%f\n',col3);
fclose(FID);
col4=table(4,:);
[FID,MSG]=fopen(strcat(col4head,fn1),'wt');

fprintf(FID,'%f\n',col4);
fclose(FID);