2 (in-package :clem-benchmark
)
4 ;;; mat-scale double float benchmarks
5 (let ((m (make-instance 'double-float-matrix
:dimensions
'(1024 1024) :initial-element
1d0
)))
6 (with-matrix-benchmark (:scale-1024-1024
/double-float
)
9 (let ((m (make-instance 'double-float-matrix
:dimensions
'(1024 1024) :initial-element
1d0
)))
10 (with-matrix-benchmark (:scale-in-place-1024-1024
/double-float
)
11 (mat-scale m
2.0d0
:in-place t
)))
13 ;;; mat-scale single float benchmarks
14 (let ((m (make-instance 'single-float-matrix
:dimensions
'(1024 1024) :initial-element
1s0
)))
15 (with-matrix-benchmark (:scale-1024-1024
/single-float
)
18 (let ((m (make-instance 'single-float-matrix
:dimensions
'(1024 1024) :initial-element
1s0
)))
19 (with-matrix-benchmark (:scale-in-place-1024-1024
/single-float
)
20 (mat-scale m
2.0s0
:in-place t
)))
22 ;;; mat-scale sb8 benchmarks
23 (let ((m (make-instance 'sb8-matrix
:dimensions
'(1024 1024) :initial-element
1)))
24 (with-matrix-benchmark (:scale-1024-1024
/sb8
)
27 (let ((m (make-instance 'sb8-matrix
:dimensions
'(1024 1024) :initial-element
1)))
28 (with-matrix-benchmark (:scale-in-place-1024-1024
/sb8
)
29 (mat-scale m
2 :in-place t
)))
31 ;;; mat-scale sb16 benchmarks
32 (let ((m (make-instance 'sb16-matrix
:dimensions
'(1024 1024) :initial-element
1)))
33 (with-matrix-benchmark (:scale-1024-1024
/sb16
)
36 (let ((m (make-instance 'sb16-matrix
:dimensions
'(1024 1024) :initial-element
1)))
37 (with-matrix-benchmark (:scale-in-place-1024-1024
/sb16
)
38 (mat-scale m
2 :in-place t
)))
41 ;;; mat-scale sb32 benchmarks
42 (let ((m (make-instance 'sb32-matrix
:dimensions
'(1024 1024) :initial-element
1)))
43 (with-matrix-benchmark (:scale-1024-1024
/sb32
)
46 (let ((m (make-instance 'sb32-matrix
:dimensions
'(1024 1024) :initial-element
1)))
47 (with-matrix-benchmark (:scale-in-place-1024-1024
/sb32
)
48 (mat-scale m
2 :in-place t
)))
51 ;;; mat-scale ub8 benchmarks
52 (let ((m (make-instance 'ub8-matrix
:dimensions
'(1024 1024) :initial-element
1)))
53 (with-matrix-benchmark (:scale-1024-1024
/ub8
)
56 (let ((m (make-instance 'ub8-matrix
:dimensions
'(1024 1024) :initial-element
1)))
57 (with-matrix-benchmark (:scale-in-place-1024-1024
/ub8
)
58 (clem::mat-scale m
2 :in-place t
)))
61 ;;; mat-scale ub16 benchmarks
62 (let ((m (make-instance 'ub16-matrix
:dimensions
'(1024 1024) :initial-element
1)))
63 (with-matrix-benchmark (:scale-1024-1024
/ub16
)
66 (let ((m (make-instance 'ub16-matrix
:dimensions
'(1024 1024) :initial-element
1)))
67 (with-matrix-benchmark (:scale-in-place-1024-1024
/ub16
)
68 (clem::mat-scale m
2 :in-place t
)))
71 ;;; mat-scale ub32 benchmarks
72 (let ((m (make-instance 'ub32-matrix
:dimensions
'(1024 1024) :initial-element
1)))
73 (with-matrix-benchmark (:scale-1024-1024
/ub32
)
76 (let ((m (make-instance 'ub32-matrix
:dimensions
'(1024 1024) :initial-element
1)))
77 (with-matrix-benchmark (:scale-in-place-1024-1024
/ub32
)
78 (clem::mat-scale m
2 :in-place t
)))