早教吧作业答案频道 -->数学-->
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的迭代方程怎样编...的网友还看了以下:
1.设a属於R,且x的二次方程式(1+i)x^2-(a+3i)x+(4+2i)=0有一实根,则(1 2020-05-21 …
1.设集合x={0,1,2,3}中的两个关系,R={|i,j∈x∧(j=i+1∨j=i/2)},S 2020-06-12 …
i的i次方等于多少,写成x+yi的形式如题:i^i=?写成x+yi的形式,其中要求x和y都是实数. 2020-06-12 …
在平面直角座标系中直线I与抛物线X的平方=2Y相交于A,B两点求如果I过点(0.3)求证向量OA* 2020-06-14 …
已经很多年没有接触过了,已知直线I过原点,抛物线C的顶点在原点,焦点在x轴的正半轴上,若A(-1, 2020-06-27 …
解绝对值不等式时:lf(x)I>Ig(x)I=f(x)的平方>g(x)的平方,那么lf(x)I>g 2020-08-03 …
求教.求矢量场A=x²i+y²j+(x+y)zk通过点M(2,1,1)的矢量线方程A,i,j,k都 2020-08-03 …
阅读材料:i2=-1,则方程x2=-1可写成x2=i2,所以x=±i,知道:i1=i,i2=-1,i 2020-11-01 …
小明是一位刻苦学习、勤于思考、勇于创新的同学,一天他在解方程x2=-1时,突发奇想:x2=-1在实数 2020-11-29 …
求解答关于数学外推假设数据的误差服从正态分布,利用连续4个历时时刻观测数据记为x(i-4),x(i- 2021-01-19 …