有没有二分法解非线性方程的MATLAB程序要求的是f(x)=0在区间[a,b]上的根
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/02 20:27:52
![有没有二分法解非线性方程的MATLAB程序要求的是f(x)=0在区间[a,b]上的根](/uploads/image/z/3687103-55-3.jpg?t=%E6%9C%89%E6%B2%A1%E6%9C%89%E4%BA%8C%E5%88%86%E6%B3%95%E8%A7%A3%E9%9D%9E%E7%BA%BF%E6%80%A7%E6%96%B9%E7%A8%8B%E7%9A%84MATLAB%E7%A8%8B%E5%BA%8F%E8%A6%81%E6%B1%82%E7%9A%84%E6%98%AFf%28x%29%3D0%E5%9C%A8%E5%8C%BA%E9%97%B4%5Ba%2Cb%5D%E4%B8%8A%E7%9A%84%E6%A0%B9)
有没有二分法解非线性方程的MATLAB程序要求的是f(x)=0在区间[a,b]上的根
有没有二分法解非线性方程的MATLAB程序
要求的是f(x)=0在区间[a,b]上的根
有没有二分法解非线性方程的MATLAB程序要求的是f(x)=0在区间[a,b]上的根
建议楼主遇到关于matlab 的问题就到 mathworks网站的file exchange里找 .
下面是二分法的函数文件,你直接设置输入参数就可以了
function [c,err,yc]=bisect(f,a,b,delta)
%Input - f is the function
% - a and b are the left and right endpoints
% - delta is the tolerance
%Output - c is the zero
% - yc= f(c)
% - err is the error estimate for c
%If f is defined as an M-file function use the @ notation
% call [c,err,yc]=bisect(@f,a,b,delta).
%If f is defined as an anonymous function use the
% call [c,err,yc]=bisect(f,a,b,delta).
% NUMERICAL METHODS:Matlab Programs
% (c) 2004 by John H.Mathews and Kurtis D.Fink
% Complementary Software to accompany the textbook:
% NUMERICAL METHODS:Using Matlab,Fourth Edition
% ISBN:0-13-065248-2
% Prentice-Hall Pub.Inc.
% One Lake Street
% Upper Saddle River,NJ 07458
ya=f(a);
yb=f(b);
if ya*yb > 0,return,end
max1=1+round((log(b-a)-log(delta))/log(2));
for k=1:max1
c=(a+b)/2;
yc=f(c);
if yc==0
a=c;
b=c;
elseif yb*yc>0
b=c;
yb=yc;
else
a=c;
ya=yc;
end
if b-a < delta,break,end
end
c=(a+b)/2;
err=abs(b-a);
yc=f(c);
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
建立该函数文件,拷至matlab的当前路径里.
举个例子:
>> format long
>> [answer,error,value]=bisect(@(x)x-cos(x),0,1,1e-8)
answer =
0.739085134118795
error =
7.450580596923828e-009
value =
1.512334035780327e-009
answer即是方程 x-cos(x)=0 的根,error 是实际误差,value是计算结果回代到方程左边的值
clc;clear
a=0;b=1;
fa=1-a-sin(a);
fb=1-b-sin(b);
c=(a+b)/2;
fc=1-c-sin(c);
if fa*fb>0,break,end
while abs(fc)>0.5*10^(-4)
c=(a+b)/2;
fc=1-c-sin(c);
if fb*fc>0
全部展开
clc;clear
a=0;b=1;
fa=1-a-sin(a);
fb=1-b-sin(b);
c=(a+b)/2;
fc=1-c-sin(c);
if fa*fb>0,break,end
while abs(fc)>0.5*10^(-4)
c=(a+b)/2;
fc=1-c-sin(c);
if fb*fc>0
b=c;
fb=fc;
else
a=c;
fa=fc;
end
end
format long
fx=fc,x=c
结果:
fx =
-2.414986223420179e-005
x =
0.510986328125000
精确
>> x=solve('1-x-sin(x)')
x =
.51097342938856910952001397114508
收起