在平面直角坐标系中作出函数f(x)=1/x和g(x)=lg(x)的图像,根据图像判断方程lg(x)=1/x的解的范围,再用二分法求这个方程的近似解(误差不超过0.001).
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/26 02:48:23
![在平面直角坐标系中作出函数f(x)=1/x和g(x)=lg(x)的图像,根据图像判断方程lg(x)=1/x的解的范围,再用二分法求这个方程的近似解(误差不超过0.001).](/uploads/image/z/10404893-29-3.jpg?t=%E5%9C%A8%E5%B9%B3%E9%9D%A2%E7%9B%B4%E8%A7%92%E5%9D%90%E6%A0%87%E7%B3%BB%E4%B8%AD%E4%BD%9C%E5%87%BA%E5%87%BD%E6%95%B0f%28x%29%3D1%2Fx%E5%92%8Cg%28x%29%3Dlg%28x%29%E7%9A%84%E5%9B%BE%E5%83%8F%2C%E6%A0%B9%E6%8D%AE%E5%9B%BE%E5%83%8F%E5%88%A4%E6%96%AD%E6%96%B9%E7%A8%8Blg%28x%29%3D1%2Fx%E7%9A%84%E8%A7%A3%E7%9A%84%E8%8C%83%E5%9B%B4%2C%E5%86%8D%E7%94%A8%E4%BA%8C%E5%88%86%E6%B3%95%E6%B1%82%E8%BF%99%E4%B8%AA%E6%96%B9%E7%A8%8B%E7%9A%84%E8%BF%91%E4%BC%BC%E8%A7%A3%EF%BC%88%E8%AF%AF%E5%B7%AE%E4%B8%8D%E8%B6%85%E8%BF%870.001%EF%BC%89.)
在平面直角坐标系中作出函数f(x)=1/x和g(x)=lg(x)的图像,根据图像判断方程lg(x)=1/x的解的范围,再用二分法求这个方程的近似解(误差不超过0.001).
在平面直角坐标系中作出函数f(x)=1/x和g(x)=lg(x)的图像,根据图像判断方程lg(x)=1/x的解的范围,再用二分法求这个方程的近似解(误差不超过0.001).
在平面直角坐标系中作出函数f(x)=1/x和g(x)=lg(x)的图像,根据图像判断方程lg(x)=1/x的解的范围,再用二分法求这个方程的近似解(误差不超过0.001).
Private Sub Command1_Click() X1 = 2: X2 = 3 x = 2.5 Do Until Abs(Log(x) / Log(10) - 1 / x) < 0.0001 DoEvents If Log(x) / Log(10) - 1 / x < 0 Then X1 = x: x = (X1 + X2) / 2 Else X2 = x: x = (X1 + X2) / 2 End If Loop CurrentX = -4 CurrentY = 4 Print x End Sub Private Sub Form_Load() Me.Height = 8000: Me.Width = 8000 Me.AutoRedraw = True Me.Scale (-5, 5)-(5, -5) Line (0, -5)-(0, 5) Line (-5, 0)-(5, 0) For i = -4 To 4 If Abs(i) > 0 Then Line (i, 0)-(i, 0.1) CurrentY = CurrentY - 0.3 Print i Line (0, i)-(0.1, i) CurrentX = CurrentX - 0.5 Print i End If Next i For i = -5 To 5 Step 0.001 If Abs(i) > 0.01 Then PSet (i, 1 / i) Next i For i = 0.001 To 5 Step 0.001 PSet (i, Log(i) / Log(10)) Next i End Sub
麻烦采纳,谢谢!