let cos_vc = cos ( facteur_pulsation *. 412. /. 60. )