let signal_atantwo s1 s2 = 
        let new_signal = fun t -> v_atantwo ((signal_fun s1) t) ((signal_fun s2) t) in
        (frequency s1, new_signal)