Mercurial > hg > ltpda

comparison m-toolbox/html_help/help/ug/mk_specwin_table.m @ 0:f0afece42f48

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import.
author Daniele Nicolodi <nicolodi@science.unitn.it>
date Wed, 23 Nov 2011 19:22:13 +0100
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:f0afece42f48
1 % Simple script to generate an HTML table of specwin types
2 %
3 % M Hewitson
4 %
5 % $Id:$
6 %
7
8 clear all;
9
10
11 fname = 'specwin_table.html';
12
13 fd = fopen(fname, 'w+');
14
15 wins = specwin('Types');
16 % {'Rectangular', 'Welch', 'Bartlett', 'Hanning', 'Hamming',...
17 % 'Nuttall3', 'Nuttall4', 'Nuttall3a', 'Nuttall3b', 'Nuttall4a',...
18 % 'Nuttall4b', 'Nuttall4c', 'BH92', 'SFT3F', 'SFT3M', 'FTNI', 'SFT4F', 'SFT5F',...
19 % 'SFT4M', 'FTHP', 'HFT70', 'FTSRS', 'SFT5M', 'HFT90D', 'HFT95', 'HFT116D',...
20 % 'HFT144D', 'HFT169D', 'HFT196D', 'HFT223D', 'HFT248D'};
21
22 for wn = wins
23
24 wn
25 w = specwin(char(wn), 100);
26
27 fprintf(fd, '<!-- %s -->\n', char(wn));
28 fprintf(fd, ' <tr valign="top">\n');
29 fprintf(fd, ' <td bgcolor="#F2F2F2">\n');
30 fprintf(fd, ' <p>%s</p>\n', char(wn));
31 fprintf(fd, ' </td>\n');
32 fprintf(fd, ' <td bgcolor="#F2F2F2">\n');
33 fprintf(fd, ' <p>%2.3f</p>\n', w.nenbw);
34 fprintf(fd, ' </td>\n');
35 fprintf(fd, ' <td bgcolor="#F2F2F2">\n');
36 fprintf(fd, ' <p>-%2.1f</p>\n', w.psll);
37 fprintf(fd, ' </td>\n');
38 fprintf(fd, ' <td bgcolor="#F2F2F2">\n');
39 fprintf(fd, ' <p>%2.1f</p>\n', w.rov);
40 fprintf(fd, ' </td>\n');
41 fprintf(fd, ' </tr>\n');
42
43
44 end
45
46
47 fclose(fd);
48