//prototype for natural log function based on HP Journal article
// "Personal Calculator Algorithms IV: Logarithmic Functions"

#include <stdio.h>
#include <iostream>
#include <math.h>
#include <boost/multiprecision/mpfr.hpp>
using namespace boost::multiprecision;

using std::cout;
using std::endl;

static const int BSIZE = 200;
char buf[BSIZE];
char pbuf[BSIZE];

static const int NUM_A_ARR = 10;
mpfr_float a_arr[NUM_A_ARR];
mpfr_float ln_a_arr[NUM_A_ARR];

static const unsigned int CALC_PRECISION = 18;


int main(void){
	cout << std::scientific << std::setprecision(CALC_PRECISION);
	//initiallize a_arr and ln_a_arr
	for (int i = 0; i < NUM_A_ARR; i++){
		// a[i] = (1 + 10^-i)
		mpfr_float a(-i, CALC_PRECISION);
		a = pow(10, a);
		a_arr[i] = a + 1;
		ln_a_arr[i] = log(a_arr[i]);
		cout << i << endl;
		cout << "     a:" << a_arr[i] << endl;
		cout << " ln(a):" << ln_a_arr[i] << endl;
// 		a_arr[i].assign(a_arr1000[i], CALC_PRECISION);
// 		ln_a_arr[i].assign(ln_a_arr1000[i], CALC_PRECISION);
	}
	cout << endl << endl ;
	//loop through values to test
	for (mpfr_float x(0.0001, CALC_PRECISION); x < 1.0; x += 0.015625){
		//build mpf values
		mpfr_float A(x, CALC_PRECISION);
		mpfr_float b_j(1.0 - A, CALC_PRECISION); //initial b_0 = 1 - A
		mpfr_float accum(b_j, CALC_PRECISION);
		mpfr_float_1000 actual;
		actual = log(A);
		
		int num_times[NUM_A_ARR];
		for (int j = 0; j < NUM_A_ARR; j++){
			if (j != 0){
				b_j *= 10.0;
			}
			accum = b_j;
			int k_j = 0;
			while (accum > 0){
				b_j = accum;
				accum *= a_arr[j];
				accum -= 1.0;
				k_j++;
			}
			num_times[j] = k_j - 1;
// 			printf("  %d: num_times: %d, ", j, num_times[j]);
// 			cout << b_j << endl;
		}
		
		//build final value
		accum = b_j; //remainder
		accum *= pow(10.0, -(NUM_A_ARR - 1)); //scale remainder
// 		cout << "remainder: " << accum << endl;
		for (int j = NUM_A_ARR - 1; j >= 0; j--){ //sum in reverse order
			for (int k = 0; k < num_times[j]; k++){
				accum += ln_a_arr[j];
			}
		}
		accum = -accum;

		mpfr_float_1000 calc, diff;
		calc = accum;
		diff = (actual - calc)/actual;
		
		if (diff > 5e-17){
			cout << x << ": ";
			cout << std::setprecision(18) << accum << ", ";
			cout << diff << endl;
		}
	}

	return 0;
}