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. |]