clc
clear all;
a=readfis('shuntAF.fis');


%%  1891 spamle
one=1;
K1=1/30; K2=1/300; K3=1/200;
for s= -30:2:30        % Range of input (e)
    for q= -300:10:300     % Range of input (de)
        fprintf('%3.3f %3.3f %1d ;',s*K1,q*K2,one);
        fprintf('\n');
    end
end

fprintf('\n \n');

for s= -30:2:30        % Range of input (e)
    for q= -300:10:300     % Range of input (de)
        z=evalfis([s,q],a);
        fprintf('%3.3f; ',z*K3);
    end
end

%% How to store the O/P to varible ?  The following is an example
% u6 =[-0.100 -0.010 1 ;
%-0.100 -0.007 1 ;
%-0.100 -0.003 1 ;
%-0.100 0.000 1 ;
%0.100 0.007 1 ;
%0.100 0.010 1 ;]
%
% save u6 u6;      % u6.mat
%
% load u6          % u6 matrix restored