神马作文网已知：弧长78.5,弦长76.36,求圆的直径.
来源：学生作业帮 编辑：神马作文网作业帮 分类：数学作业 时间：2024/11/06 10:57:28
已知：弧长78.5,弦长76.36,求圆的直径.
sin(78.5/2R)=76.36/2R
方程好列,不好求解,可以编写简单的程序来求解R,也就是让计算机逐步实验,直到误差满足要求.
再问： 用什么软件编写程序？ 具体这么编呢？
再答： 弧长 78.5 e5 弦长 76.36 e6 精度 0.001 e7 计算半径 96.64413 =radio() 说明：如上图填写已知条件到excel中，将下语句复制到 vba 模块1中 Function ArcSin(X) As Double '反正弦 ArcSin = Atn(X / Sqr(-X * X + 1)) End Function Function radio() Application.Volatile l = Worksheets(1).Range("e" & 6) / 2 '弦长一半 c = Worksheets(1).Range("e" & 5) / 2 '弧度一半 d = Worksheets(1).Range("e" & 7) '精度 r = l + d '半径初始值 c1 = ArcSin(l / r) * r '计算弧长 step = l / 2 '初始步长 While Abs(c1 - c) > d '如果计算精度没达到 temp = c1 - c If c1 - c > 0 Then r = r + step 'r与c是减函数关系 Else r = r - step End If c1 = ArcSin(l / r) * r '计算弧长 If (c1 - c) * temp < 0 Then '连续计算的两次弧长在实际弧长的两边 step = step / 2 End If Wend radio = r End Function
方程好列,不好求解,可以编写简单的程序来求解R,也就是让计算机逐步实验,直到误差满足要求.
再问： 用什么软件编写程序？ 具体这么编呢？
再答： 弧长 78.5 e5 弦长 76.36 e6 精度 0.001 e7 计算半径 96.64413 =radio() 说明：如上图填写已知条件到excel中，将下语句复制到 vba 模块1中 Function ArcSin(X) As Double '反正弦 ArcSin = Atn(X / Sqr(-X * X + 1)) End Function Function radio() Application.Volatile l = Worksheets(1).Range("e" & 6) / 2 '弦长一半 c = Worksheets(1).Range("e" & 5) / 2 '弧度一半 d = Worksheets(1).Range("e" & 7) '精度 r = l + d '半径初始值 c1 = ArcSin(l / r) * r '计算弧长 step = l / 2 '初始步长 While Abs(c1 - c) > d '如果计算精度没达到 temp = c1 - c If c1 - c > 0 Then r = r + step 'r与c是减函数关系 Else r = r - step End If c1 = ArcSin(l / r) * r '计算弧长 If (c1 - c) * temp < 0 Then '连续计算的两次弧长在实际弧长的两边 step = step / 2 End If Wend radio = r End Function