let signal_vectorize s1 s2 = 
        let size = (signal_fun s2) 0 in
        match size with
        |N size_int ->
                (
                        let new_signal = fun t -> 
                          make_vector size_int (fun i -> (signal_fun s1) (size_int * t + i)) in
                        let new_frequency = (frequency s1) / size_int in
                        (new_frequency, new_signal)
                )
        |-> raise (Signal_operation "Vectorize: vector size should be int.")