作业帮 > 数学 > 作业

在平面直角坐标系中作出函数f(x)=1/x和g(x)=lg(x)的图像,根据图像判断方程lg(x)=1/x的解的范围,再

来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/05/21 10:31:47
在平面直角坐标系中作出函数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
麻烦采纳,谢谢!