exp_opencl_02.ml

#require "owl_opencl";;
open Owl_opencl_operand;;
let x = Arr (Dense.Ndarray.S.uniform [|10;10|]);;
let y = Owl_opencl_dense.add_scalar x (F 1.);;
let z = Owl_opencl_dense.cos y;;
eval z;;


#require "owl_opencl";;
open Owl_opencl_operand;;
let x = Arr (Dense.Ndarray.S.uniform [|1000|]);;
let y = Arr (Dense.Ndarray.S.uniform [|1000|]);;
let z = Owl_opencl_dense.add x y;;
eval z;;





#require "owl_opencl";;
open Owl_opencl_operand;;
let x = Arr (Dense.Ndarray.S.uniform [|10000000|]);;
let y = Owl_opencl_dense.add_scalar x (F 1.);;
let y = Owl_opencl_dense.add y y;;
let y = Owl_opencl_dense.cos y;;
let y = Owl_opencl_dense.sin y;;
let f () = eval y;;
Utils.time f;;


let x = Dense.Ndarray.S.uniform [|10000000|];;
let f () =
  let y = Dense.Ndarray.S.add_scalar x 1. in
  let y = Dense.Ndarray.S.add y y in
  let y = Dense.Ndarray.S.cos y in
  let y = Dense.Ndarray.S.sin y in
  ()
;;
Utils.time f;;



#require "owl_opencl";;
open Owl_opencl_operand;;
let x = Arr (Dense.Ndarray.S.sequential [|100_000_000|]);;
let y = Owl_opencl_dense.sum x;;
let f () = eval y;;
Utils.time f;;


let x = Dense.Ndarray.S.sequential [|100_000_000|];;
let f () = Dense.Ndarray.S.sum x;;
Utils.time f;;