递归方法巧解不定方程
来源:互联网 发布:mac os设置默认输入法 编辑:程序博客网 时间:2024/05/18 01:31
多元一次方程往往采用循环求解。笔者在与网友们讨论一个问题(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
- 递归方法巧解不定方程
- 递归方法巧解不定方程
- 递归方法巧解不定方程(二)
- 解不定方程
- 解不定方程
- 解不定方程
- 不定方程
- 不定方程(什么是不定方程)
- 不定方程(什么是不定方程)
- poj1091 跳蚤 解不定方程的应用
- CF7C 扩展欧几里得解不定方程
- 解特殊不定方程:毕达哥拉斯三元组
- uva 12169 扩展欧几里德解不定方程
- 扩展欧几里德解二元一次不定方程
- hdu-2142(扩展欧几里得解不定方程)
- [模板] exgcd模板解不定方程
- 二元一次不定方程
- 二元不定方程
- 利用C++Builder 中OLE自动化功能实现调用Word进行报表制作
- 也谈session在JSP和Servlet中不一致问题
- 利用集合进行数组的排序
- 递归与组合
- 菜单字体颜色可以更改吗?
- 递归方法巧解不定方程
- API 更改系统菜单条目
- 能否判断动态数组有没有被分配过?
- 递归与排列
- 利用EXCEL 实现字符串的计算
- 利用API 实现字符串表达式的计算
- 关于天文数字十进制与十六进制间的转换
- 如何取得文本框中包含指定字符串的行
- 大数阶乘的计算(一)