TÌM NGHIỆM GẦN ĐÚNG CỦA PHƯƠNG TRÌNH f(x)=0
BÀI TOÁN
Tìm nghiệm gần đúng của phương trình f(x)=0 liên tục trên [a,b] với f(a)f(b)<0
PHƯƠNG PHÁP VÉT CẠN VỚI MẮT LƯỚI MAU DẦN (PHƯƠNG PHÁP CHIA ĐÔI)
Code:
(*TIM NGHIEM GAN DUNG CUA PHUONG TRINH BANG PHUONG PHAP VET CAN VOI MAT LUOI MAU DAU*)
Clear[y, f, x, a, b, c, Epxilon];
y = Input["Nhap vao phuong trinh"];
f[x_] = y;
a = Input["Nhap vao a"];
b = Input["Nhap vao b"];
Epxilon = Input["Nhap vao sai so"];
c = (a + b)/2;
While[Abs[f[c]] > Epxilon,
If[f[a]*f[c] < 0, b = c, a = c];
c = (a + b)/2;
];
Print["PT ", y, " = 0, khoang phan ly [", a, ",", b, "], sai so ", Epxilon,", co nghiem gan dung la: ", c];