#include <stdio.h>
#include <math.h>
#define EPSILON 1e-7
#define MAX_ITER 100
// 【確定】あなたのプログラムが出力した正しい式
double f(double lambda) {
return pow(lambda
, 4) - 2.0 * pow(lambda
, 3) - 49.0 * pow(lambda
, 2) - 30.0 * lambda
+ 254.0; }
// 【確定】上記の式の導関数 f'(λ)
double df(double lambda) {
return 4.0 * pow(lambda
, 3) - 6.0 * pow(lambda
, 2) - 98.0 * lambda
- 30.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(df_val
) < 1e-12) { return;
}
double delta = f_val / df_val;
lambda -= delta;
iter++;
if (fabs(delta
) < EPSILON
) { printf("試行 #%d (初期値 %5.1f) -> 収束成功 (%2d回) | 固有値解 λ = %.10f\n", attempt, lambda0, iter, lambda);
return;
}
}
}
int main() {
// あなたの正しい方程式の4つの谷にピタッと落ちるように調整した初期値
double initial_lambda[] = {10.0, 3.5, 2.0, -6.0};
printf("=== 【2つ目の行列】ニュートン・ラフソン法 最終探索結果 ===\n"); for (int i = 0; i < 4; i++) {
solve_newton(i + 1, initial_lambda[i]);
}
return 0;
}
I2luY2x1ZGUgPHN0ZGlvLmg+CiNpbmNsdWRlIDxtYXRoLmg+CgojZGVmaW5lIEVQU0lMT04gMWUtNyAgIAojZGVmaW5lIE1BWF9JVEVSIDEwMAoKLy8g44CQ56K65a6a44CR44GC44Gq44Gf44Gu44OX44Ot44Kw44Op44Og44GM5Ye65Yqb44GX44Gf5q2j44GX44GE5byPCmRvdWJsZSBmKGRvdWJsZSBsYW1iZGEpIHsKICAgIHJldHVybiBwb3cobGFtYmRhLCA0KSAtIDIuMCAqIHBvdyhsYW1iZGEsIDMpIC0gNDkuMCAqIHBvdyhsYW1iZGEsIDIpIC0gMzAuMCAqIGxhbWJkYSArIDI1NC4wOwp9CgovLyDjgJDnorrlrprjgJHkuIroqJjjga7lvI/jga7lsI7plqLmlbAgZicozrspCmRvdWJsZSBkZihkb3VibGUgbGFtYmRhKSB7CiAgICByZXR1cm4gNC4wICogcG93KGxhbWJkYSwgMykgLSA2LjAgKiBwb3cobGFtYmRhLCAyKSAtIDk4LjAgKiBsYW1iZGEgLSAzMC4wOwp9Cgp2b2lkIHNvbHZlX25ld3RvbihpbnQgYXR0ZW1wdCwgZG91YmxlIGxhbWJkYTApIHsKICAgIGRvdWJsZSBsYW1iZGEgPSBsYW1iZGEwOwogICAgaW50IGl0ZXIgPSAwOwoKICAgIHdoaWxlIChpdGVyIDw9IE1BWF9JVEVSKSB7CiAgICAgICAgZG91YmxlIGZfdmFsID0gZihsYW1iZGEpOwogICAgICAgIGRvdWJsZSBkZl92YWwgPSBkZihsYW1iZGEpOwoKICAgICAgICBpZiAoZmFicyhkZl92YWwpIDwgMWUtMTIpIHsKICAgICAgICAgICAgcmV0dXJuOyAKICAgICAgICB9CgogICAgICAgIGRvdWJsZSBkZWx0YSA9IGZfdmFsIC8gZGZfdmFsOwogICAgICAgIGxhbWJkYSAtPSBkZWx0YTsKICAgICAgICBpdGVyKys7CgogICAgICAgIGlmIChmYWJzKGRlbHRhKSA8IEVQU0lMT04pIHsKICAgICAgICAgICAgcHJpbnRmKCLoqabooYwgIyVkICjliJ3mnJ/lgKQgJTUuMWYpIC0+IOWPjuadn+aIkOWKnyAoJTJk5ZueKSB8IOWbuuacieWApOinoyDOuyA9ICUuMTBmXG4iLCAKICAgICAgICAgICAgICAgICAgIGF0dGVtcHQsIGxhbWJkYTAsIGl0ZXIsIGxhbWJkYSk7CiAgICAgICAgICAgIHJldHVybjsKICAgICAgICB9CiAgICB9Cn0KCmludCBtYWluKCkgewogICAgLy8g44GC44Gq44Gf44Gu5q2j44GX44GE5pa556iL5byP44GuNOOBpOOBruiwt+OBq+ODlOOCv+ODg+OBqOiQveOBoeOCi+OCiOOBhuOBq+iqv+aVtOOBl+OBn+WIneacn+WApAogICAgZG91YmxlIGluaXRpYWxfbGFtYmRhW10gPSB7MTAuMCwgMy41LCAyLjAsIC02LjB9OwoKICAgIHByaW50ZigiPT09IOOAkDLjgaTnm67jga7ooYzliJfjgJHjg4vjg6Xjg7zjg4jjg7Pjg7vjg6njg5Xjgr3jg7Pms5Ug5pyA57WC5o6i57Si57WQ5p6cID09PVxuIik7CiAgICBmb3IgKGludCBpID0gMDsgaSA8IDQ7IGkrKykgewogICAgICAgIHNvbHZlX25ld3RvbihpICsgMSwgaW5pdGlhbF9sYW1iZGFbaV0pOwogICAgfQoKICAgIHJldHVybiAwOwp9