% Test reading and writing complex data to XML file.%% M Hewitson 19-04-07%% $Id: test_xml_complex.m,v 1.11 2009/02/02 15:20:38 hewitson Exp $function test_xml_complex() % Make some response data poles = [pz(1,2) pz(40)]; zeros = [pz(10,3) pz(100)]; pzm = pzmodel(10, poles, zeros); a = resp(pzm); iplot(a) % Save to XML file save(pzm, 'pzm.xml') save(a, 'a.xml') % load files pzm_r = pzmodel('pzm.xml'); a_r = ao('a.xml'); delete('pzm.xml') delete('a.xml') % compare objects eq(pzm, pzm_r) eq(a,a_r)end