File: const.ml

package info (click to toggle)
ocamlgsl 0.3.5-3
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 3,444 kB
  • ctags: 2,901
  • sloc: ml: 7,956; ansic: 6,796; makefile: 303; sh: 87; awk: 13
file content (12 lines) | stat: -rw-r--r-- 418 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
 

let () =
  let au  = Gsl_const.mksa_astronomical_unit in
  let c   = Gsl_const.mksa_speed_of_light in
  let min = Gsl_const.mksa_minute in

  let r_earth = 1.00 *. au in
  let r_mars  = 1.52 *. au in

  Printf.printf "light travel time from Earth to Mars:\n" ;
  Printf.printf "minimum = %.1f minutes\n" ((r_mars -. r_earth) /. c /. min) ;
  Printf.printf "maximum = %.1f minutes\n" ((r_mars +. r_earth) /. c /. min)