#include <stdio.h>
#include <math.h>
void gauss(double A[3][3], double b[3], double x[3]) {
for (int i = 0; i < 3; i++) {
double pivot = A[i][i];
for (int j = 0; j < 3; j++) A[i][j] /= pivot;
b[i] /= pivot;
for (int k = 0; k < 3; k++) {
if (k == i) continue;
double factor = A[k][i];
for (int j = 0; j < 3; j++) A[k][j] -= factor * A[i][j];
b[k] -= factor * b[i];
}
}
for (int i = 0; i < 3; i++) x[i] = b[i];
}
int main() {
double xval[8] = {0.15708, 0.23982, 0.37400, 0.57120, 0.82674, 1.04720, 1.23200, 1.43452};
double yval[8] = {0.98769, 0.97138, 0.93087, 0.84125, 0.67728, 0.50000, 0.33236, 0.13586};
double S2 = 0, S4 = 0, S6 = 0, S8 = 0;
double Sy = 0, S2y = 0, S4y = 0;
for (int i = 0; i < 8; i++) {
double x2 = xval[i] * xval[i];
double x4 = x2 * x2;
double x6 = x4 * x2;
double x8 = x4 * x4;
S2 += x2;
S4 += x4;
S6 += x6;
S8 += x8;
Sy += yval[i];
S2y += x2 * yval[i];
S4y += x4 * yval[i];
}
double A[3][3] = {
{8, S2, S4},
{S2, S4, S6},
{S4, S6, S8}
};
double b[3] = {Sy, S2y, S4y};
double sol[3];
gauss(A, b, sol);
printf("(2): y = b1 + b2*x^2 + b3*x^4 計算結果\n"); printf(" b1 = %.6f\n", sol
[0]); printf(" b2 = %.6f\n", sol
[1]); printf(" b3 = %.6f\n", sol
[2]);
double E = 0;
for (int i = 0; i < 8; i++) {
double x2 = xval[i] * xval[i];
double x4 = x2 * x2;
double yhat = sol[0] + sol[1] * x2 + sol[2] * x4;
double diff = yval[i] - yhat;
E += diff * diff;
}
printf("\n近似式による偏差の2乗和 (誤差 E):\n");
for (int i = 0; i < 8; i++) {
double x2 = xval[i] * xval[i];
double x4 = x2 * x2;
double yhat = sol[0] + sol[1] * x2 + sol[2] * x4;
}
return 0;
}
I2luY2x1ZGUgPHN0ZGlvLmg+CiNpbmNsdWRlIDxtYXRoLmg+Cgp2b2lkIGdhdXNzKGRvdWJsZSBBWzNdWzNdLCBkb3VibGUgYlszXSwgZG91YmxlIHhbM10pIHsKICAgIGZvciAoaW50IGkgPSAwOyBpIDwgMzsgaSsrKSB7CiAgICAgICAgZG91YmxlIHBpdm90ID0gQVtpXVtpXTsKICAgICAgICBmb3IgKGludCBqID0gMDsgaiA8IDM7IGorKykgQVtpXVtqXSAvPSBwaXZvdDsKICAgICAgICBiW2ldIC89IHBpdm90OwoKICAgICAgICBmb3IgKGludCBrID0gMDsgayA8IDM7IGsrKykgewogICAgICAgICAgICBpZiAoayA9PSBpKSBjb250aW51ZTsKICAgICAgICAgICAgZG91YmxlIGZhY3RvciA9IEFba11baV07CiAgICAgICAgICAgIGZvciAoaW50IGogPSAwOyBqIDwgMzsgaisrKSBBW2tdW2pdIC09IGZhY3RvciAqIEFbaV1bal07CiAgICAgICAgICAgIGJba10gLT0gZmFjdG9yICogYltpXTsKICAgICAgICB9CiAgICB9CgogICAgZm9yIChpbnQgaSA9IDA7IGkgPCAzOyBpKyspIHhbaV0gPSBiW2ldOwp9CgppbnQgbWFpbigpIHsKICAgIGRvdWJsZSB4dmFsWzhdID0gezAuMTU3MDgsIDAuMjM5ODIsIDAuMzc0MDAsIDAuNTcxMjAsIDAuODI2NzQsIDEuMDQ3MjAsIDEuMjMyMDAsIDEuNDM0NTJ9OwogICAgZG91YmxlIHl2YWxbOF0gPSB7MC45ODc2OSwgMC45NzEzOCwgMC45MzA4NywgMC44NDEyNSwgMC42NzcyOCwgMC41MDAwMCwgMC4zMzIzNiwgMC4xMzU4Nn07CgogICAgZG91YmxlIFMyID0gMCwgUzQgPSAwLCBTNiA9IDAsIFM4ID0gMDsKICAgIGRvdWJsZSBTeSA9IDAsIFMyeSA9IDAsIFM0eSA9IDA7CgoKICAgIGZvciAoaW50IGkgPSAwOyBpIDwgODsgaSsrKSB7CiAgICAgICAgZG91YmxlIHgyID0geHZhbFtpXSAqIHh2YWxbaV07CiAgICAgICAgZG91YmxlIHg0ID0geDIgKiB4MjsKICAgICAgICBkb3VibGUgeDYgPSB4NCAqIHgyOwogICAgICAgIGRvdWJsZSB4OCA9IHg0ICogeDQ7CgogICAgICAgIFMyICs9IHgyOwogICAgICAgIFM0ICs9IHg0OwogICAgICAgIFM2ICs9IHg2OwogICAgICAgIFM4ICs9IHg4OwoKICAgICAgICBTeSArPSB5dmFsW2ldOwogICAgICAgIFMyeSArPSB4MiAqIHl2YWxbaV07CiAgICAgICAgUzR5ICs9IHg0ICogeXZhbFtpXTsKICAgIH0KCiAgIAogICAgZG91YmxlIEFbM11bM10gPSB7CiAgICAgICAgezgsICBTMiwgUzR9LAogICAgICAgIHtTMiwgUzQsIFM2fSwKICAgICAgICB7UzQsIFM2LCBTOH0KICAgIH07CgogICAgZG91YmxlIGJbM10gPSB7U3ksIFMyeSwgUzR5fTsKICAgIGRvdWJsZSBzb2xbM107CgogICAgZ2F1c3MoQSwgYiwgc29sKTsKICAgIHByaW50ZigiKDIpOiB5ID0gYjEgKyBiMip4XjIgKyBiMyp4XjQg6KiI566X57WQ5p6cXG4iKTsKICAgIHByaW50Zigi5rGC44KB44KJ44KM44Gf5L+C5pWwOlxuIik7CiAgICBwcmludGYoIiAgYjEgPSAlLjZmXG4iLCBzb2xbMF0pOwogICAgcHJpbnRmKCIgIGIyID0gJS42ZlxuIiwgc29sWzFdKTsKICAgIHByaW50ZigiICBiMyA9ICUuNmZcbiIsIHNvbFsyXSk7CgogICAgZG91YmxlIEUgPSAwOwogICAgZm9yIChpbnQgaSA9IDA7IGkgPCA4OyBpKyspIHsKICAgICAgICBkb3VibGUgeDIgPSB4dmFsW2ldICogeHZhbFtpXTsKICAgICAgICBkb3VibGUgeDQgPSB4MiAqIHgyOwogICAgICAgIGRvdWJsZSB5aGF0ID0gc29sWzBdICsgc29sWzFdICogeDIgKyBzb2xbMl0gKiB4NDsKICAgICAgICBkb3VibGUgZGlmZiA9IHl2YWxbaV0gLSB5aGF0OwogICAgICAgIEUgKz0gZGlmZiAqIGRpZmY7CiAgICB9CgogICAgcHJpbnRmKCJcbui/keS8vOW8j+OBq+OCiOOCi+WBj+W3ruOBrjLkuZflkowgKOiqpOW3riBFKTpcbiIpOwogICAgcHJpbnRmKCIgIEUgPSAlLjEwZlxuIiwgRSk7CiAgICAKICAgIHByaW50ZigiXG7ov5HkvLzlvI/jgavjgojjgosgeSDjga7kuojmuKzlgKQ6XG4iKTsKICAgIGZvciAoaW50IGkgPSAwOyBpIDwgODsgaSsrKSB7CiAgICAgICAgZG91YmxlIHgyID0geHZhbFtpXSAqIHh2YWxbaV07CiAgICAgICAgZG91YmxlIHg0ID0geDIgKiB4MjsKICAgICAgICBkb3VibGUgeWhhdCA9IHNvbFswXSArIHNvbFsxXSAqIHgyICsgc29sWzJdICogeDQ7CiAgICAgICAgcHJpbnRmKCIlZlxuIiwgeWhhdCk7CiAgICB9CgogICAgcmV0dXJuIDA7Cn0=