lab5.cpp

#define _USE_MATH_DEFINES
using namespace std;

#include <cmath>
#include <iomanip>
#include <iostream>

double F(double x) {
    return log(x * x) * sin(x / 2) * exp(pow(x, 1.0/7.0));
}

double L(int n, double x) {
    double Ln_next, Ln = x, Ln_first = 1;

    if (n == 0) return Ln_first;
    if (n == 1) return Ln;

    int i = 1;
    while (i < n) {
        Ln_next = (1.0 * (2 * i + 1) / (i + 1)) * x * Ln - (1.0 * i / (i + 1)) * Ln_first;
        Ln_first = Ln;
        Ln = Ln_next;
        ++i;
    }
    return Ln;
}

double func(int N, double t, int k1, int k2, double a, double b) {
    double x = (2 * t - a - b) / (b - a);
    return k2 == N ? F(t) * L(k1, x) : L(k1, x)*L(k2, x);
}

double Simpson(int k1, int k2, double a, double b, int n, int N) {
    double sig1 = 0, sig2 = 0, y0 = func(N, a, k1, k2, a, b), yn = func(N, b, k1, k2, a, b);

    double h = (b - a) / n;
    for (int i = 1; i < n; i++) {
        if (i % 2 == 0)
            sig2 += func(N, a + i*h, k1, k2, a, b);
        else
            sig1 += func(N, a + i*h, k1, k2, a, b);
    }

    return h / 3 * (2 * sig2 + 4 * sig1 + y0 + yn);
}

double Integral(int k1, int k2, double a, double b, int N) {
    double eps = 1e-8;
    int n = 2 * ceil((b - a) / sqrt(sqrt(eps)) / 2);

   double In, I2n = Simpson(k1, k2, a, b, n, N);
   double r = 0;
   do {
        In = I2n;
        n *= 2;
        I2n = Simpson(k1, k2, a, b, n, N);
        r = fabs(In - I2n) / 15;
    } while (r > eps);
    return I2n;
}

double* ChooseMainElement(double **matrix, int N) {
    double R, *M = new double[N];
    double *res = new double[N];
    double ** tmatrix = new double*[N + 1];
    for (int i = 0; i < N + 1; i++) {
        tmatrix[i] = new double[N + 1];
    }

    int line = 0, row = 0, _line = 0;
    for (int k = 0; k < N - 1; k++) {
        int a = matrix[0][0];
        for (int i = 0; i < N; i++) {
            for (int j = 0; j < N; j++) {
                if (fabs(matrix[i][j]) > a) {
                    a = fabs(matrix[i][j]);
                    line = i;
                    row = j;
                }
            }
        }

        for (int j = 0; j < N + 1; j++) {
            tmatrix[_line][j] = matrix[line][j];
        }
        _line++;

        for (int i = 0; i < N; i++) {
            M[i] = -(matrix[i][row] / a);
        }

        for (int i = 0; i < N; i++) {
            for (int j = 0; j < N + 1; j++) {
                if (i == line) continue;
                matrix[i][j] += matrix[line][j] * M[i];
            }
        }

        for (int j = 0; j < N + 1; j++) {
            matrix[line][j] = 0;
        }

        for (int i = 0; i < N; i++) {
            matrix[i][row] = 0;
        }
    }


    for (int i = 0; i < N; i++) {
        if (matrix[i][N] == 0) continue;
        line = i;
    }

    for (int j = 0; j < N + 1; j++) {
        tmatrix[_line][j] = matrix[line][j];
    }

    for (int j = 0; j < N; j++) {
        res[j] = 0;
    }

    for (int i = N - 1; i >= 0; i--) {
        R = tmatrix[i][N];
        for (int j = 0; j < N; j++) {
            if ((tmatrix[i][j] != 0) && (res[j] != 0)) {
                R -= tmatrix[i][j] * res[j];
            }
        }
        for (int j = 0; j < N; j++) {
            if ((tmatrix[i][j] != 0) && (res[j] == 0)) {
                res[j] = R / tmatrix[i][j];
            }
        }
    }

    return res;
}

double * MakeA(double a, double b, int N) {
    int i, j;
    double ** A = new double*[N + 1];
    for (int i = 0; i < N + 1; i++)
        A[i] = new double[N + 1];

    for (i = 0; i < N; i++) {
        for (j = 0; j < N + 1; j++) {
            A[i][j] = A[j][i] = Integral(i, j, a, b, N);
        }
        A[i][N] = Integral(i, N, a, b, N);
    }

    return ChooseMainElement(A, N);

}

double Pm(double x, double a, double b, int n, double *Ak) {
    double  t = (2 * x - b - a) / (b - a);
    double y = 0;
    for (int j = 0; j < n; ++j)
        y += Ak[j] * L(j, t);
    return y;
}

int main() {
    double a = 1, b = 35;
    double eps = 0.01;

    int k = (b - a) * 2;
    double step = (b - a) / k;
    int n = 2;

    double deviation;
    do {
        deviation = 0;
        double *Ak = MakeA(a, b, n *= 2);
        for (int i = 0; i <= k; i++) {
            double x = a + i * step;
            double y = F(x) - Pm(x, a, b, n, Ak);
            deviation += y * y;
        }

    } while (sqrt(deviation / (k + 1)) > eps);

    cout << "N = " << n << endl << endl;

    cout << "   X      P(x)" << endl;
    double *Ak = MakeA(a, b, n);
    for (double i = a; i <= b; i += step) {
        printf("%6f %.10f\n", i, Pm(i, a, b, n, Ak));
    }
}