Mercurial > hg > ltpda
view m-toolbox/test/xml_tests/test_param.m @ 21:8be9deffe989 database-connection-manager
Update ltpda_uo.update
author | Daniele Nicolodi <nicolodi@science.unitn.it> |
---|---|
date | Mon, 05 Dec 2011 16:20:06 +0100 |
parents | f0afece42f48 |
children |
line wrap: on
line source
clear all; %% Char param xmlfile = 'char.xml'; p = param('a', 'val'); save(p, xmlfile) q = param(xmlfile); if p ~= q error('param char test failed') end %% Numeric param xmlfile = 'numeric.xml'; p = param('a', 2); save(p, xmlfile) q = param(xmlfile); if p ~= q error('param numeric test failed') end %% Specwin param xmlfile = 'specwin.xml'; p = param('a', specwin('Hanning', 20)); save(p, xmlfile) q = param(xmlfile); if p ~= q error('param specwin test failed') end %% Time param xmlfile = 'time.xml'; p = param('a', time()); save(p, xmlfile) q = param(xmlfile); if p ~= q error('param time test failed') end %% MIIR param xmlfile = 'miir.xml'; pl_mii = plist('type', 'bandpass', 'fs', 1000, 'fc', [50 100], 'order', 3); p = param('a', miir(pl_mii)); save(p, xmlfile) q = param(xmlfile); if p ~= q(1) error('param miir test failed') end %% MFIR param xmlfile = 'mfir.xml'; pl_mir = plist('type', 'lowpass', 'Win', specwin('Kaiser', 10, 150), 'fs', 100, 'fc', 20); p = param('a', mfir(pl_mir)); save(p, xmlfile) q = param(xmlfile); if p ~= q(1) error('param mfir test failed') end %% pole param xmlfile = 'pole.xml'; p = param('a', pz(1)); save(p, xmlfile) q = param(xmlfile); if p ~= q error('param pole test failed') end %% zero param xmlfile = 'zero.xml'; p = param('a', pz(1,10)); save(p, xmlfile) q = param(xmlfile); if p ~= q error('param zero test failed') end %% pzmodel param xmlfile = 'pzmodel.xml'; pzm = pzmodel(1, [pz(1) pz(2,10)], pz(4.3)); p = param('a', pzm); save(p, xmlfile); q = param(xmlfile); if p ~= q error('param pzmodel test failed') end