SeedValue seed_mpfr_mul (SeedContext ctx,
SeedObject function,
SeedObject this_object,
gsize argument_count,
const SeedValue args[],
SeedException *exception)
{
mpfr_rnd_t rnd;
mpfr_ptr rop, op1, op2;
gdouble dop1, dop2;
gint ret;
seed_mpfr_t argt1, argt2;
/* only want 1 double argument. alternatively, could accept 2,
add those, and set from the result*/
CHECK_ARG_COUNT("mpfr.mul", 3);
rop = seed_object_get_private(this_object);
rnd = seed_value_to_mpfr_rnd_t(ctx, args[2], exception);
argt1 = seed_mpfr_arg_type(ctx, args[0], exception);
argt2 = seed_mpfr_arg_type(ctx, args[1], exception);
if ( (argt1 & argt2) == SEED_MPFR_MPFR )
{
/* both mpfr_t */
op1 = seed_object_get_private(args[0]);
op2 = seed_object_get_private(args[1]);
ret = mpfr_mul(rop, op1, op2, rnd);
}
else if ( (argt1 | argt2) == (SEED_MPFR_MPFR | SEED_MPFR_DOUBLE) )
{
/* a double and an mpfr_t. Figure out the order */
if ( argt1 == SEED_MPFR_MPFR )
{
op1 = seed_object_get_private(args[0]);
dop2 = seed_value_to_double(ctx, args[1], exception);
mpfr_mul_d(rop, op1, dop2, rnd);
}
else
{
dop2 = seed_value_to_double(ctx, args[0], exception);
op1 = seed_object_get_private(args[1]);
mpfr_mul_d(rop, op1, dop2, rnd);
}
}
else if ( (argt1 & argt2) == SEED_MPFR_DOUBLE )
{
/* 2 doubles. hopefully doesn't happen */
dop1 = seed_value_to_double(ctx, args[0], exception);
dop2 = seed_value_to_double(ctx, args[1], exception);
ret = mpfr_set_d(rop, dop1 * dop2, rnd);
}
else
{
TYPE_EXCEPTION("mpfr.mul", "double or mpfr_t");
}
return seed_value_from_int(ctx, ret, exception);
}
void coords_zoom(coords* c, double multiplier)
{
mpfr_mul_d( c->_size, c->_size, multiplier, GMP_RNDN);
mpfr_set( *c->size, c->_size, GMP_RNDN);
if (c->aspect > 1.0)
mpfr_div_d(c->height, c->width, c->aspect, GMP_RNDN);
else
mpfr_mul_d(c->width, c->height, c->aspect, GMP_RNDN);
coords_calculate_precision(c);
coords_center_to_rect(c);
}
int mpfr_mat_R_reduced(__mpfr_struct ** R, long d, double delta, double eta, mp_prec_t prec)
{
if (d == 1)
return 1;
mpfr_t tmp1;
mpfr_t tmp2;
mpfr_init2(tmp1, prec);
mpfr_init2(tmp2, prec);
int reduced = 1;
long i;
for (i = 0; (i < d - 1) && (reduced == 1); i++)
{
mpfr_pow_ui(tmp1, R[i+1] + i, 2L, GMP_RNDN);
mpfr_pow_ui(tmp2, R[i+1] + i + 1, 2L, GMP_RNDN);
mpfr_add(tmp1, tmp1, tmp2, GMP_RNDN);
mpfr_pow_ui(tmp2, R[i] + i, 2L, GMP_RNDN);
mpfr_mul_d(tmp2, tmp2, (double) delta, GMP_RNDN);
mpfr_sub(tmp1, tmp1, tmp2, GMP_RNDN);
// mpfr_add_d(tmp1, tmp1, .001, GMP_RNDN);
if (mpfr_sgn(tmp1) < 0)
{
reduced = 0;
printf(" happened at index i = %ld\n", i);
break;
}
long j;
for (j = 0; (j < i) && (reduced == 1); j++)
{
mpfr_mul_d(tmp2, R[i + 1] + i + 1, (double) eta, GMP_RNDN);
if (mpfr_cmpabs(R[j] + i, tmp2) > 0)
{
reduced = 0;
printf(" size red problem at index i = %ld, j = %ld\n", i, j);
break;
}
}
}
mpfr_clear(tmp1);
mpfr_clear(tmp2);
return reduced;
}
static void
check_nans (void)
{
mpfr_t x, y;
int inexact;
mpfr_init2 (x, 123);
mpfr_init2 (y, 123);
/* nan * 1.0 is nan */
mpfr_set_nan (x);
mpfr_clear_flags();
inexact = mpfr_mul_d (y, x, 1.0, MPFR_RNDN);
MPFR_ASSERTN (inexact == 0);
MPFR_ASSERTN ((__gmpfr_flags ^ MPFR_FLAGS_NAN) == 0);
MPFR_ASSERTN (mpfr_nan_p (y));
/* +inf * 1.0 == +inf */
mpfr_set_inf (x, 1);
mpfr_clear_flags();
inexact = mpfr_mul_d (y, x, 1.0, MPFR_RNDN);
MPFR_ASSERTN (inexact == 0);
MPFR_ASSERTN (__gmpfr_flags == 0);
MPFR_ASSERTN (mpfr_inf_p (y));
MPFR_ASSERTN (MPFR_IS_POS (y));
/* +inf * 0.0 is nan */
mpfr_clear_flags();
inexact = mpfr_mul_d (y, x, 0.0, MPFR_RNDN);
MPFR_ASSERTN (inexact == 0);
MPFR_ASSERTN ((__gmpfr_flags ^ MPFR_FLAGS_NAN) == 0);
MPFR_ASSERTN (mpfr_nan_p (y));
/* -inf * 1.0 == -inf */
mpfr_set_inf (x, -1);
mpfr_clear_flags();
inexact = mpfr_mul_d (y, x, 1.0, MPFR_RNDN);
MPFR_ASSERTN (inexact == 0);
MPFR_ASSERTN (__gmpfr_flags == 0);
MPFR_ASSERTN (mpfr_inf_p (y));
MPFR_ASSERTN (MPFR_IS_NEG (y));
mpfr_clear (x);
mpfr_clear (y);
}
double cwf(unsigned long long base_counts[], unsigned long long window)
{
assert(window != 0);
assert(base_counts != NULL);
unsigned long long i = 0;
unsigned long long count = 0;
mpfr_t val;
mpfr_init(val);
mpfr_set_ui(val, 1, RND);
mpfr_t loop_result;
mpfr_init(loop_result);
mpfr_set_ui(loop_result, 1, RND);
mpfr_t log_result;
mpfr_init(log_result);
mpfr_set_ui(log_result, 1, RND);
for (i = 0; i < NUM_BASES; i++) {
count = base_counts[i];
assert(count > 0);
fact(val, count);
/* loop_result *= val */
mpfr_mul(loop_result, loop_result, val, RND);
}
assert(mpfr_cmp_ui(loop_result, 0) != 0);
/* val = factorial(window) */
fact(val, window);
/* val = val / loop_result */
mpfr_div(val, val, loop_result, RND);
/* log_result = log4(val) */
log4(log_result, val);
/* val = log_result * (1.0 / window) */
mpfr_mul_d(val, log_result, (1.0 / window), RND);
double output = 0.0;
output = mpfr_get_d(val, RND);
mpfr_clear(val);
mpfr_clear(loop_result);
mpfr_clear(log_result);
return output;
}
void coords_center_to_rect(coords* c)
{
mpfr_t tmp;
mpfr_init2(tmp, c->precision);
DMSG("updating from center to rect\n");
if (c->aspect > 1.0)
{
DMSG("wide image");
mpfr_div_d( c->height, c->width, c->aspect, GMP_RNDN);
mpfr_div_ui(tmp, c->width, 2, GMP_RNDN);
mpfr_sub( c->xmin, c->cx, tmp, GMP_RNDN);
mpfr_add( c->xmax, c->xmin, c->width, GMP_RNDN);
mpfr_div_d( tmp, tmp, c->aspect, GMP_RNDN);
mpfr_sub( c->ymin, c->cy, tmp, GMP_RNDN);
mpfr_add( c->ymax, c->ymin, c->height, GMP_RNDN);
}
else
{
DMSG("tall image");
mpfr_mul_d( c->width, c->height, c->aspect, GMP_RNDN);
mpfr_div_ui(tmp, c->height, 2, GMP_RNDN);
mpfr_sub( c->ymin, c->cy, tmp, GMP_RNDN);
mpfr_add( c->ymax, c->ymin, c->height, GMP_RNDN);
mpfr_mul_d( tmp, tmp, c->aspect, GMP_RNDN);
mpfr_sub( c->xmin, c->cx, tmp, GMP_RNDN);
mpfr_add( c->xmax, c->xmin, c->width, GMP_RNDN);
}
mpfr_clear(tmp);
}
int
main (void)
{
mpfr_t x, y, z;
double d;
int inexact;
tests_start_mpfr ();
/* check with enough precision */
mpfr_init2 (x, IEEE_DBL_MANT_DIG);
mpfr_init2 (y, IEEE_DBL_MANT_DIG);
mpfr_init2 (z, IEEE_DBL_MANT_DIG);
mpfr_set_str (y, "4096", 10, MPFR_RNDN);
d = 0.125;
mpfr_clear_flags ();
inexact = mpfr_mul_d (x, y, d, MPFR_RNDN);
if (inexact != 0)
{
printf ("Inexact flag error in mpfr_mul_d\n");
exit (1);
}
mpfr_set_str (z, "512", 10, MPFR_RNDN);
if (mpfr_cmp (z, x))
{
printf ("Error in mpfr_mul_d (");
mpfr_out_str (stdout, 10, 0, y, MPFR_RNDN);
printf (" + %.20g)\nexpected ", d);
mpfr_out_str (stdout, 10, 0, z, MPFR_RNDN);
printf ("\ngot ");
mpfr_out_str (stdout, 10, 0, x, MPFR_RNDN);
printf ("\n");
exit (1);
}
mpfr_clears (x, y, z, (mpfr_ptr) 0);
check_nans ();
test_generic (2, 1000, 100);
tests_end_mpfr ();
return 0;
}
int main() {
int op;
bool res=0;
long int per=100;
int no, *ptr,*temp,n1,i;
double n,k,j,pcomp,cnt=0;
double x;
// ******************************************Calculate original probability ****************************************
mpfr_t p,t;
mpfr_init2(p,100); // declare probability with a pecision of 100 so that smaller probabilities dont get truncated to zero
mpfr_set_d (p, 1.0, MPFR_RNDD); //initialise p with 1.0
mpfr_init2(t,100);
mpfr_set_d (t, 1.0, MPFR_RNDD);
printf("Enter the number of people :\n"); //Number of people to form a group of
scanf("%lf",&k);
printf("Choose :\nLeap Year(1)\nNormal Year(2)\n"); // Choose if its a normal year or a leap year
scanf("%d",&op);
if(op==1)
n=366;
else if(op==2)
n=365;
for(i=1;i<=k;i++) //this loop calculates the probability that two people dont have birthdays on the same day
{
x=(n-i+1)/n;
mpfr_mul_d(p, p,x, MPFR_RNDD);
}
mpfr_sub(p,t,p,MPFR_RNDD); // 1-probability that no two people have birthdays on the same day
mpfr_mul_si(p,p,per,MPFR_RNDD); //Percentage
printf ("Expected Probability in Percentage : ");
mpfr_printf ("%.64Rf ", p);
putchar ('\n');
mpfr_clear(p);
mpfr_clear(t);
// ****************************************Verification of this paradox**********************************************
printf("Enter the number of trials you want to take :\n"); //number of trials to take to confirm the resultant probaility
scanf("%d",&no);
ptr=(int *)malloc(k*sizeof(int)); //Assign memory space for an array of k people for each test case
temp=ptr;
for(j=0;j<no;j++)
{
ptr=temp;
res=0;
for(i=0,n1=(int)n;i<k;i++,ptr++)
*ptr=(rand()%n1)+1; //randomly select nth day from 365/366 days for assigning birthdays
ptr=temp;
qsort(ptr,k,sizeof(int),compare_int); //sort the array using quick sort
ptr=temp;
for(i=0;i<k;i++,ptr++)
{
if(*ptr==*(ptr+1)) //comparing if two people have birthdays on the same day
{
res=1;
break;
}
}
if(res==1)
cnt++; //increase the count of tests which turned out to be positive from total number of trials
}
pcomp = (cnt/no) *100; //percentage of success cases
printf("Actual Probability in Percentage : %lf \n",pcomp);
return 0;
}
MpfrFloat MpfrFloat::operator*(double value) const
{
MpfrFloat retval(kNoInitialization);
mpfr_mul_d(retval.mData->mFloat, mData->mFloat, value, GMP_RNDN);
return retval;
}
MpfrFloat& MpfrFloat::operator*=(double value)
{
copyIfShared();
mpfr_mul_d(mData->mFloat, mData->mFloat, value, GMP_RNDN);
return *this;
}
num_t
num_new_from_str(int flags, numtype_t typehint, char *str)
{
numtype_t type = typehint;
double exp;
char *suffix, *s;
int base, type_override, r;
num_t n;
n = num_new(flags);
/*
* If it's a decimal number but it doesn't have a floating point, suffix, etc
* treat it as an integer.
*/
type_override = 1;
if (typehint == NUM_FP) {
s = (str[1] == 'd') ? str + 2 : str;
while (*s != '\0') {
if (!isdigit(*s++)) {
type_override = 0;
break;
}
}
if (type_override)
type = NUM_INT;
}
n->num_type = type;
base = 0;
if (str[1] == 'd') {
base = 10;
str += 2;
}
if (type == NUM_INT) {
if ((r = mpz_init_set_str(Z(n), str, base)) != 0) {
yyxerror("mpz_init_set_str");
mpz_clear(Z(n));
}
} else {
if (str[1] == 'd')
str += 2;
mpfr_init(F(n));
r = mpfr_strtofr(F(n), str, &suffix, 0, round_mode);
/*
* XXX: add support for IEC binary prefixes?
*/
if (*suffix != '\0') {
switch (*suffix) {
case 'k':
exp = 1000;
break;
case 'M':
exp = 1000000;
break;
case 'G':
exp = 1000000000;
break;
case 'T':
exp = 1000000000000;
break;
case 'P':
exp = 1000000000000000;
break;
case 'E':
exp = 1000000000000000000;
break;
case 'm':
exp = 0.001;
break;
case 'u':
exp = 0.000001;
break;
case 'n':
exp = 0.000000001;
break;
case 'p':
exp = 0.000000000001;
break;
case 'f':
exp = 0.000000000000001;
break;
case 'a':
exp = 0.000000000000000001;
break;
default:
yyxerror("Unknown suffix");
exit(1);
}
mpfr_mul_d(F(n), F(n), exp, round_mode);
}
}
return n;
}
static PyObject *
GMPy_Real_Mul(PyObject *x, PyObject *y, CTXT_Object *context)
{
MPFR_Object *result = NULL;
CHECK_CONTEXT(context);
if (!(result = GMPy_MPFR_New(0, context))) {
/* LCOV_EXCL_START */
return NULL;
/* LCOV_EXCL_STOP */
}
if (MPFR_Check(x) && MPFR_Check(y)) {
mpfr_clear_flags();
result->rc = mpfr_mul(result->f, MPFR(x), MPFR(y), GET_MPFR_ROUND(context));
goto done;
}
if (MPFR_Check(x)) {
if (PyIntOrLong_Check(y)) {
int error;
long temp = GMPy_Integer_AsLongAndError(y, &error);
if (!error) {
mpfr_clear_flags();
result->rc = mpfr_mul_si(result->f, MPFR(x), temp, GET_MPFR_ROUND(context));
goto done;
}
else {
mpz_t tempz;
mpz_inoc(tempz);
mpz_set_PyIntOrLong(tempz, y);
mpfr_clear_flags();
result->rc = mpfr_mul_z(result->f, MPFR(x), tempz, GET_MPFR_ROUND(context));
mpz_cloc(tempz);
goto done;
}
}
if (CHECK_MPZANY(y)) {
mpfr_clear_flags();
result->rc = mpfr_mul_z(result->f, MPFR(x), MPZ(y), GET_MPFR_ROUND(context));
goto done;
}
if (IS_RATIONAL(y)) {
MPQ_Object *tempy = NULL;
if (!(tempy = GMPy_MPQ_From_Number(y, context))) {
/* LCOV_EXCL_START */
Py_DECREF((PyObject*)result);
return NULL;
/* LCOV_EXCL_STOP */
}
mpfr_clear_flags();
result->rc = mpfr_mul_q(result->f, MPFR(x), tempy->q, GET_MPFR_ROUND(context));
Py_DECREF((PyObject*)tempy);
goto done;
}
if (PyFloat_Check(y)) {
mpfr_clear_flags();
result->rc = mpfr_mul_d(result->f, MPFR(x), PyFloat_AS_DOUBLE(y), GET_MPFR_ROUND(context));
goto done;
}
}
if (MPFR_Check(y)) {
if (PyIntOrLong_Check(x)) {
int error;
long temp = GMPy_Integer_AsLongAndError(x, &error);
if (!error) {
mpfr_clear_flags();
result->rc = mpfr_mul_si(result->f, MPFR(y), temp, GET_MPFR_ROUND(context));
goto done;
}
else {
mpz_t tempz;
mpz_inoc(tempz);
mpz_set_PyIntOrLong(tempz, x);
mpfr_clear_flags();
result->rc = mpfr_mul_z(result->f, MPFR(y), tempz, GET_MPFR_ROUND(context));
mpz_cloc(tempz);
goto done;
}
}
if (CHECK_MPZANY(x)) {
mpfr_clear_flags();
result->rc = mpfr_mul_z(result->f, MPFR(y), MPZ(x), GET_MPFR_ROUND(context));
goto done;
}
if (IS_RATIONAL(x)) {
MPQ_Object *tempx = NULL;
if (!(tempx = GMPy_MPQ_From_Number(x, context))) {
/* LCOV_EXCL_START */
Py_DECREF((PyObject*)result);
return NULL;
/* LCOV_EXCL_STOP */
}
mpfr_clear_flags();
result->rc = mpfr_mul_q(result->f, MPFR(y), tempx->q, GET_MPFR_ROUND(context));
Py_DECREF((PyObject*)tempx);
goto done;
}
if (PyFloat_Check(x)) {
mpfr_clear_flags();
result->rc = mpfr_mul_d(result->f, MPFR(y), PyFloat_AS_DOUBLE(x), GET_MPFR_ROUND(context));
goto done;
}
}
if (IS_REAL(x) && IS_REAL(y)) {
MPFR_Object *tempx = NULL, *tempy = NULL;
if (!(tempx = GMPy_MPFR_From_Real(x, 1, context)) ||
!(tempy = GMPy_MPFR_From_Real(y, 1, context))) {
/* LCOV_EXCL_START */
Py_XDECREF((PyObject*)tempx);
Py_XDECREF((PyObject*)tempy);
Py_DECREF((PyObject*)result);
return NULL;
/* LCOV_EXCL_STOP */
}
mpfr_clear_flags();
result->rc = mpfr_mul(result->f, MPFR(tempx), MPFR(tempy), GET_MPFR_ROUND(context));
Py_DECREF((PyObject*)tempx);
Py_DECREF((PyObject*)tempy);
goto done;
}
/* LCOV_EXCL_START */
Py_DECREF((PyObject*)result);
SYSTEM_ERROR("Internal error in GMPy_Real_Mul().");
return NULL;
/* LCOV_EXCL_STOP */
done:
_GMPy_MPFR_Cleanup(&result, context);
return (PyObject*)result;
}
int
nth_new_moon( mpfr_t *result, int n_int ) {
mpfr_t n, k, C, approx, E, solar_anomaly, lunar_anomaly, moon_argument, omega, extra, correction, additional;
#if(0)
PerlIO_printf(PerlIO_stderr(), "nth_new_moon = %d\n", n_int );
#endif
if ( dt_astro_global_cache.cache_size > n_int ) {
mpfr_t *cached = dt_astro_global_cache.cache[n_int];
if (cached != NULL) {
#if(0)
PerlIO_printf(PerlIO_stderr(), "Cache HIT for %d\n", n_int);
#endif
mpfr_set( *result, *cached, GMP_RNDN );
return 1;
}
}
mpfr_init_set_ui( n, n_int, GMP_RNDN );
/* k = n - 24724 */
mpfr_init_set(k, n, GMP_RNDN);
mpfr_sub_ui(k, k, 24724, GMP_RNDN );
/* c = k / 1236.85 */
mpfr_init_set(C, k, GMP_RNDN );
mpfr_div_d(C, C, 1236.85, GMP_RNDN);
{
mpfr_t a, b, c, d, e;
mpfr_init(approx);
mpfr_init_set_d(a, 730125.59765, GMP_RNDN );
mpfr_init_set_d(b, MEAN_SYNODIC_MONTH * 1236.85, GMP_RNDN );
mpfr_init_set_d(c, 0.0001337, GMP_RNDN );
mpfr_init_set_d(d, -0.000000150, GMP_RNDN );
mpfr_init_set_d(e, 0.00000000073, GMP_RNDN );
polynomial( &approx, &C, 5, &a, &b, &c, &d, &e );
mpfr_clear(a);
mpfr_clear(b);
mpfr_clear(c);
mpfr_clear(d);
mpfr_clear(e);
#ifdef ANNOYING_DEBUG
#if (ANNOYING_DEBUG)
mpfr_fprintf(stderr,
"approx = %.10RNf\n", approx);
#endif
#endif
}
{
mpfr_t a, b, c;
mpfr_init(E);
mpfr_init_set_ui(a, 1, GMP_RNDN);
mpfr_init_set_d(b, -0.002516, GMP_RNDN );
mpfr_init_set_d(c, -0.0000074, GMP_RNDN );
polynomial( &E, &C, 3, &a, &b, &c );
mpfr_clear(a);
mpfr_clear(b);
mpfr_clear(c);
}
{
mpfr_t a, b, c, d;
mpfr_init(solar_anomaly);
mpfr_init_set_d(a, 2.5534, GMP_RNDN);
mpfr_init_set_d(b, 1236.85, GMP_RNDN);
mpfr_mul_d(b, b, 29.10535669, GMP_RNDN);
mpfr_init_set_d(c, -0.0000218, GMP_RNDN );
mpfr_init_set_d(d, -0.00000011, GMP_RNDN );
polynomial( &solar_anomaly, &C, 4, &a, &b, &c, &d);
mpfr_clear(a);
mpfr_clear(b);
mpfr_clear(c);
mpfr_clear(d);
}
{
mpfr_t a, b, c, d, e;
mpfr_init(lunar_anomaly);
mpfr_init_set_d(a, 201.5643, GMP_RNDN);
mpfr_init_set_d(b, 385.81693528 * 1236.85, GMP_RNDN);
mpfr_init_set_d(c, 0.0107438, GMP_RNDN);
mpfr_init_set_d(d, 0.00001239, GMP_RNDN);
mpfr_init_set_d(e, -0.000000058, GMP_RNDN);
polynomial( &lunar_anomaly, &C, 5, &a, &b, &c, &d, &e);
mpfr_clear(a);
mpfr_clear(b);
mpfr_clear(c);
mpfr_clear(d);
mpfr_clear(e);
}
{
mpfr_t a, b, c, d, e;
mpfr_init(moon_argument);
mpfr_init_set_d(a, 160.7108, GMP_RNDN);
mpfr_init_set_d(b, 390.67050274 * 1236.85, GMP_RNDN);
mpfr_init_set_d(c, -0.0016431, GMP_RNDN);
mpfr_init_set_d(d, -0.00000227, GMP_RNDN);
mpfr_init_set_d(e, 0.000000011, GMP_RNDN);
polynomial( &moon_argument, &C, 5, &a, &b, &c, &d, &e);
mpfr_clear(a);
mpfr_clear(b);
mpfr_clear(c);
mpfr_clear(d);
mpfr_clear(e);
}
{
mpfr_t a, b, c, d;
mpfr_init(omega);
mpfr_init_set_d(a, 124.7746, GMP_RNDN);
mpfr_init_set_d(b, -1.56375580 * 1236.85, GMP_RNDN);
mpfr_init_set_d(c, 0.0020691, GMP_RNDN);
mpfr_init_set_d(d, 0.00000215, GMP_RNDN);
polynomial( &omega, &C, 4, &a, &b, &c, &d);
mpfr_clear(a);
mpfr_clear(b);
mpfr_clear(c);
mpfr_clear(d);
}
{
mpfr_t a, b, c;
mpfr_init(extra);
mpfr_init_set_d(a, 299.77, GMP_RNDN);
mpfr_init_set_d(b, 132.8475848, GMP_RNDN);
mpfr_init_set_d(c, -0.009173, GMP_RNDN);
polynomial(&extra, &c, 3, &a, &b, &c);
dt_astro_sin(&extra, &extra);
mpfr_mul_d(extra, extra, 0.000325, GMP_RNDN);
mpfr_clear(a);
mpfr_clear(b);
mpfr_clear(c);
}
mpfr_init(correction);
dt_astro_sin(&correction, &omega);
mpfr_mul_d(correction, correction, -0.00017, GMP_RNDN);
{
int i;
for( i = 0; i < NTH_NEW_MOON_CORRECTION_ARGS_SIZE; i++ ) {
mpfr_t a, v, w, x, y, z;
mpfr_init_set_d(v, NTH_NEW_MOON_CORRECTION_ARGS[i][0], GMP_RNDN);
mpfr_init_set_d(w, NTH_NEW_MOON_CORRECTION_ARGS[i][1], GMP_RNDN);
mpfr_init_set_d(x, NTH_NEW_MOON_CORRECTION_ARGS[i][2], GMP_RNDN);
mpfr_init_set_d(y, NTH_NEW_MOON_CORRECTION_ARGS[i][3], GMP_RNDN);
mpfr_init_set_d(z, NTH_NEW_MOON_CORRECTION_ARGS[i][4], GMP_RNDN);
mpfr_mul(x, x, solar_anomaly, GMP_RNDN);
mpfr_mul(y, y, lunar_anomaly, GMP_RNDN);
mpfr_mul(z, z, moon_argument, GMP_RNDN);
mpfr_add(x, x, y, GMP_RNDN);
mpfr_add(x, x, z, GMP_RNDN);
dt_astro_sin(&x, &x);
mpfr_init(a);
mpfr_pow(a, E, w, GMP_RNDN);
mpfr_mul(a, a, v, GMP_RNDN);
mpfr_mul(a, a, x, GMP_RNDN);
mpfr_add( correction, correction, a, GMP_RNDN );
mpfr_clear(a);
mpfr_clear(v);
mpfr_clear(w);
mpfr_clear(x);
mpfr_clear(y);
mpfr_clear(z);
}
}
{
int z;
mpfr_init_set_ui(additional, 0, GMP_RNDN);
for (z = 0; z < NTH_NEW_MOON_ADDITIONAL_ARGS_SIZE; z++) {
mpfr_t i, j, l;
mpfr_init_set_d(i, NTH_NEW_MOON_ADDITIONAL_ARGS[z][0], GMP_RNDN);
mpfr_init_set_d(j, NTH_NEW_MOON_ADDITIONAL_ARGS[z][1], GMP_RNDN);
mpfr_init_set_d(l, NTH_NEW_MOON_ADDITIONAL_ARGS[z][2], GMP_RNDN);
mpfr_mul(j, j, k, GMP_RNDN);
mpfr_add(j, j, i, GMP_RNDN);
dt_astro_sin(&j, &j);
mpfr_mul(l, l, j, GMP_RNDN);
mpfr_add(additional, additional, l, GMP_RNDN);
mpfr_clear(i);
mpfr_clear(j);
mpfr_clear(l);
}
}
#ifdef ANNOYING_DEBUG
#if (ANNOYING_DEBUG)
mpfr_fprintf(stderr,
"correction = %.10RNf\nextra = %.10RNf\nadditional = %.10RNf\n", correction, extra, additional );
#endif
#endif
mpfr_set(*result, approx, GMP_RNDN);
mpfr_add(*result, *result, correction, GMP_RNDN);
mpfr_add(*result, *result, extra, GMP_RNDN);
mpfr_add(*result, *result, additional, GMP_RNDN);
adjust_lunar_phase_to_zero( result );
mpfr_clear(n);
mpfr_clear(k);
mpfr_clear(C);
mpfr_clear(approx);
mpfr_clear(E);
mpfr_clear(solar_anomaly);
mpfr_clear(lunar_anomaly);
mpfr_clear(moon_argument);
mpfr_clear(omega);
mpfr_clear(extra);
mpfr_clear(correction);
mpfr_clear(additional);
if (dt_astro_global_cache.cache_size == 0) {
dt_astro_global_cache.cache_size = 200000;
Newxz( dt_astro_global_cache.cache, dt_astro_global_cache.cache_size, mpfr_t * );
}
int
lunar_longitude( mpfr_t *result, mpfr_t *moment ) {
mpfr_t C, mean_moon, elongation, solar_anomaly, lunar_anomaly, moon_node, E, correction, venus, jupiter, flat_earth, N, fullangle;
mpfr_init(C);
julian_centuries( &C, moment );
{
mpfr_t a, b, c, d, e;
mpfr_init(mean_moon);
mpfr_init_set_d(a, 218.316591, GMP_RNDN);
mpfr_init_set_d(b, 481267.88134236, GMP_RNDN);
mpfr_init_set_d(c, -0.0013268, GMP_RNDN);
mpfr_init_set_ui(d, 1, GMP_RNDN);
mpfr_div_ui(d, d, 538841, GMP_RNDN);
mpfr_init_set_si(e, -1, GMP_RNDN);
mpfr_div_ui(e, e, 65194000, GMP_RNDN);
polynomial( &mean_moon, &C, 5, &a, &b, &c, &d, &e );
mpfr_clear(a);
mpfr_clear(b);
mpfr_clear(c);
mpfr_clear(d);
mpfr_clear(e);
}
{
mpfr_t a, b, c, d, e;
mpfr_init(elongation);
mpfr_init_set_d(a, 297.8502042, GMP_RNDN);
mpfr_init_set_d(b, 445267.1115168, GMP_RNDN);
mpfr_init_set_d(c, -0.00163, GMP_RNDN);
mpfr_init_set_ui(d, 1, GMP_RNDN);
mpfr_div_ui(d, d, 545868, GMP_RNDN);
mpfr_init_set_si(e, -1, GMP_RNDN);
mpfr_div_ui(e, e, 113065000, GMP_RNDN);
polynomial( &elongation, &C, 5, &a, &b, &c, &d, &e );
mpfr_clear(a);
mpfr_clear(b);
mpfr_clear(c);
mpfr_clear(d);
mpfr_clear(e);
}
{
mpfr_t a, b, c, d;
mpfr_init(solar_anomaly);
mpfr_init_set_d(a, 357.5291092, GMP_RNDN);
mpfr_init_set_d(b, 35999.0502909, GMP_RNDN);
mpfr_init_set_d(c, -0.0001536, GMP_RNDN);
mpfr_init_set_ui(d, 1, GMP_RNDN);
mpfr_div_ui(d, d, 24490000, GMP_RNDN);
polynomial( &solar_anomaly, &C, 4, &a, &b, &c, &d );
mpfr_clear(a);
mpfr_clear(b);
mpfr_clear(c);
mpfr_clear(d);
}
{
mpfr_t a, b, c, d, e;
mpfr_init(lunar_anomaly);
mpfr_init_set_d(a, 134.9634114, GMP_RNDN);
mpfr_init_set_d(b, 477198.8676313, GMP_RNDN);
mpfr_init_set_d(c, 0.0008997, GMP_RNDN);
mpfr_init_set_ui(d, 1, GMP_RNDN);
mpfr_div_ui(d, d, 69699, GMP_RNDN);
mpfr_init_set_si(e, -1, GMP_RNDN);
mpfr_div_ui(e, e, 14712000, GMP_RNDN);
polynomial( &lunar_anomaly, &C, 5, &a, &b, &c, &d, &e);
mpfr_clear(a);
mpfr_clear(b);
mpfr_clear(c);
mpfr_clear(d);
mpfr_clear(e);
}
{
mpfr_t a, b, c, d, e;
mpfr_init(moon_node);
mpfr_init_set_d(a, 93.2720993, GMP_RNDN);
mpfr_init_set_d(b, 483202.0175273, GMP_RNDN);
mpfr_init_set_d(c, -0.0034029, GMP_RNDN);
mpfr_init_set_si(d, -1, GMP_RNDN);
mpfr_div_ui(d, d, 3526000, GMP_RNDN);
mpfr_init_set_ui(e, 1, GMP_RNDN);
mpfr_div_ui(e, e, 863310000, GMP_RNDN);
polynomial(&moon_node, &C, 5, &a, &b, &c, &d, &e);
mpfr_clear(a);
mpfr_clear(b);
mpfr_clear(c);
mpfr_clear(d);
mpfr_clear(e);
}
{
mpfr_t a, b, c;
mpfr_init(E);
mpfr_init_set_ui(a, 1, GMP_RNDN);
mpfr_init_set_d(b, -0.002516, GMP_RNDN);
mpfr_init_set_d(c, -0.0000074, GMP_RNDN);
polynomial( &E, &C, 3, &a, &b, &c );
mpfr_clear(a);
mpfr_clear(b);
mpfr_clear(c);
}
{
int i;
mpfr_t fugly;
mpfr_init_set_ui(fugly, 0, GMP_RNDN);
for(i = 0; i < LUNAR_LONGITUDE_ARGS_SIZE; i++) {
mpfr_t a, b, v, w, x, y, z;
mpfr_init_set_d( v, LUNAR_LONGITUDE_ARGS[i][0], GMP_RNDN );
mpfr_init_set_d( w, LUNAR_LONGITUDE_ARGS[i][1], GMP_RNDN );
mpfr_init_set_d( x, LUNAR_LONGITUDE_ARGS[i][2], GMP_RNDN );
mpfr_init_set_d( y, LUNAR_LONGITUDE_ARGS[i][3], GMP_RNDN );
mpfr_init_set_d( z, LUNAR_LONGITUDE_ARGS[i][4], GMP_RNDN );
mpfr_init(b);
mpfr_pow(b, E, x, GMP_RNDN);
mpfr_mul(w, w, elongation, GMP_RNDN);
mpfr_mul(x, x, solar_anomaly, GMP_RNDN);
mpfr_mul(y, y, lunar_anomaly, GMP_RNDN);
mpfr_mul(z, z, moon_node, GMP_RNDN);
mpfr_init_set(a, w, GMP_RNDN);
mpfr_add(a, a, x, GMP_RNDN);
mpfr_add(a, a, y, GMP_RNDN);
mpfr_add(a, a, z, GMP_RNDN);
dt_astro_sin(&a, &a);
mpfr_mul(a, a, v, GMP_RNDN);
mpfr_mul(a, a, b, GMP_RNDN);
mpfr_add(fugly, fugly, a, GMP_RNDN);
mpfr_clear(a);
mpfr_clear(b);
mpfr_clear(v);
mpfr_clear(w);
mpfr_clear(x);
mpfr_clear(y);
mpfr_clear(z);
}
mpfr_init_set_d( correction, 0.000001, GMP_RNDN );
mpfr_mul( correction, correction, fugly, GMP_RNDN);
mpfr_clear(fugly);
}
{
mpfr_t a, b;
mpfr_init(venus);
mpfr_init_set_d(a, 119.75, GMP_RNDN);
mpfr_init_set(b, C, GMP_RNDN);
mpfr_mul_d(b, b, 131.849, GMP_RNDN);
mpfr_add(a, a, b, GMP_RNDN);
dt_astro_sin(&a, &a);
mpfr_mul_d(venus, a, 0.003957, GMP_RNDN );
mpfr_clear(a);
mpfr_clear(b);
}
{
mpfr_t a, b;
mpfr_init(jupiter);
mpfr_init_set_d(a, 53.09, GMP_RNDN);
mpfr_init_set(b, C, GMP_RNDN);
mpfr_mul_d(b, b, 479264.29, GMP_RNDN);
mpfr_add(a, a, b, GMP_RNDN);
dt_astro_sin(&a, &a);
mpfr_mul_d(jupiter, a, 0.000318, GMP_RNDN );
mpfr_clear(a);
mpfr_clear(b);
}
{
mpfr_t a;
mpfr_init(flat_earth);
mpfr_init_set(a, mean_moon, GMP_RNDN);
mpfr_sub(a, a, moon_node, GMP_RNDN);
dt_astro_sin(&a, &a);
mpfr_mul_d(flat_earth, a, 0.001962, GMP_RNDN);
mpfr_clear(a);
}
mpfr_set(*result, mean_moon, GMP_RNDN);
mpfr_add(*result, *result, correction, GMP_RNDN);
mpfr_add(*result, *result, venus, GMP_RNDN);
mpfr_add(*result, *result, jupiter, GMP_RNDN);
mpfr_add(*result, *result, flat_earth, GMP_RNDN);
#ifdef ANNOYING_DEBUG
#if (ANNOYING_DEBUG)
mpfr_fprintf(stderr,
"mean_moon = %.10RNf\ncorrection = %.10RNf\nvenus = %.10RNf\njupiter = %.10RNf\nflat_earth = %.10RNf\n",
mean_moon,
correction,
venus,
jupiter,
flat_earth);
#endif
#endif
mpfr_init(N);
nutation(&N, moment);
mpfr_add(*result, *result, N, GMP_RNDN);
mpfr_init_set_ui(fullangle, 360, GMP_RNDN);
#ifdef ANNOYING_DEBUG
#if (ANNOYING_DEBUG)
mpfr_fprintf(stderr, "lunar = mod(%.10RNf) = ", *result );
#endif
#endif
dt_astro_mod(result, result, &fullangle);
#ifdef ANNOYING_DEBUG
#if (ANNOYING_DEBUG)
mpfr_fprintf(stderr, "%.10RNf\n", *result );
#endif
#endif
mpfr_clear(C);
mpfr_clear(mean_moon);
mpfr_clear(elongation);
mpfr_clear(solar_anomaly);
mpfr_clear(lunar_anomaly);
mpfr_clear(moon_node);
mpfr_clear(E);
mpfr_clear(correction);
mpfr_clear(venus);
mpfr_clear(jupiter);
mpfr_clear(flat_earth);
mpfr_clear(N);
mpfr_clear(fullangle);
return 1;
}
