1 | function sdpvar_toeplitz |
---|
2 | |
---|
3 | c = sdpvar(4,1); |
---|
4 | assign(c,[2 4 6 8]'); |
---|
5 | ok = all(all(double(toeplitz(c,c))-toeplitz(double(c),double(c)) == 0)); |
---|
6 | mbg_asserttrue(ok) |
---|
7 | |
---|
8 | ok = all(all(double(toeplitz(c))-toeplitz(double(c)) == 0)); |
---|
9 | mbg_asserttrue(ok) |
---|
10 | |
---|
11 | r = sdpvar(4,1); |
---|
12 | assign(r,-[2 4 6 8]'); |
---|
13 | ok = all(all(double(toeplitz(c,r))-toeplitz(double(c),double(r)) == 0)); |
---|
14 | mbg_asserttrue(ok) |
---|
15 | |
---|
16 | c = sdpvar(4,1); |
---|
17 | assign(c,[2 4 6 8]'); |
---|
18 | r = sdpvar(2,1); |
---|
19 | assign(r,-[2 4]'); |
---|
20 | ok = all(all(double(toeplitz(c,r))-toeplitz(double(c),double(r)) == 0)); |
---|
21 | mbg_asserttrue(ok) |
---|
22 | |
---|
23 | ok = all(all(double(toeplitz(r,c'))-toeplitz(double(r),double(c')) == 0)); |
---|
24 | mbg_asserttrue(ok) |
---|
25 | |
---|
26 | c = sdpvar(2,3); |
---|
27 | r = sdpvar(4,1); |
---|
28 | assign(c,[1 2 3;4 5 6]); |
---|
29 | assign(r,[1 2 3 4]'); |
---|
30 | ok = all(all(double(toeplitz(c,r))-toeplitz(double(c),double(r))==0)); |
---|
31 | mbg_asserttrue(ok) |
---|
32 | |
---|
33 | c = sdpvar(2,3); |
---|
34 | r = sdpvar(4,1); |
---|
35 | assign(c,[1 2 3;4 5 6]); |
---|
36 | assign(r,[1 2 3 4]'); |
---|
37 | ok = all(all(double(toeplitz(r,c))-toeplitz(double(r),double(c))==0)); |
---|
38 | mbg_asserttrue(ok) |
---|
39 | |
---|
40 | c = sdpvar(4,1,'full','complex'); |
---|
41 | assign(c,[2 4 6 8]'+sqrt(-1)*[5 4 3 2]'); |
---|
42 | ok = all(all(double(toeplitz(c,c))-toeplitz(double(c),double(c)) == 0)); |
---|
43 | mbg_asserttrue(ok) |
---|
44 | |
---|
45 | ok = all(all(double(toeplitz(c))-toeplitz(double(c)) == 0)); |
---|
46 | mbg_asserttrue(ok) |
---|
47 | |
---|
48 | c = sdpvar(4,1,'full','complex'); |
---|
49 | assign(c,[2 4 6 8]'+sqrt(-1)*[5 4 3 2]'); |
---|
50 | r = sdpvar(4,1); |
---|
51 | assign(r,-[2 4 6 8]'); |
---|
52 | ok = all(all(double(toeplitz(c,r))-toeplitz(double(c),double(r)) == 0)); |
---|
53 | mbg_asserttrue(ok) |
---|
54 | |
---|
55 | r = sdpvar(2,1); |
---|
56 | assign(r,-[2 4]'+sqrt(-1)); |
---|
57 | ok = all(all(double(toeplitz(c,r))-toeplitz(double(c),double(r)) == 0)); |
---|
58 | mbg_asserttrue(ok) |
---|
59 | |
---|
60 | ok = all(all(double(toeplitz(r,c'))-toeplitz(double(r),double(c')) == 0)); |
---|
61 | mbg_asserttrue(ok) |
---|
62 | |
---|
63 | c = sdpvar(2,3); |
---|
64 | r = sdpvar(4,1); |
---|
65 | assign(c,[1 2 3;4 5 6]); |
---|
66 | assign(r,[1 2 3 4]'*sqrt(-1)); |
---|
67 | ok = all(all(double(toeplitz(c,r))-toeplitz(double(c),double(r))==0)); |
---|
68 | mbg_asserttrue(ok) |
---|
69 | |
---|
70 | c = sdpvar(2,3); |
---|
71 | r = sdpvar(4,1); |
---|
72 | assign(c,[1 2 3;4 5 6]*sqrt(-1)); |
---|
73 | assign(r,[1 2 3 4]'); |
---|
74 | ok = all(all(double(toeplitz(r,c))-toeplitz(double(r),double(c))==0)); |
---|
75 | mbg_asserttrue(ok) |
---|
76 | |
---|
77 | |
---|
78 | |
---|