line source
% Simple script to generate an HTML table of specwin types
%
% M Hewitson
%
% $Id:$
%
clear all;
fname = 'specwin_table.html';
fd = fopen(fname, 'w+');
wins = specwin('Types');
% {'Rectangular', 'Welch', 'Bartlett', 'Hanning', 'Hamming',...
% 'Nuttall3', 'Nuttall4', 'Nuttall3a', 'Nuttall3b', 'Nuttall4a',...
% 'Nuttall4b', 'Nuttall4c', 'BH92', 'SFT3F', 'SFT3M', 'FTNI', 'SFT4F', 'SFT5F',...
% 'SFT4M', 'FTHP', 'HFT70', 'FTSRS', 'SFT5M', 'HFT90D', 'HFT95', 'HFT116D',...
% 'HFT144D', 'HFT169D', 'HFT196D', 'HFT223D', 'HFT248D'};
for wn = wins
wn
w = specwin(char(wn), 100);
fprintf(fd, '<!-- %s -->\n', char(wn));
fprintf(fd, ' <tr valign="top">\n');
fprintf(fd, ' <td bgcolor="#F2F2F2">\n');
fprintf(fd, ' <p>%s</p>\n', char(wn));
fprintf(fd, ' </td>\n');
fprintf(fd, ' <td bgcolor="#F2F2F2">\n');
fprintf(fd, ' <p>%2.3f</p>\n', w.nenbw);
fprintf(fd, ' </td>\n');
fprintf(fd, ' <td bgcolor="#F2F2F2">\n');
fprintf(fd, ' <p>-%2.1f</p>\n', w.psll);
fprintf(fd, ' </td>\n');
fprintf(fd, ' <td bgcolor="#F2F2F2">\n');
fprintf(fd, ' <p>%2.1f</p>\n', w.rov);
fprintf(fd, ' </td>\n');
fprintf(fd, ' </tr>\n');
end
fclose(fd);