zsimnver.m

neural fault finding relay

% net ==> the network name
% fntest ==> the test data file
% ofntest ==> desired output file
% output ===> desired output variable
% sfntest ==> simulation result
% hlfntest => simulation result in binary
% binout ===> simulation binary result variable
% vfntest ==> verification file
function zsimnver(net,fntest,thresh)
fdesout=strcat('o',fntest);
fsimresult=strcat('s',fntest);
fbinresult=strcat('hl',fntest);
fverification=strcat('v',fntest);
test=inpfile(fntest,20);
simout=sim(net,test);
simout=simout';
[FID,MSG]=fopen(fsimresult,'wt');
fprintf(FID,'%d \n',simout);
fclose(FID);
binout=hardlim(simout-thresh);

%============= verify ================
[FID,MSG]=fopen(fdesout,'rt');
output=fscanf(FID,'%f');
fclose(FID);
fail=(binout|output)&(~binout|~output); %XOR
A=sum(fail);
B=length(fail);
[FID,MSG]=fopen(fverification,'wt');
fprintf(FID,'%d \n',fail);
fprintf(FID,'\n\n Number of failure: %d out of %d ==>%3.1f %% error',A,B,A/B*100);
fclose(FID);