#include <stdio.h>
#include <math.h>
#define EPSILON 1e-7
#define MAX_ITER 100
// 【修正】1つ目の行列の正しい特性方程式 f(λ)
double f(double lambda) {
return pow(lambda
, 4) + pow(lambda
, 3) - 54.0 * pow(lambda
, 2) - 224.0 * lambda
-345; }
// 【修正】正しい導関数 f'(λ)
double df(double lambda) {
return 4.0 * pow(lambda
, 3) + 3.0 * pow(lambda
, 2) - 108.0 * lambda
- 224.0; }
void solve_newton(int attempt, double lambda0) {
double lambda = lambda0;
int iter = 0;
while (iter <= MAX_ITER) {
double f_val = f(lambda);
double df_val = df(lambda);
// 収束判定
if (fabs(f_val
) < EPSILON
) { printf("試行 #%d (初期値 %5.1f) -> 収束成功 (%2d回) | 固有値解 λ = %.10f\n", attempt, lambda0, iter, lambda);
return;
}
if (fabs(df_val
) < 1e-12) { printf("試行 #%d (初期値 %5.1f) -> 導関数が0に近いため失敗\n", attempt
, lambda0
); return;
}
lambda -= f_val / df_val;
iter++;
}
printf("試行 #%d (初期値 %5.1f) -> 未収束\n", attempt
, lambda0
); }
int main() {
// すべての実数解(4つの固有値)を網羅するための初期値
double initial_lambda[] = {10.0, 3.0, 1.0, -9.0};
printf("=== ニュートン・ラフソン法による実数解(固有値)の探索結果 ===\n"); for (int i = 0; i < 4; i++) {
solve_newton(i + 1, initial_lambda[i]);
}
return 0;
}
I2luY2x1ZGUgPHN0ZGlvLmg+CiNpbmNsdWRlIDxtYXRoLmg+CgojZGVmaW5lIEVQU0lMT04gMWUtNyAgIAojZGVmaW5lIE1BWF9JVEVSIDEwMAoKLy8g44CQ5L+u5q2j44CRMeOBpOebruOBruihjOWIl+OBruato+OBl+OBhOeJueaAp+aWueeoi+W8jyBmKM67KQpkb3VibGUgZihkb3VibGUgbGFtYmRhKSB7CiAgICByZXR1cm4gcG93KGxhbWJkYSwgNCkgKyBwb3cobGFtYmRhLCAzKSAtIDU0LjAgKiBwb3cobGFtYmRhLCAyKSAtIDIyNC4wICogbGFtYmRhLTM0NTsKfQoKLy8g44CQ5L+u5q2j44CR5q2j44GX44GE5bCO6Zai5pWwIGYnKM67KQpkb3VibGUgZGYoZG91YmxlIGxhbWJkYSkgewogICAgcmV0dXJuIDQuMCAqIHBvdyhsYW1iZGEsIDMpICsgMy4wICogcG93KGxhbWJkYSwgMikgLSAxMDguMCAqIGxhbWJkYSAtIDIyNC4wOwp9Cgp2b2lkIHNvbHZlX25ld3RvbihpbnQgYXR0ZW1wdCwgZG91YmxlIGxhbWJkYTApIHsKICAgIGRvdWJsZSBsYW1iZGEgPSBsYW1iZGEwOwogICAgaW50IGl0ZXIgPSAwOwoKICAgIHdoaWxlIChpdGVyIDw9IE1BWF9JVEVSKSB7CiAgICAgICAgZG91YmxlIGZfdmFsID0gZihsYW1iZGEpOwogICAgICAgIGRvdWJsZSBkZl92YWwgPSBkZihsYW1iZGEpOwoKICAgICAgICAvLyDlj47mnZ/liKTlrpoKICAgICAgICBpZiAoZmFicyhmX3ZhbCkgPCBFUFNJTE9OKSB7CiAgICAgICAgICAgIHByaW50Zigi6Kmm6KGMICMlZCAo5Yid5pyf5YCkICU1LjFmKSAtPiDlj47mnZ/miJDlip8gKCUyZOWbnikgfCDlm7rmnInlgKTop6MgzrsgPSAlLjEwZlxuIiwgCiAgICAgICAgICAgICAgICAgICBhdHRlbXB0LCBsYW1iZGEwLCBpdGVyLCBsYW1iZGEpOwogICAgICAgICAgICByZXR1cm47CiAgICAgICAgfQoKICAgICAgICBpZiAoZmFicyhkZl92YWwpIDwgMWUtMTIpIHsKICAgICAgICAgICAgcHJpbnRmKCLoqabooYwgIyVkICjliJ3mnJ/lgKQgJTUuMWYpIC0+IOWwjumWouaVsOOBjDDjgavov5HjgYTjgZ/jgoHlpLHmlZdcbiIsIGF0dGVtcHQsIGxhbWJkYTApOwogICAgICAgICAgICByZXR1cm47CiAgICAgICAgfQoKICAgICAgICBsYW1iZGEgLT0gZl92YWwgLyBkZl92YWw7CiAgICAgICAgaXRlcisrOwogICAgfQogICAgcHJpbnRmKCLoqabooYwgIyVkICjliJ3mnJ/lgKQgJTUuMWYpIC0+IOacquWPjuadn1xuIiwgYXR0ZW1wdCwgbGFtYmRhMCk7Cn0KCmludCBtYWluKCkgewogICAgLy8g44GZ44G544Gm44Gu5a6f5pWw6Kej77yINOOBpOOBruWbuuacieWApO+8ieOCkue2sue+heOBmeOCi+OBn+OCgeOBruWIneacn+WApAogICAgZG91YmxlIGluaXRpYWxfbGFtYmRhW10gPSB7MTAuMCwgMy4wLCAxLjAsIC05LjB9OwoKICAgIHByaW50ZigiPT09IOODi+ODpeODvOODiOODs+ODu+ODqeODleOCveODs+azleOBq+OCiOOCi+Wun+aVsOino++8iOWbuuacieWApO+8ieOBruaOoue0oue1kOaenCA9PT1cbiIpOwogICAgZm9yIChpbnQgaSA9IDA7IGkgPCA0OyBpKyspIHsKICAgICAgICBzb2x2ZV9uZXd0b24oaSArIDEsIGluaXRpYWxfbGFtYmRhW2ldKTsKICAgIH0KCiAgICByZXR1cm4gMDsKfQ==