VB设计程序 二分法在平面直角坐标系中作出函数发f(x)=1/x 和g(x)=lg(x) 的图像,根据图像判断方程 的解的范围,再用/x二分法求这个方程的近似解(误差不超过0.001).

来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/25 04:03:43
VB设计程序二分法在平面直角坐标系中作出函数发f(x)=1/x和g(x)=lg(x)的图像,根据图像判断方程的解的范围,再用/x二分法求这个方程的近似解(误差不超过0.001).VB设计程序二分法在平

VB设计程序 二分法在平面直角坐标系中作出函数发f(x)=1/x 和g(x)=lg(x) 的图像,根据图像判断方程 的解的范围,再用/x二分法求这个方程的近似解(误差不超过0.001).
VB设计程序 二分法
在平面直角坐标系中作出函数发f(x)=1/x 和g(x)=lg(x) 的图像,根据图像判断方程 的解的范围,再用/x二分法求这个方程的近似解(误差不超过0.001).

VB设计程序 二分法在平面直角坐标系中作出函数发f(x)=1/x 和g(x)=lg(x) 的图像,根据图像判断方程 的解的范围,再用/x二分法求这个方程的近似解(误差不超过0.001).
构造函数h(x)=f(x)-g(x)
由图像得隔根区间可取[1,10]
绝对误差限ε=0.001
先自定义一个函数
private function answer(x as double) as double
answer=1/x-log(x)/log(10)
end function
dim a as double,b as double,c as double,x as double,k as double,i as integer
a=1
b=10
k=int((log(b-a)-log(0.001))/(log(2))) 'k为最大迭代次数
for i=1 to k
c=(a+b)/2
if answer(c)=0 then
x=c
exit for
else
if answer(c)*answer(b)