Revision 04e3c0474a4e2fbefcb6eb1aa70186f3713701e7 authored by Jerry James on 20 April 2021, 19:43:31 UTC, committed by Jerry James on 20 April 2021, 19:44:50 UTC
simplescale_array.ml
``````(**************************************************************************)
(* Sample use of Parmap, a simple library to perform Map computations on  *)
(* a multi-core                                                           *)
(*                                                                        *)
(*  Author(s):  Roberto Di Cosmo                                          *)
(*                                                                        *)
(*  This program is free software: you can redistribute it and/or modify  *)
(*  it under the terms of the GNU General Public License as               *)
(*  published by the Free Software Foundation, either version 2 of the    *)
(**************************************************************************)

open Parmap
open Utils

let compute p =
let r=ref 1 in
for i = 1 to 80000 do
r:= !r+(p*p)-(p*(p-1))
done;
!r
;;

let fcompute p =
let r=ref 1. in
for i = 1 to 80000 do
r:= !r+.(p*.p)-.(p*.(p-.1.))
done;
!r
;;

array_scale_test fcompute (Array.init 20000 (fun i -> float_of_int i)) 2 1 10;;
array_scale_test ~chunksize:100 ~inorder:false fcompute (Array.init 20000 (fun i -> float_of_int i)) 2 1 10;;
array_scale_test ~chunksize:100 ~keeporder:true fcompute (Array.init 20000 (fun i -> float_of_int i)) 2 1 10;;

array_float_scale_test fcompute (Array.init 20000 (fun i -> float_of_int i)) 2 1 10;;

scale_test ~chunksize:100 ~inorder:false compute (A (Array.init 20000 (fun i -> i))) 2 1 10;;
scale_test ~chunksize:100 ~keeporder:true compute (A (Array.init 20000 (fun i -> i))) 2 1 10;;

scale_test compute (A (Array.init 20000 (fun i -> i))) 2 1 10;;
``````

Computing file changes ...