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
108
109
110
111
112
113
114
115
|
mx1 =
1.0 1.0 1.0
1.0 1.0 1.0
1.0 1.0 1.0
OK
(matrix-ref mx5 1 1) = 100.0 OK
(number-of-rows mx3) = 3 OK
(number-of-columns mx3) = 2 OK
(+ mx3 mx4) =
-1.0 1.0
0.0 2.5
-10.0 11.0
OK
(- mx3 mx4) =
-3.0 1.0
7.0 0.5
-10.0 9.0
OK
(- mx3) =
2.0 -1.0
-3.5 -1.5
10.0 -10.0
OK
(* mx2 mx3) =
-25.0 34.0
-50.5 71.5
-76.0 109.0
-101.5 146.5
OK
(->real-matrix mx4) =
1.0 0.0
-3.5 1.0
0.0 1.0
OK
(->single-matrix mx4) =
1.0 0.0
-3.5 1.0
0.0 1.0
OK
(->complex-matrix mx4) =
1.0+0.0i 0.0+0.0i
-3.5+0.0i 1.0+0.0i
0.0+0.0i 1.0+0.0i
OK
(->single-complex-matrix mx4) =
1.0+0.0i 0.0+0.0i
-3.5+0.0i 1.0+0.0i
0.0+0.0i 1.0+0.0i
OK
(= mx3 mx3) = #t OK
(= mx3 mx4) = #f OK
(* 2.5 mx3) =
-5.0 2.5
8.75 3.75
-25.0 25.0
OK
(* mx3 2.5) =
-5.0 2.5
8.75 3.75
-25.0 25.0
OK
(transpose mx4) =
1.0 -3.5 0.0
0.0 1.0 1.0
OK
(transpose mx1) =
1.0 1.0 1.0
1.0 1.0 1.0
1.0 1.0 1.0
OK
(conj mx4) =
1.0 0.0
-3.5 1.0
0.0 1.0
OK
(herm mx4) =
1.0 -3.5 0.0
0.0 1.0 1.0
OK
(herm mx1) =
1.0 1.0 1.0
1.0 1.0 1.0
1.0 1.0 1.0
OK
(bvm-column-vector (quote (1.0 2.0 -3.0))) =
1.0
2.0
-3.0
OK
(bvm-row-vector (quote (1.0 2.0 -3.0))) =
1.0 2.0 -3.0
OK
(bvm-generate-matrix 3 4 (lambda (((i1 <integer>) (i2 <integer>)) <real> pure) (if (= i1 i2) 1.0 0.0))) =
1.0 0.0 0.0 0.0
0.0 1.0 0.0 0.0
0.0 0.0 1.0 0.0
OK
(matrix-map r-square mx2) =
1.0 4.0 9.0
16.0 25.0 36.0
49.0 64.0 81.0
100.0 121.0 144.0
OK
(matrix-map-w-ind (lambda (((i1 <integer>) (i2 <integer>) (r-elem <real>)) <real> pure) (if (= i1 i2) r-elem 1.0)) mx2) =
1.0 1.0 1.0
1.0 5.0 1.0
1.0 1.0 9.0
1.0 1.0 1.0
OK
(+ mx2 mx3)
exception bvm+:dim-mismatch OK
(- mx2 mx3)
exception bvm-:dim-mismatch OK
(* mx3 mx4)
exception bvm*:dim-mismatch OK
|
