Blame doc/examples/const.c
|
Packit |
67cb25 |
#include <stdio.h>
|
|
Packit |
67cb25 |
#include <gsl/gsl_const_mksa.h>
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int
|
|
Packit |
67cb25 |
main (void)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
double c = GSL_CONST_MKSA_SPEED_OF_LIGHT;
|
|
Packit |
67cb25 |
double au = GSL_CONST_MKSA_ASTRONOMICAL_UNIT;
|
|
Packit |
67cb25 |
double minutes = GSL_CONST_MKSA_MINUTE;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
/* distance stored in meters */
|
|
Packit |
67cb25 |
double r_earth = 1.00 * au;
|
|
Packit |
67cb25 |
double r_mars = 1.52 * au;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
double t_min, t_max;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
t_min = (r_mars - r_earth) / c;
|
|
Packit |
67cb25 |
t_max = (r_mars + r_earth) / c;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
printf ("light travel time from Earth to Mars:\n");
|
|
Packit |
67cb25 |
printf ("minimum = %.1f minutes\n", t_min / minutes);
|
|
Packit |
67cb25 |
printf ("maximum = %.1f minutes\n", t_max / minutes);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
return 0;
|
|
Packit |
67cb25 |
}
|