1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
|
mx1 =
1.0-2.0i 1.0-2.0i 1.0-2.0i
1.0-2.0i 1.0-2.0i 1.0-2.0i
1.0-2.0i 1.0-2.0i 1.0-2.0i
OK
(matrix-ref mx5 1 1) = 100.0+50.0i OK
(number-of-rows mx3) = 3 OK
(number-of-columns mx3) = 2 OK
(+ mx3 mx4) =
-2.0+11.0i 3.0+1.0i
4.0-3.5i 4.0+0.0i
-11.0+2.5i 19.0+2.5i
OK
(- mx3 mx4) =
-2.0-9.0i -1.0-1.0i
3.0-3.5i -1.0+2.0i
-9.0-2.5i 1.0-0.5i
OK
(- mx3) =
2.0-1.0i -1.0+-0.0i
-3.5+3.5i -1.5-1.0i
10.0+-0.0i -10.0-1.0i
OK
(* mx2 mx3) =
-51.5+79.5i 55.0-123.5i
-69.5+46.5i 86.5-80.0i
-87.5+13.5i 118.0-36.5i
-105.5-19.5i 149.5+7.0i
OK
(->complex-matrix mx4) =
0.0+10.0i 2.0+1.0i
0.5+0.0i 2.5-1.0i
-1.0+2.5i 9.0+1.5i
OK
(->single-complex-matrix mx4) =
0.0+10.0i 2.0+1.0i
0.5+0.0i 2.5-1.0i
-1.0+2.5i 9.0+1.5i
OK
(= mx3 mx3) = #t OK
(= mx3 mx4) = #f OK
(* (complex 2.5 -1.5) mx3) =
-3.5+5.5i 2.5-1.5i
3.5-14.0i 5.25+0.25i
-25.0+15.0i 26.5-12.5i
OK
(* mx3 (complex 2.5 -1.5)) =
-3.5+5.5i 2.5-1.5i
3.5-14.0i 5.25+0.25i
-25.0+15.0i 26.5-12.5i
OK
(transpose mx4) =
0.0+10.0i 0.5+0.0i -1.0+2.5i
2.0+1.0i 2.5-1.0i 9.0+1.5i
OK
(transpose mx1) =
1.0-2.0i 1.0-2.0i 1.0-2.0i
1.0-2.0i 1.0-2.0i 1.0-2.0i
1.0-2.0i 1.0-2.0i 1.0-2.0i
OK
(conj mx4) =
0.0-10.0i 2.0-1.0i
0.5+-0.0i 2.5+1.0i
-1.0-2.5i 9.0-1.5i
OK
(herm mx4) =
0.0-10.0i 0.5+-0.0i -1.0-2.5i
2.0-1.0i 2.5+1.0i 9.0-1.5i
OK
(herm mx1) =
1.0+2.0i 1.0+2.0i 1.0+2.0i
1.0+2.0i 1.0+2.0i 1.0+2.0i
1.0+2.0i 1.0+2.0i 1.0+2.0i
OK
(bvm-single-column-vector (list (complex 1.0 0.0) (complex 2.0 -1.0) (complex -3.0 10.0))) =
1.0+0.0i
2.0-1.0i
-3.0+10.0i
OK
(bvm-single-row-vector (list (complex 1.0 0.0) (complex 2.0 -1.0) (complex -3.0 10.0))) =
1.0+0.0i 2.0-1.0i -3.0+10.0i
OK
(bvm-generate-single-matrix 3 4 (lambda (((i1 <integer>) (i2 <integer>)) <complex> pure) (if (= i1 i2) (complex 1.0 -1.0) (complex 0.0 0.0)))) =
1.0-1.0i 0.0+0.0i 0.0+0.0i 0.0+0.0i
0.0+0.0i 1.0-1.0i 0.0+0.0i 0.0+0.0i
0.0+0.0i 0.0+0.0i 1.0-1.0i 0.0+0.0i
OK
(matrix-map c-square mx2) =
-143.0-24.0i -117.0-44.0i -91.0-60.0i
-65.0-72.0i -39.0-80.0i -13.0-84.0i
13.0-84.0i 39.0-80.0i 65.0-72.0i
91.0-60.0i 117.0-44.0i 143.0-24.0i
OK
(matrix-map-w-ind (lambda (((i1 <integer>) (i2 <integer>) (cx-elem <complex>)) <complex> pure) (if (= i1 i2) cx-elem cx1m1)) mx2) =
1.0-12.0i 1.0-1.0i 1.0-1.0i
1.0-1.0i 5.0-8.0i 1.0-1.0i
1.0-1.0i 1.0-1.0i 9.0-4.0i
1.0-1.0i 1.0-1.0i 1.0-1.0i
OK
(+ mx2 mx3)
exception bvm+:dim-mismatch OK
(- mx2 mx3)
exception bvm-:dim-mismatch OK
(* mx3 mx4)
exception bvm*:dim-mismatch OK
(construct-complex-matrix (bvm-single-matrix (quote ((1.0 2.0)))) (bvm-single-matrix (quote ((2.0) (3.0)))))
exception construct-complex-matrix:dim-mismatch OK
|
