0
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
1 % TEST_PEST_EVAL tests the eval method of the PEST class.
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
2 %
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
3 % M Hueller 02-03-10
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
4 %
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
5 % $Id: test_pest_eval.m,v 1.3 2010/03/19 11:13:17 mauro Exp $
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
6 %
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
7 function results = test_pest_eval(varargin)
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
8
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
9 %% List of runs
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
10 if nargin == 1
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
11 list = varargin{1};
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
12 if isa(list, 'cell')
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
13 list = list{:};
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
14 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
15 else
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
16 list = [];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
17 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
18
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
19 if isempty(list)
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
20 list = [10:17 20:27 30:37 40:47 60:67 80:87];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
21 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
22
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
23 %% Prepare test data
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
24 nsecs = 100;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
25 fs = 10;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
26
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
27 unit_list = unit.supportedUnits;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
28 u1 = unit(cell2mat(utils.math.randelement(unit_list,1)));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
29 u2 = unit(cell2mat(utils.math.randelement(unit_list,1)));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
30 u3 = unit(cell2mat(utils.math.randelement(unit_list,1)));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
31 u4 = unit(cell2mat(utils.math.randelement(unit_list,1)));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
32
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
33 pl1 = plist('nsecs', nsecs, 'fs', fs, ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
34 'tsfcn', 'polyval([10 1], t) + randn(size(t))', ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
35 'xunits', 's', 'yunits', u1);
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
36
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
37 pl2 = plist('nsecs', nsecs, 'fs', fs, ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
38 'tsfcn', 'polyval([-5 0.2], t) + randn(size(t))', ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
39 'xunits', 's', 'yunits', u2);
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
40
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
41 t1 = [0:5:200]';
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
42 f1 = [1e-3:1e-3:0.1];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
43 z1 = [1e-2:1e-2:1];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
44
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
45 T1 = ao(t1, randn(size(t1)), plist('type', 'tsdata'));T1c = ao(t1);
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
46 F1 = ao(f1, randn(size(f1)), plist('type', 'fsdata'));F1c = ao(f1);
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
47 Z1 = ao(z1, randn(size(z1)), plist('type', 'xydata'));Z1c = ao(z1);
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
48
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
49 a1 = ao(pl1);
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
50 a2 = ao(pl2);
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
51 a2b = ao(pl2);
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
52 a3 = ao(plist('yvals', 2, 'yunits', u4))*a2 + ao(plist('yvals', -3, 'yunits', u4))*a2b;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
53
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
54 % Prepare some pest objects: single x
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
55 p_1 = linfit(a1, plist());
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
56 p_2 = linfit(a1, a2, plist());
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
57
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
58 p_t = pest(plist('paramnames', {'a0','a1','a2'}, 'y', [1 2 3], ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
59 'cov', [0.1 0.001 -0.001;0.001 0.1 -0.002;-0.001 -0.002 0.1;], ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
60 'dy', sqrt([0.1 0.1 0.1]), ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
61 'yunits', {u3, u3/unit('s') u3/unit('s^2')}, ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
62 'models', smodel(plist('expression', 'a1.*t + a2.*t.^2 + a0', 'xvar', 't', 'yunits', u3, 'xunits', 'ms'))) ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
63 );
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
64
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
65 p_f = pest(plist('paramnames', {'a0','a1','a2'}, 'y', [1 2 3], ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
66 'cov', [0.1 0.001 -0.001;0.001 0.1 -0.002;-0.001 -0.002 0.1;], ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
67 'dy', sqrt([0.1 0.1 0.1]), ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
68 'yunits', {u3, u3/unit('Hz') u3/unit('Hz^2')}, ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
69 'models', smodel(plist('expression', 'a1.*f + a2.*f.^2 + a0', 'xvar', 'f', 'yunits', u3, 'xunits', 'kHz'))) ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
70 );
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
71
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
72 p_w = pest(plist('paramnames', {'a0','a1','a2'}, 'y', [1 2 3], ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
73 'cov', [0.1 0.001 -0.001;0.001 0.1 -0.002;-0.001 -0.002 0.1;], ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
74 'dy', sqrt([0.1 0.1 0.1]), ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
75 'yunits', {u3, u3/unit('Hz') u3/unit('Hz^2')}, ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
76 'models', smodel(plist('expression', 'a1.*w + a2.*w.^2 + a0', 'xvar', 'w', 'yunits', u3, 'xunits', 'MHz'))) ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
77 );
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
78
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
79 p_z = pest(plist('paramnames', {'a0','a1','a2'}, 'y', [1 2 3], ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
80 'cov', [0.1 0.001 -0.001;0.001 0.1 -0.002;-0.001 -0.002 0.1;], ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
81 'dy', sqrt([0.1 0.1 0.1]), ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
82 'yunits', {u3, u3/unit('') u3/unit('')}, ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
83 'models', smodel(plist('expression', 'a1.*z + a2.*z.^2 + a0', 'xvar', 'z', 'yunits', u3))) ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
84 );
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
85
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
86 % Prepare some pest objects: multiple x
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
87 p_3 = bilinfit(a2, a2b, a3);
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
88
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
89 p_tt = pest(plist('paramnames', {'a0','a1','a2'}, 'y', [1 2 3], ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
90 'cov', [0.1 0.001 -0.001;0.001 0.1 -0.002;-0.001 -0.002 0.1;], ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
91 'dy', sqrt([0.1 0.1 0.1]), ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
92 'yunits', {u3, u3/unit('s') u3/unit('s^2')}, ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
93 'models', smodel(plist('expression', 'a1.*t1 + a2.*t2.^2 + a0', 'xvar', {'t1', 't2'}, 'yunits', u3, 'xunits', {'ms', 'ms'}))) ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
94 );
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
95
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
96 p_ff = pest(plist('paramnames', {'a0','a1','a2'}, 'y', [1 2 3], ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
97 'cov', [0.1 0.001 -0.001;0.001 0.1 -0.002;-0.001 -0.002 0.1;], ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
98 'dy', sqrt([0.1 0.1 0.1]), ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
99 'yunits', {u3, u3/unit('Hz') u3/unit('Hz^2')}, ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
100 'models', smodel(plist('expression', 'a1.*f1 + a2.*f2.^2 + a0', 'xvar', {'f1', 'f2'}, 'yunits', u3, 'xunits', {'kHz', 'kHz'}))) ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
101 );
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
102
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
103 p_ww = pest(plist('paramnames', {'a0','a1','a2'}, 'y', [1 2 3], ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
104 'cov', [0.1 0.001 -0.001;0.001 0.1 -0.002;-0.001 -0.002 0.1;], ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
105 'dy', sqrt([0.1 0.1 0.1]), ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
106 'yunits', {u3, u3/unit('Hz') u3/unit('Hz^2')}, ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
107 'models', smodel(plist('expression', 'a1.*w1 + a2.*w2.^2 + a0', 'xvar', {'w1', 'w2'}, 'yunits', u3, 'xunits', {'MHz', 'MHz'}))) ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
108 );
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
109
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
110 p_zz = pest(plist('paramnames', {'a0','a1','a2'}, 'y', [1 2 3], ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
111 'cov', [0.1 0.001 -0.001;0.001 0.1 -0.002;-0.001 -0.002 0.1;], ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
112 'dy', sqrt([0.1 0.1 0.1]), ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
113 'yunits', {u3, u3/unit('') u3/unit('')}, ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
114 'models', smodel(plist('expression', 'a1.*z1 + a2.*z2.^2 + a0', 'xvar', {'z1', 'z2'}, 'yunits', u3))) ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
115 );
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
116
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
117 %% Run tests
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
118 results = [];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
119
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
120 %% 10) Single Xdata in plist, double, Xvar = x
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
121 test = 10;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
122 if any(ismember(list, test))
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
123 o = p_1.eval(plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
124 'Xdata', t1, ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
125 'type', '' ... %% This should be ignored
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
126 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
127
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
128 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
129 'type', 'xydata', 'x', t1, 'xunits', a1.xunits, 'yunits', a1.yunits, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
130 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
131
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
132 %% 11) Single Xdata in plist, double, Xvar = t
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
133 test = 11;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
134 if any(ismember(list, test))
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
135 o = p_t.eval(plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
136 'Xdata', t1, ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
137 'type', '' ... %% This should be ignored
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
138 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
139
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
140 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
141 'type', 'tsdata', 'x', t1, 'xunits', p_t.models.xunits, 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
142 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
143
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
144 %% 12) Single Xdata in plist, double, Xvar = f
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
145 test = 12;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
146 if any(ismember(list, test))
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
147 o = p_f.eval(plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
148 'Xdata', f1, ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
149 'type', '' ... %% This should be ignored
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
150 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
151
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
152 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
153 'type', 'fsdata', 'x', f1, 'xunits', p_f.models.xunits, 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
154 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
155
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
156 %% 13) Single Xdata in plist, double, Xvar = w
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
157 test = 13;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
158 if any(ismember(list, test))
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
159 o = p_w.eval(plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
160 'Xdata', f1, ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
161 'type', '' ... %% This should be ignored
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
162 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
163
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
164 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
165 'type', 'fsdata', 'x', f1, 'xunits', p_w.models.xunits, 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
166 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
167 %% 14) Single Xdata in plist, double, Xvar = z, specify data type
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
168 test = 14;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
169 if any(ismember(list, test))
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
170 type = 'tsdata';
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
171 o = p_z.eval(plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
172 'Xdata', t1, ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
173 'type', type ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
174 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
175
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
176 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
177 'type', type, 'x', t1, 'xunits', 's', 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
178 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
179
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
180 %% 15) Single Xdata in plist, double, Xvar = z, specify data type
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
181 test = 15;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
182 if any(ismember(list, test))
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
183 type = 'fsdata';
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
184 o = p_z.eval(plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
185 'Xdata', z1, ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
186 'type', type ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
187 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
188
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
189 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
190 'type', type, 'x', z1, 'xunits', 'Hz', 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
191 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
192
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
193 %% 16) Single Xdata in plist, double, Xvar = z, specify data type
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
194 test = 16;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
195 if any(ismember(list, test))
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
196 type = 'xydata';
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
197 o = p_z.eval(plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
198 'Xdata', z1, ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
199 'type', type ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
200 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
201
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
202 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
203 'type', type, 'x', z1, 'xunits', '', 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
204 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
205
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
206 %% 17) Single Xdata in plist, double, Xvar = z, do not specify data type
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
207 test = 17;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
208 if any(ismember(list, test))
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
209 o = p_z.eval(plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
210 'Xdata', z1));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
211
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
212 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
213 'type', 'xydata', 'x', z1, 'xunits', '', 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
214 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
215
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
216 %% 20) Single Xdata in plist, ao, Xvar = x
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
217 test = 20;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
218 if any(ismember(list, test))
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
219 o = p_1.eval(plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
220 'Xdata', T1, ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
221 'type', '' ... %% This should be ignored
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
222 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
223
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
224 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
225 'type', 'xydata', 'x', T1.x, 'xunits', a1.xunits, 'yunits', a1.yunits, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
226
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
227
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
228 o = p_1.eval(plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
229 'Xdata', T1c, ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
230 'type', '' ... %% This should be ignored
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
231 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
232
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
233 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
234 'type', 'xydata', 'x', T1c.y, 'xunits', a1.xunits, 'yunits', a1.yunits, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
235 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
236
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
237 %% 21) Single Xdata in plist, ao, Xvar = t
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
238 test = 21;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
239 if any(ismember(list, test))
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
240 o = p_t.eval(plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
241 'Xdata', T1, ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
242 'type', '' ... %% This should be ignored
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
243 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
244
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
245 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
246 'type', 'tsdata', 'x', T1.x, 'xunits', p_t.models.xunits, 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
247
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
248 o = p_t.eval(plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
249 'Xdata', T1c, ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
250 'type', '' ... %% This should be ignored
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
251 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
252
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
253 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
254 'type', 'tsdata', 'x', T1c.y, 'xunits', p_t.models.xunits, 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
255 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
256
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
257 %% 22) Single Xdata in plist, ao, Xvar = f
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
258 test = 22;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
259 if any(ismember(list, test))
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
260 o = p_f.eval(plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
261 'Xdata', F1, ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
262 'type', '' ... %% This should be ignored
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
263 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
264
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
265 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
266 'type', 'fsdata', 'x', F1.x, 'xunits', p_f.models.xunits, 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
267
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
268 o = p_f.eval(plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
269 'Xdata', F1c, ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
270 'type', '' ... %% This should be ignored
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
271 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
272
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
273 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
274 'type', 'fsdata', 'x', F1c.y, 'xunits', p_f.models.xunits, 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
275 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
276
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
277 %% 23) Single Xdata in plist, ao, Xvar = w
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
278 test = 23;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
279 if any(ismember(list, test))
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
280 o = p_w.eval(plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
281 'Xdata', F1, ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
282 'type', '' ... %% This should be ignored
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
283 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
284
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
285 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
286 'type', 'fsdata', 'x', F1.x, 'xunits', p_w.models.xunits, 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
287
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
288 o = p_w.eval(plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
289 'Xdata', F1c, ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
290 'type', '' ... %% This should be ignored
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
291 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
292
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
293 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
294 'type', 'fsdata', 'x', F1c.y, 'xunits', p_w.models.xunits, 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
295 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
296
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
297 %% 24) Single Xdata in plist, ao, Xvar = z, specify data type
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
298 test = 24;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
299 if any(ismember(list, test))
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
300 type = 'tsdata';
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
301 o = p_z.eval(plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
302 'Xdata', T1, ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
303 'type', type ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
304 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
305
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
306 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
307 'type', type, 'x', T1.x, 'xunits', 's', 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
308
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
309 o = p_z.eval(plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
310 'Xdata', T1c, ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
311 'type', type));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
312
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
313 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
314 'type', type, 'x', T1c.y, 'xunits', 's', 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
315 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
316
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
317 %% 25) Single Xdata in plist, ao, Xvar = z, specify data type
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
318 test = 25;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
319 if any(ismember(list, test))
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
320 type = 'fsdata';
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
321 o = p_z.eval(plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
322 'Xdata', Z1, ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
323 'type', type ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
324 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
325
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
326 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
327 'type', type, 'x', Z1.x, 'xunits', 'Hz', 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
328
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
329 o = p_z.eval(plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
330 'Xdata', Z1c, ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
331 'type', type ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
332 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
333
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
334 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
335 'type', type, 'x', Z1c.y, 'xunits', 'Hz', 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
336 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
337
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
338 %% 26) Single Xdata in plist, ao, Xvar = z, specify data type
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
339 test = 26;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
340 if any(ismember(list, test))
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
341 type = 'xydata';
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
342 o = p_z.eval(plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
343 'Xdata', Z1, ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
344 'type', type ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
345 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
346
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
347 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
348 'type', type, 'x', Z1.x, 'xunits', '', 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
349
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
350 o = p_z.eval(plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
351 'Xdata', Z1c, ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
352 'type', type ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
353 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
354
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
355 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
356 'type', type, 'x', Z1c.y, 'xunits', '', 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
357 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
358
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
359 %% 27) Single Xdata in plist, ao, Xvar = z, do not specify data type
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
360 test = 27;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
361 if any(ismember(list, test))
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
362 o = p_z.eval(plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
363 'Xdata', Z1));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
364
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
365 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
366 'type', 'xydata', 'x', Z1.x, 'xunits', '', 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
367
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
368 o = p_z.eval(plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
369 'Xdata', Z1c));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
370
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
371 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
372 'type', 'xydata', 'x', Z1c.y, 'xunits', '', 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
373 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
374
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
375 %% 30) Multiple Xdata in plist, double, Xvar = x
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
376 test = 30;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
377 if any(ismember(list, test))
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
378 o = p_3.eval(plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
379 'Xdata', {t1, t1}, ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
380 'type', '' ... %% This should be ignored
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
381 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
382
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
383 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
384 'type', 'xydata', 'x', t1, 'xunits', '', 'yunits', a3.yunits, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
385 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
386
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
387 %% 31) Multiple Xdata in plist, double, Xvar = t, specify data type
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
388 test = 31;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
389 if any(ismember(list, test))
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
390 type = 'tsdata';
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
391 o = p_tt.eval(plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
392 'Xdata', {t1 t1}, ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
393 'type', type ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
394 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
395
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
396 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
397 'type', type, 'x', t1, 'xunits', 's', 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
398 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
399
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
400 %% 32) Multiple Xdata in plist, double, Xvar = f, don't specify data type
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
401 test = 32;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
402 if any(ismember(list, test))
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
403 o = p_ff.eval(plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
404 'Xdata', {f1 f1}, ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
405 'type', '' ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
406 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
407
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
408 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
409 'type', 'xydata', 'x', f1, 'xunits', '', 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
410 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
411
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
412 %% 33) Multiple Xdata in plist, double, Xvar = w, specify data type
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
413 test = 33;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
414 if any(ismember(list, test))
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
415 type = 'xydata';
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
416 o = p_ww.eval(plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
417 'Xdata', {f1 f1}, ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
418 'type', type ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
419 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
420
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
421 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
422 'type', type, 'x', f1, 'xunits', '', 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
423 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
424
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
425 %% 34) Multiple Xdata in plist, double, Xvar = z, specify data type
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
426 test = 34;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
427 if any(ismember(list, test))
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
428 type = 'tsdata';
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
429 o = p_zz.eval(plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
430 'Xdata', {t1 t1}, ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
431 'type', type ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
432 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
433
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
434 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
435 'type', type, 'x', t1, 'xunits', 's', 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
436 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
437
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
438 %% 35) Multiple Xdata in plist, double, Xvar = z, specify data type
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
439 test = 35;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
440 if any(ismember(list, test))
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
441 type = 'fsdata';
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
442 o = p_zz.eval(plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
443 'Xdata', {z1 z1}, ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
444 'type', type ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
445 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
446
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
447 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
448 'type', type, 'x', z1, 'xunits', 'Hz', 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
449 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
450
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
451 %% 36) Multiple Xdata in plist, double, Xvar = z, specify data type
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
452 test = 36;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
453 if any(ismember(list, test))
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
454 type = 'xydata';
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
455 o = p_zz.eval(plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
456 'Xdata', {z1 z1}, ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
457 'type', type ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
458 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
459
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
460 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
461 'type', type, 'x', z1, 'xunits', '', 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
462 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
463
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
464 %% 37) Multiple Xdata in plist, double, Xvar = z, do not specify data type
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
465 test = 37;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
466 if any(ismember(list, test))
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
467 o = p_zz.eval(plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
468 'Xdata', {z1 z1}));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
469
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
470 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
471 'type', 'xydata', 'x', z1, 'xunits', '', 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
472 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
473
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
474 %% 40) Multiple Xdata in plist, ao, Xvar = x
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
475 test = 40;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
476 if any(ismember(list, test))
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
477 o = p_3.eval(plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
478 'Xdata', {T1, T1}, ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
479 'type', '' ... %% This should be ignored
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
480 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
481
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
482 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
483 'type', class(T1.data), 'x', T1.x, 'xunits', T1.xunits, 'yunits', a3.yunits, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
484
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
485 o = p_3.eval(plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
486 'Xdata', {T1c, T1c}, ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
487 'type', '' ... %% This should be ignored
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
488 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
489
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
490 results = [results; test check_correctness(o, plist(... % No need to pass x & xunits in this case
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
491 'type', class(T1c.data), 'yunits', a3.yunits, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
492 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
493
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
494 %% 41) Multiple Xdata in plist, ao, Xvar = t, specify data type
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
495 test = 41;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
496 if any(ismember(list, test))
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
497 type = 'tsdata';
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
498 o = p_tt.eval(plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
499 'Xdata', {T1 T1}, ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
500 'type', type ... % This should be ignored
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
501 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
502
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
503 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
504 'type', class(T1.data), 'x', T1.x, 'xunits', T1.xunits, 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
505
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
506 o = p_tt.eval(plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
507 'Xdata', {T1c, T1c}, ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
508 'type', '' ... %% This should be ignored
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
509 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
510
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
511 results = [results; test check_correctness(o, plist(...% No need to pass x & xunits in this case
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
512 'type', class(T1c.data), 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
513 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
514
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
515 %% 42) Multiple Xdata in plist, ao, Xvar = f, don't specify data type
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
516 test = 42;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
517 if any(ismember(list, test))
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
518 o = p_ff.eval(plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
519 'Xdata', {F1 F1}, ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
520 'type', '' ... %% This should be ignored
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
521 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
522
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
523 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
524 'type', class(F1.data), 'x', F1.x, 'xunits', F1.xunits, 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
525
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
526 o = p_ff.eval(plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
527 'Xdata', {F1c, F1c}, ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
528 'type', '' ... %% This should be ignored
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
529 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
530
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
531 results = [results; test check_correctness(o, plist(...% No need to pass x & xunits in this case
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
532 'type', class(F1c.data), 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
533 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
534
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
535 %% 43) Multiple Xdata in plist, ao, Xvar = w, specify data type
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
536 test = 43;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
537 if any(ismember(list, test))
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
538 type = 'xydata';
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
539 o = p_ww.eval(plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
540 'Xdata', {F1 F1}, ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
541 'type', type ... %% This should be ignored
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
542 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
543
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
544 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
545 'type', class(F1.data), 'x', F1.x, 'xunits', F1.xunits, 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
546
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
547 o = p_ff.eval(plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
548 'Xdata', {F1c, F1c}, ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
549 'type', '' ... %% This should be ignored
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
550 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
551
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
552 results = [results; test check_correctness(o, plist(...% No need to pass x & xunits in this case
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
553 'type', class(F1c.data), 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
554 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
555
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
556 %% 44) Multiple Xdata in plist, ao, Xvar = z, specify data type
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
557 test = 44;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
558 if any(ismember(list, test))
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
559 type = 'tsdata';
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
560 o = p_zz.eval(plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
561 'Xdata', {T1 T1}, ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
562 'type', type ... %% This should be ignored
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
563 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
564
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
565 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
566 'type', class(T1.data), 'x', T1.x, 'xunits', T1.xunits, 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
567
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
568 o = p_ff.eval(plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
569 'Xdata', {T1c, T1c}, ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
570 'type', '' ... %% This should be ignored
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
571 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
572
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
573 results = [results; test check_correctness(o, plist(...% No need to pass x & xunits in this case
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
574 'type', class(T1c.data), 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
575 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
576
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
577 %% 45) Multiple Xdata in plist, ao, Xvar = z, specify data type
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
578 test = 45;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
579 if any(ismember(list, test))
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
580 type = 'fsdata';
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
581 o = p_zz.eval(plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
582 'Xdata', {Z1 Z1}, ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
583 'type', type ... %% This should be ignored
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
584 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
585
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
586 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
587 'type', class(Z1.data), 'x', Z1.x, 'xunits', Z1.xunits, 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
588
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
589 o = p_ff.eval(plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
590 'Xdata', {Z1c, Z1c}, ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
591 'type', '' ... %% This should be ignored
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
592 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
593
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
594 results = [results; test check_correctness(o, plist(...% No need to pass x & xunits in this case
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
595 'type', class(Z1c.data), 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
596 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
597
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
598 %% 46) Multiple Xdata in plist, ao, Xvar = z, specify data type
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
599 test = 46;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
600 if any(ismember(list, test))
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
601 type = 'xydata';
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
602 o = p_zz.eval(plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
603 'Xdata', {Z1 Z1}, ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
604 'type', type ... %% This should be ignored
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
605 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
606
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
607 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
608 'type', class(Z1.data), 'x', Z1.x, 'xunits', Z1.xunits, 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
609
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
610 o = p_ff.eval(plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
611 'Xdata', {Z1c, Z1c}, ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
612 'type', '' ... %% This should be ignored
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
613 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
614
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
615 results = [results; test check_correctness(o, plist(...% No need to pass x & xunits in this case
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
616 'type', class(Z1c.data), 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
617 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
618
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
619 %% 47) Multiple Xdata in plist, ao, Xvar = z, do not specify data type
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
620 test = 47;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
621 if any(ismember(list, test))
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
622 o = p_zz.eval(plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
623 'Xdata', {Z1 Z1}));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
624
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
625 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
626 'type', 'xydata', 'x', Z1.x, 'xunits', Z1.xunits, 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
627
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
628 o = p_zz.eval(plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
629 'Xdata', {Z1c, Z1c}, ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
630 'type', '' ... %% This should be ignored
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
631 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
632
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
633 results = [results; test check_correctness(o, plist(...% No need to pass x & xunits in this case
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
634 'type', class(Z1c.data), 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
635 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
636
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
637 %% 50) Single Xdata in input, double, Xvar = x
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
638 test = 50;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
639 if any(ismember(list, test))
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
640 disp('Syntax not supported')
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
641 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
642
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
643 %% 60) Single Xdata in input, ao, Xvar = x
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
644 test = 60;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
645 if any(ismember(list, test))
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
646 o = p_1.eval(T1, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
647 'type', '' ... %% This should be ignored
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
648 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
649
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
650 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
651 'type', 'xydata', 'x', T1.x, 'xunits', a1.xunits, 'yunits', a1.yunits, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
652
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
653 o = p_1.eval(T1c, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
654 'type', '' ... %% This should be ignored
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
655 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
656
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
657 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
658 'type', 'xydata', 'x', T1c.y, 'xunits', a1.xunits, 'yunits', a1.yunits, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
659 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
660
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
661 %% 61) Single Xdata in input, ao, Xvar = t
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
662 test = 61;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
663 if any(ismember(list, test))
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
664 o = p_t.eval(T1, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
665 'type', '' ... %% This should be ignored
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
666 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
667
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
668 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
669 'type', 'tsdata', 'x', T1.x, 'xunits', p_t.models.xunits, 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
670
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
671 o = p_t.eval(T1c, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
672 'type', '' ... %% This should be ignored
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
673 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
674
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
675 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
676 'type', 'tsdata', 'x', T1c.y, 'xunits', p_t.models.xunits, 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
677 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
678
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
679 %% 62) Single Xdata in plist, ao, Xvar = f
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
680 test = 62;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
681 if any(ismember(list, test))
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
682 o = p_f.eval(F1, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
683 'type', '' ... %% This should be ignored
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
684 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
685
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
686 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
687 'type', 'fsdata', 'x', F1.x, 'xunits', p_f.models.xunits, 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
688
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
689 o = p_f.eval(F1c, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
690 'type', '' ... %% This should be ignored
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
691 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
692
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
693 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
694 'type', 'fsdata', 'x', F1c.y, 'xunits', p_f.models.xunits, 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
695 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
696
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
697 %% 63) Single Xdata in plist, ao, Xvar = w
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
698 test = 63;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
699 if any(ismember(list, test))
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
700 o = p_w.eval(F1, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
701 'type', '' ... %% This should be ignored
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
702 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
703
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
704 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
705 'type', 'fsdata', 'x', F1.x, 'xunits', p_w.models.xunits, 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
706
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
707 o = p_w.eval(F1c, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
708 'type', '' ... %% This should be ignored
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
709 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
710
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
711 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
712 'type', 'fsdata', 'x', F1c.y, 'xunits', p_w.models.xunits, 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
713 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
714
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
715 %% 64) Single Xdata in plist, ao, Xvar = z, specify data type
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
716 test = 64;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
717 if any(ismember(list, test))
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
718 type = 'tsdata';
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
719 o = p_z.eval(T1, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
720 'type', type ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
721 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
722
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
723 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
724 'type', type, 'x', T1.x, 'xunits', 's', 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
725
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
726 o = p_z.eval(T1c, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
727 'type', type));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
728
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
729 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
730 'type', type, 'x', T1c.y, 'xunits', 's', 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
731 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
732
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
733 %% 65) Single Xdata in plist, ao, Xvar = z, specify data type
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
734 test = 65;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
735 if any(ismember(list, test))
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
736 type = 'fsdata';
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
737 o = p_z.eval(Z1, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
738 'type', type ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
739 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
740
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
741 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
742 'type', type, 'x', Z1.x, 'xunits', 'Hz', 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
743
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
744 o = p_z.eval(Z1c, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
745 'type', type ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
746 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
747
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
748 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
749 'type', type, 'x', Z1c.y, 'xunits', 'Hz', 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
750 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
751
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
752 %% 66) Single Xdata in plist, ao, Xvar = z, specify data type
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
753 test = 66;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
754 if any(ismember(list, test))
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
755 type = 'xydata';
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
756 o = p_z.eval(Z1, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
757 'type', type ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
758 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
759
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
760 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
761 'type', type, 'x', Z1.x, 'xunits', '', 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
762
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
763 o = p_z.eval(Z1c, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
764 'type', type ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
765 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
766
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
767 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
768 'type', type, 'x', Z1c.y, 'xunits', '', 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
769 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
770
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
771 %% 67) Single Xdata in plist, ao, Xvar = z, do not specify data type
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
772 test = 67;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
773 if any(ismember(list, test))
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
774 o = p_z.eval(Z1, plist());
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
775
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
776 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
777 'type', 'xydata', 'x', Z1.x, 'xunits', '', 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
778
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
779 o = p_z.eval(Z1c, plist());
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
780
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
781 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
782 'type', 'xydata', 'x', Z1c.y, 'xunits', '', 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
783 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
784
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
785 %% 70) Multiple Xdata in input, double
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
786 test = 70;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
787 if any(ismember(list, test))
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
788 disp('Syntax not supported')
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
789 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
790
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
791 %% 80) Multiple Xdata in input, ao, Xvar = x
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
792 test = 80;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
793 if any(ismember(list, test))
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
794 o = p_3.eval(T1, T1, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
795 'type', '' ... %% This should be ignored
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
796 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
797
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
798 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
799 'type', class(T1.data), 'x', T1.x, 'xunits', T1.xunits, 'yunits', a3.yunits, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
800
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
801 o = p_3.eval([T1 T1], plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
802 'type', '' ... %% This should be ignored
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
803 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
804
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
805 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
806 'type', class(T1.data), 'x', T1.x, 'xunits', T1.xunits, 'yunits', a3.yunits, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
807
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
808 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
809
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
810 %% 81) Multiple Xdata in input, ao, Xvar = t, specify data type
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
811 test = 81;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
812 if any(ismember(list, test))
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
813 type = 'tsdata';
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
814 o = p_tt.eval(T1, T1, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
815 'type', type ... % This should be ignored
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
816 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
817
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
818 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
819 'type', class(T1.data), 'x', T1.x, 'xunits', T1.xunits, 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
820
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
821 o = p_tt.eval([T1 T1], plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
822 'type', type ... % This should be ignored
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
823 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
824
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
825 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
826 'type', class(T1.data), 'x', T1.x, 'xunits', T1.xunits, 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
827 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
828
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
829 %% 82) Multiple Xdata in input, ao, Xvar = f, don't specify data type
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
830 test = 82;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
831 if any(ismember(list, test))
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
832 o = p_ff.eval(F1, F1, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
833 'type', '' ... %% This should be ignored
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
834 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
835
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
836 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
837 'type', class(F1.data), 'x', F1.x, 'xunits', F1.xunits, 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
838
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
839 o = p_ff.eval([F1 F1], plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
840 'type', '' ... %% This should be ignored
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
841 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
842
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
843 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
844 'type', class(F1.data), 'x', F1.x, 'xunits', F1.xunits, 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
845 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
846
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
847 %% 83) Multiple Xdata in input, ao, Xvar = w, specify data type
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
848 test = 83;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
849 if any(ismember(list, test))
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
850 type = 'xydata';
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
851 o = p_ww.eval(F1, F1, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
852 'type', type ... %% This should be ignored
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
853 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
854
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
855 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
856 'type', class(F1.data), 'x', F1.x, 'xunits', F1.xunits, 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
857
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
858 o = p_ww.eval([F1 F1], plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
859 'type', type ... %% This should be ignored
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
860 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
861
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
862 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
863 'type', class(F1.data), 'x', F1.x, 'xunits', F1.xunits, 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
864 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
865
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
866 %% 84) Multiple Xdata in input, ao, Xvar = z, specify data type
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
867 test = 84;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
868 if any(ismember(list, test))
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
869 type = 'tsdata';
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
870 o = p_zz.eval(T1, T1, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
871 'type', type ... %% This should be ignored
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
872 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
873
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
874 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
875 'type', class(T1.data), 'x', T1.x, 'xunits', T1.xunits, 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
876
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
877 o = p_zz.eval([T1 T1], plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
878 'type', type ... %% This should be ignored
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
879 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
880
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
881 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
882 'type', class(T1.data), 'x', T1.x, 'xunits', T1.xunits, 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
883 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
884
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
885 %% 85) Multiple Xdata in input, ao, Xvar = z, specify data type
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
886 test = 85;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
887 if any(ismember(list, test))
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
888 type = 'fsdata';
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
889 o = p_zz.eval(Z1, Z1, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
890 'type', type ... %% This should be ignored
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
891 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
892
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
893 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
894 'type', class(Z1.data), 'x', Z1.x, 'xunits', Z1.xunits, 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
895
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
896 o = p_zz.eval([Z1 Z1], plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
897 'type', type ... %% This should be ignored
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
898 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
899
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
900 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
901 'type', class(Z1.data), 'x', Z1.x, 'xunits', Z1.xunits, 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
902 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
903
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
904 %% 86) Multiple Xdata in plist, ao, Xvar = z, specify data type
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
905 test = 86;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
906 if any(ismember(list, test))
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
907 type = 'xydata';
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
908 o = p_zz.eval(Z1, Z1, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
909 'type', type ... %% This should be ignored
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
910 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
911
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
912 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
913 'type', class(Z1.data), 'x', Z1.x, 'xunits', Z1.xunits, 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
914
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
915 o = p_zz.eval([Z1 Z1], plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
916 'type', type ... %% This should be ignored
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
917 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
918
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
919 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
920 'type', class(Z1.data), 'x', Z1.x, 'xunits', Z1.xunits, 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
921 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
922
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
923 %% 87) Multiple Xdata in plist, ao, Xvar = z, do not specify data type
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
924 test = 87;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
925 if any(ismember(list, test))
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
926 o = p_zz.eval(Z1, Z1, plist());
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
927
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
928 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
929 'type', 'xydata', 'x', Z1.x, 'xunits', Z1.xunits, 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
930
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
931 o = p_zz.eval([Z1 Z1], plist());
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
932
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
933 results = [results; test check_correctness(o, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
934 'type', 'xydata', 'x', Z1.x, 'xunits', Z1.xunits, 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
935
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
936 o = p_zz.eval(Z1c, Z1c, plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
937 'type', '' ... %% This should be ignored
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
938 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
939
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
940 results = [results; test check_correctness(o, plist(...% No need to pass x & xunits in this case
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
941 'type', class(Z1c.data), 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
942
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
943 o = p_zz.eval([Z1c Z1c], plist(...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
944 'type', '' ... %% This should be ignored
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
945 ));
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
946
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
947 results = [results; test check_correctness(o, plist(...% No need to pass x & xunits in this case
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
948 'type', class(Z1c.data), 'yunits', u3, 'dy', true))];
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
949 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
950
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
951 %% 90) Cases where we eval the x(s) in the models field (no input x)
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
952
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
953 %% 100) An smodel with no xvar (should give cdata output)
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
954
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
955 %% 110) Cases where we don't calculate dy
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
956 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
957
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
958 function atest = check_correctness(o, pl)
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
959
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
960 % Exceptions plist for ao/eq
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
961 ple = plist('Exceptions', ...
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
962 {'created', 'proctime', 'UUID', 'param/desc', 'name', 'methodInvars', 'version'});
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
963
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
964 % Start testing
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
965 atest = true;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
966 % Check the output is of the proper type
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
967 if ~isa (o.data, pl.find('type'))
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
968 atest = false;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
969 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
970 % Check the output x is the one provided (modulo the size, which is a problem of the "x" method)
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
971 if ~isa(o.data, 'cdata')
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
972 if ~isequal(size(o.x), size(pl.find('x')))
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
973 if ~isequal(size(o.x'), size(pl.find('x')))
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
974 atest = 0;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
975 else
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
976 if ~isequal(o.x', pl.find('x'))
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
977 atest = 0;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
978 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
979 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
980 else
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
981 if ~isequal(o.x, pl.find('x'))
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
982 atest = 0;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
983 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
984 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
985
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
986 % Check xunits
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
987 if ~eq(o.xunits, unit(pl.find('xunits')))
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
988 atest = false;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
989 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
990 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
991 % Check yunits
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
992 if ~eq(o.yunits, unit(pl.find('yunits')))
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
993 atest = false;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
994 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
995 % Check uncertainty
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
996 if isempty(o.dy)
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
997 atest = false;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
998 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
999 % Check rebuild
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
1000 if ~eq(o.rebuild, o, ple)
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
1001 atest = false;
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
1002 end
|
Daniele Nicolodi <nicolodi@science.unitn.it>
parents:
diff
changeset
|
1003 end
|