let convert_back_R v =
match v with
|N i -> [| float_of_int i |]
|R f -> [| f |]
(** realise the function int -> value into float list.*) |
|Vec (size, vec) ->
let result_value_array = Array.init size vec in
let result_float_array = Array.map take_off_R result_value_array in
result_float_array
|Zero -> [| 0. |]
|W -> [| 0. |]