external/clem/benchmark/bench-scale.lisp

   1
   2 (in-package :clem-benchmark)
   3
   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)
   7     (mat-scale m 2.0d0)))
   8
   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)))
  12
  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)
  16     (mat-scale m 2.0s0)))
  17
  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)))
  21
  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)
  25     (mat-scale m 2)))
  26
  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)))
  30
  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)
  34     (mat-scale m 2)))
  35
  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)))
  39
  40
  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)
  44     (mat-scale m 2)))
  45
  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)))
  49
  50
  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)
  54     (mat-scale m 2)))
  55
  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)))
  59
  60
  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)
  64     (mat-scale m 2)))
  65
  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)))
  69
  70
  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)
  74     (mat-scale m 2)))
  75
  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)))