早教吧作业答案频道 -->数学-->
x-sinx的迭代方程怎样编写程序?x初始值为x=zeros(1,100).x具有下式关系:x(1,1+i)-sin(x(1,1+i))=0.5+x(1,i)-sin(x(1,i)).经过这个算式迭代运算以后,x矩阵是多少?这个迭代式子该怎么编写?
题目详情
▼优质解答
答案和解析
'程序可以继续完善的:
'1、如果指定区间无解,怎么办
'2、迭代过程跳出了指定区间,怎么办
'3、如何使用界面直接输入方程式
Private Sub Command1_Click()
Dim 上限 As Single, 下限 As Single, 误差 As Single, 自变量 As Single, k As Single
Const 允许误差 = 0.0001
上限 = Val(InputBox("请输入区上限", , 4))
Do
下限 = Val(InputBox("请输入区下限", , 3))
If 下限 < 上限 Then Exit Do
MsgBox "上、下限不匹配!", vbExclamation
Loop
误差 = 上限 - 下限
自变量 = 误差 / 2 + 下限
Do Until 误差 < 允许误差
k = 导数(自变量)
If k = 0 Then
自变量 = 自变量 + 允许误差
Else
x = 自变量 - 方程(自变量) / k
误差 = Abs(自变量 - x)
自变量 = x
End If
Loop
Print "从区间("; 下限; ","; 上限; ")出发,求得方程近似解为:"; 自变量
Print "估计误差小于:"; 误差
End Sub
Private Function 方程(x As Single) As Single
方程 = (x - 1) * x - 8
End Function
Private Function 导数(x As Single) As Single
导数 = 2 * x - 1
End Function
'1、如果指定区间无解,怎么办
'2、迭代过程跳出了指定区间,怎么办
'3、如何使用界面直接输入方程式
Private Sub Command1_Click()
Dim 上限 As Single, 下限 As Single, 误差 As Single, 自变量 As Single, k As Single
Const 允许误差 = 0.0001
上限 = Val(InputBox("请输入区上限", , 4))
Do
下限 = Val(InputBox("请输入区下限", , 3))
If 下限 < 上限 Then Exit Do
MsgBox "上、下限不匹配!", vbExclamation
Loop
误差 = 上限 - 下限
自变量 = 误差 / 2 + 下限
Do Until 误差 < 允许误差
k = 导数(自变量)
If k = 0 Then
自变量 = 自变量 + 允许误差
Else
x = 自变量 - 方程(自变量) / k
误差 = Abs(自变量 - x)
自变量 = x
End If
Loop
Print "从区间("; 下限; ","; 上限; ")出发,求得方程近似解为:"; 自变量
Print "估计误差小于:"; 误差
End Sub
Private Function 方程(x As Single) As Single
方程 = (x - 1) * x - 8
End Function
Private Function 导数(x As Single) As Single
导数 = 2 * x - 1
End Function
看了 x-sinx的迭代方程怎样编...的网友还看了以下:
求一个简单的C程序,数值分析题目,1.求下述方程的实根.X^2-3X+2-e^x=0取精度为小数点 2020-05-13 …
分式计算于应用题(1)先将代数式(x^2+x)×1/x+1化简,再从-1,1两数中选取一个适当的数 2020-06-06 …
vb程序设计代码1.按钮"第一题":找出100-200之间的所有素数,并对它们求和。2.按钮"第二 2020-06-29 …
1有限长非周期信号x(n)的离散傅里叶变换存在的条件是?2.设有限序列为x(n)=[0,2,4,6 2020-07-13 …
JAVA写一个很基础的题可以使用一下公式计算ππ=4*(1-1/3+1/5-1/7+1/9-1/1 2020-07-17 …
x=-2时,代数式ax³+bx+1值为6,求当x=2时,代数式ax³+bx+1的值若﹙4x²-8xy 2020-11-07 …
朝代顺序请将下面的这些朝代名按先后顺序排序.1.战国2.商3.隋4.元5.北朝6.东汉7.五代8.清 2020-11-11 …
化简求值(1)先化简(1−14−1)÷48−的4+的48−1,然后从-8≤4≤8的范围内选取一左合适 2020-12-31 …
读如下两个程序。程序1:程序2:若两程序输入的值相同,并且执行结果也相同,则这两个程序的输入值为() 2020-12-31 …
化简x^2+1/x^2-1)-(x-2/x-1)除以x-2/x,并选取任意一个值代入1、化简(x^2 2020-12-31 …