let signal_atan s = 
        let new_signal = fun t -> v_atan ((signal_fun s) t) in
        (frequency s, new_signal)