多元一次方程往往采用循环求解。笔者在与网友们讨论一个问题(http://expert.csdn.net/Expert/topic/2607/2607772.xml?temp=.7494928)过程中,琢磨出一种算法,采用递归进行多元一次方程的求解。并将解分为整数解和 非负整数解两种情况,请大家指教。
Private Sub Command1_Click() '演示求X1+X2+X3+X4+X5=10整数解
Text1.Text = ""
Dim answer As String
answer = GETRESULT(5, 10, True) '赋值
Dim temp
temp = Split(answer, vbCrLf)
For i = 0 To UBound(temp)
temp(i) = "解" & i + 1 & ":" & vbTab & temp(i) ' add index
Next
answer = Join(temp, vbCrLf)
Text1.Text = "方程 X1+X2+X3+X4+X5=10 共有 " & UBound(temp) + 1 & " 个整数解:" & vbCrLf & answer 'show all answer in textbox
End Sub
Private Sub Command2_Click() '演示求X1+X2+X3+X4+X5=10非负整数解
Text1.Text = ""
Dim answer As String
answer = GETRESULT(5, 10, False) '赋值
Dim temp
temp = Split(answer, vbCrLf)
For i = 0 To UBound(temp)
temp(i) = "解" & i + 1 & ":" & vbTab & temp(i) 'add index
Next
answer = Join(temp, vbCrLf)
Text1.Text = "方程 X1+X2+X3+X4+X5=10 共有 " & UBound(Split(answer, vbCrLf)) + 1 & " 个非零整数解:" & vbCrLf & answer 'show all answer in textbox
End Sub
Private Sub Command3_Click() '演示无解情况
Text1.Text = ""
Dim answer As String
answer = GETRESULT(5, 3, False)
Dim temp
temp = Split(answer, vbCrLf)
For i = 0 To UBound(temp)
temp(i) = "解" & i + 1 & ":" & vbTab & temp(i)
Next
answer = Join(temp, vbCrLf)
Text1.Text = "方程 X1+X2+X3+X4+X5=3 共有 " & UBound(Split(answer, vbCrLf)) + 1 & " 个非零整数解:" & vbCrLf & answer
End Sub
'求解函数
Function GETRESULT(ByVal n As Integer, ByVal SUM As Integer, Optional allowzero As Boolean = True) As String
Dim temp() As String, i As Long
If n = 2 Then '二元方程
If allowzero = True Then
ReDim temp(SUM)
For i = 0 To SUM ' allow zero
temp(i) = "X1=" & i & ",X2=" & SUM - i
Next
GETRESULT = Join(temp, vbCrLf)
Erase temp
Else
ReDim temp(1 To SUM - 1) 'forbid zero
For i = 1 To SUM - 1
temp(i) = "X1=" & i & ",X2=" & SUM - i
Next
GETRESULT = Join(temp, vbCrLf)
Erase temp
End If
End If
If n > 2 Then
If allowzero = True Then
ReDim temp(SUM)
For i = SUM To 0 Step -1 ' allow zero
temp(i) = Replace(GETRESULT(n - 1, i, True), vbCrLf, ",X" & n & "=" & SUM - i & vbCrLf) & ",X" & n & "=" & SUM - i
Next
GETRESULT = Join(temp, vbCrLf)
Erase temp
Else
If SUM < n Then MsgBox "无解!": Exit Function '无解情况
ReDim temp(1 To SUM - n + 1) 'not allow zero
For i = 1 To SUM - n + 1
temp(i) = Replace(GETRESULT(n - 1, SUM - i, False), vbCrLf, ",X" & n & "=" & i & vbCrLf) & ",X" & n & "=" & i '递归
Next
GETRESULT = Join(temp, vbCrLf)
Erase temp
End If
End If
End Function
分享到:
相关推荐
求解递归方程的方法 计算机算法设计与分析 ppt文件
递归方法实现斐波那契数列
算法时间复杂度分析中递归方程求解方法综述
用c# 递归方法,遍历目录,输入一个路径,能输出此路径下的全部文件和文件夹里的内容
采用递归方法编程,检查一个任意给定的字符串是否是回文
递归方法求5! 这是一个小程序,程序中编写了递归方法求5! 希望对大家有所帮助!
利用递归方法求5!。 递归公式:fn=fn_1*4! 利用递归方法求5!。 递归公式:fn=fn_1*4!
用递归方法增加节点.rar用递归方法增加节点.rar
负梯度法神经网络法(即 Hopfield 神经网络或称递归神经网络) 求解线性矩阵方程 Ax = b的模型的推导以及MATLAB仿真验证,包括全部MATLAB代码以及代码分析。
算法复杂性经常描述为递归方程,解递归方程得到算法复杂性的具体表示 用特征方程解递归方程 用生成函数解递归方程 用递推方法解递归方程
基于BDD技术的故障树分析及其递归方法的实现,罗航,王厚军,文章研究了二元决策图(Binary Decision Diagram, BDD)技术在故障树分析中的具体运用。针对传统故障树分析方法只能得到顶事件的割集、常��
使用递归方法动态生成TreeView!,动态更改节点显示的图片!
算法设计与分析的递归方程求解,包括递推法、公式法、分治法
递归方法求阶层!
sql自定义递归方法 好用 简单易懂 不容错过
算法分析 求解递归方程的方法 PPT 好东东啊 呵呵
treeview 递归方法 代码+加数据库
C#递归方法求阶乘字符串反转小程序,请将它复制并粘帖。
递归方程组解的渐进阶的求法 方法的关键步骤在于预先对解答作出推测,然后用数学归纳法证明推测的正确性
用递归方法遍历c#菜单的源代码,有需要的可以下载下来看看!