递归方法巧解不定方程（二）

最新推荐文章于 2022-03-09 07:10:48 发布
最新推荐文章于 2022-03-09 07:10:48 发布
阅读量1.6k 收藏
点赞数 1
分类专栏： 字符串处理 排列组合 数字计算技巧 文章标签： integer join timer string command c
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/northwolves/article/details/777469
版权

笔者在2004年曾写过一篇 递归方法巧解不定方程 。昨天在一位网友的启发下,对代码进行了重写，使其能够设置每个变量的取值范围。代码如下


Private Sub Command1_Click()
Dim min(1 To 5) As Integer, max(1 To 5) As Integer, RESULT
min(1) = 2
min(2) = 3
max(1) = 3
max(2) = 7
jiefangcheng 5, min, max, 15

End Sub


'求解函数
Sub GETRESULT(ByVal n As Integer, ByRef min() As Integer, ByRef max() As Integer, ByVal SUM As Integer, Optional ByRef resultcount As Long, Optional ByRef RESULT)
  Dim temp(), c() As Long, i As Long, j As Long, k As Long, r As Long

 

If n = 1 Then '一元方程
If SUM >= min(1) And SUM <= max(1) Then
resultcount = 1
ReDim RESULT(1 To 1, 1 To 1)
RESULT(1, 1) = SUM
End If
End If

If n > 1 Then
resultcount = 0
ReDim temp(min(n) To max(n))
ReDim c(min(n) To max(n))
For i = min(n) To max(n)
GETRESULT n - 1, min, max, SUM - i, c(i), temp(i)
resultcount = resultcount + c(i)
Next
If resultcount > 0 Then
ReDim RESULT(1 To resultcount, 1 To n)
For i = min(n) To max(n)
If c(i) > 0 Then
For j = 1 To UBound(temp(i), 1)
r = r + 1
For k = 1 To n - 1
RESULT(r, k) = temp(i)(j, k)
Next
RESULT(r, n) = i
Next
End If
Next
Erase temp
End If
End If


End Sub

Sub jiefangcheng(ByVal n As Integer, ByRef min() As Integer, ByRef max() As Integer, ByVal SUM As Integer, Optional ByRef RESULT)
Dim x() As String, i As Integer, msg As String, resultcount As Long, laptime As Single
laptime = Timer
  '默认解的范围为1-SUM
For i = 1 To n
If min(i) = 0 Then min(i) = 1
If max(i) = 0 Then max(i) = SUM
Next

GETRESULT n, min, max, SUM, resultcount, RESULT '赋值
   
ReDim x(1 To n)
For i = 1 To n
x(i) = "X" & i
Next
msg = "方程" & Join(x, "+") & "=" & SUM

For i = 1 To n
x(i) = "X" & i & "∈[" & min(i) & "," & max(i) & "]"
Next
msg = msg & "当" & Join(x, ",") & " 时" '关于方程的表达式和解的定义域


    If resultcount > 0 Then
   

  Debug.Print msg & "共有 " & resultcount & " 个解"
  ReDim x(1 To resultcount)
  For i = 1 To resultcount
  x(i) = "解" & i & "："
  For j = 1 To n
  x(i) = x(i) & "X" & j & "=" & RESULT(i, j) & vbTab
  Next
  Next
  Debug.Print Join(x, vbCrLf)
  Else
 
  Debug.Print msg & "无解！"
  End If
  laptime = Timer - laptime
  Debug.Print "总计用时" & IIf(laptime < 0, 0, Format(laptime, "0.000")) & "秒！"
End Sub

 

调试结果如下：

 

方程X1+X2+X3+X4+X5=15当X1∈[2,3],X2∈[3,7],X3∈[1,15],X4∈[1,15],X5∈[1,15] 时共有 190 个解
解1：X1=3   X2=7    X3=3    X4=1    X5=1   
解2：X1=3   X2=6    X3=4    X4=1    X5=1   
解3：X1=2   X2=7    X3=4    X4=1    X5=1   
解4：X1=3   X2=5    X3=5    X4=1    X5=1   
解5：X1=2   X2=6    X3=5    X4=1    X5=1   
解6：X1=3   X2=4    X3=6    X4=1    X5=1   
解7：X1=2   X2=5    X3=6    X4=1    X5=1   
解8：X1=3   X2=3    X3=7    X4=1    X5=1   
解9：X1=2   X2=4    X3=7    X4=1    X5=1   
解10：X1=2  X2=3    X3=8    X4=1    X5=1   
解11：X1=3  X2=7    X3=2    X4=2    X5=1   
解12：X1=3  X2=6    X3=3    X4=2    X5=1   
解13：X1=2  X2=7    X3=3    X4=2    X5=1   
解14：X1=3  X2=5    X3=4    X4=2    X5=1   
解15：X1=2  X2=6    X3=4    X4=2    X5=1   
解16：X1=3  X2=4    X3=5    X4=2    X5=1   
解17：X1=2  X2=5    X3=5    X4=2    X5=1   
解18：X1=3  X2=3    X3=6    X4=2    X5=1   
解19：X1=2  X2=4    X3=6    X4=2    X5=1   
解20：X1=2  X2=3    X3=7    X4=2    X5=1   
解21：X1=3  X2=7    X3=1    X4=3    X5=1   
解22：X1=3  X2=6    X3=2    X4=3    X5=1   
解23：X1=2  X2=7    X3=2    X4=3    X5=1   
解24：X1=3  X2=5    X3=3    X4=3    X5=1   
解25：X1=2  X2=6    X3=3    X4=3    X5=1   
解26：X1=3  X2=4    X3=4    X4=3    X5=1   
解27：X1=2  X2=5    X3=4    X4=3    X5=1   
解28：X1=3  X2=3    X3=5    X4=3    X5=1   
解29：X1=2  X2=4    X3=5    X4=3    X5=1   
解30：X1=2  X2=3    X3=6    X4=3    X5=1   
解31：X1=3  X2=6    X3=1    X4=4    X5=1   
解32：X1=2  X2=7    X3=1    X4=4    X5=1   
解33：X1=3  X2=5    X3=2    X4=4    X5=1   
解34：X1=2  X2=6    X3=2    X4=4    X5=1   
解35：X1=3  X2=4    X3=3    X4=4    X5=1   
解36：X1=2  X2=5    X3=3    X4=4    X5=1   
解37：X1=3  X2=3    X3=4    X4=4    X5=1   
解38：X1=2  X2=4    X3=4    X4=4    X5=1   
解39：X1=2  X2=3    X3=5    X4=4    X5=1   
解40：X1=3  X2=5    X3=1    X4=5    X5=1   
解41：X1=2  X2=6    X3=1    X4=5    X5=1   
解42：X1=3  X2=4    X3=2    X4=5    X5=1   
解43：X1=2  X2=5    X3=2    X4=5    X5=1   
解44：X1=3  X2=3    X3=3    X4=5    X5=1   
解45：X1=2  X2=4    X3=3    X4=5    X5=1   
解46：X1=2  X2=3    X3=4    X4=5    X5=1   
解47：X1=3  X2=4    X3=1    X4=6    X5=1   
解48：X1=2  X2=5    X3=1    X4=6    X5=1   
解49：X1=3  X2=3    X3=2    X4=6    X5=1   
解50：X1=2  X2=4    X3=2    X4=6    X5=1   
解51：X1=2  X2=3    X3=3    X4=6    X5=1   
解52：X1=3  X2=3    X3=1    X4=7    X5=1   
解53：X1=2  X2=4    X3=1    X4=7    X5=1   
解54：X1=2  X2=3    X3=2    X4=7    X5=1   
解55：X1=2  X2=3    X3=1    X4=8    X5=1   
解56：X1=3  X2=7    X3=2    X4=1    X5=2   
解57：X1=3  X2=6    X3=3    X4=1    X5=2   
解58：X1=2  X2=7    X3=3    X4=1    X5=2   
解59：X1=3  X2=5    X3=4    X4=1    X5=2   
解60：X1=2  X2=6    X3=4    X4=1    X5=2   
解61：X1=3  X2=4    X3=5    X4=1    X5=2   
解62：X1=2  X2=5    X3=5    X4=1    X5=2   
解63：X1=3  X2=3    X3=6    X4=1    X5=2   
解64：X1=2  X2=4    X3=6    X4=1    X5=2   
解65：X1=2  X2=3    X3=7    X4=1    X5=2   
解66：X1=3  X2=7    X3=1    X4=2    X5=2   
解67：X1=3  X2=6    X3=2    X4=2    X5=2   
解68：X1=2  X2=7    X3=2    X4=2    X5=2   
解69：X1=3  X2=5    X3=3    X4=2    X5=2   
解70：X1=2  X2=6    X3=3    X4=2    X5=2   
解71：X1=3  X2=4    X3=4    X4=2    X5=2   
解72：X1=2  X2=5    X3=4    X4=2    X5=2   
解73：X1=3  X2=3    X3=5    X4=2    X5=2   
解74：X1=2  X2=4    X3=5    X4=2    X5=2   
解75：X1=2  X2=3    X3=6    X4=2    X5=2   
解76：X1=3  X2=6    X3=1    X4=3    X5=2   
解77：X1=2  X2=7    X3=1    X4=3    X5=2   
解78：X1=3  X2=5    X3=2    X4=3    X5=2   
解79：X1=2  X2=6    X3=2    X4=3    X5=2   
解80：X1=3  X2=4    X3=3    X4=3    X5=2   
解81：X1=2  X2=5    X3=3    X4=3    X5=2   
解82：X1=3  X2=3    X3=4    X4=3    X5=2   
解83：X1=2  X2=4    X3=4    X4=3    X5=2   
解84：X1=2  X2=3    X3=5    X4=3    X5=2   
解85：X1=3  X2=5    X3=1    X4=4    X5=2   
解86：X1=2  X2=6    X3=1    X4=4    X5=2   
解87：X1=3  X2=4    X3=2    X4=4    X5=2   
解88：X1=2  X2=5    X3=2    X4=4    X5=2   
解89：X1=3  X2=3    X3=3    X4=4    X5=2   
解90：X1=2  X2=4    X3=3    X4=4    X5=2   
解91：X1=2  X2=3    X3=4    X4=4    X5=2   
解92：X1=3  X2=4    X3=1    X4=5    X5=2   
解93：X1=2  X2=5    X3=1    X4=5    X5=2   
解94：X1=3  X2=3    X3=2    X4=5    X5=2   
解95：X1=2  X2=4    X3=2    X4=5    X5=2   
解96：X1=2  X2=3    X3=3    X4=5    X5=2   
解97：X1=3  X2=3    X3=1    X4=6    X5=2   
解98：X1=2  X2=4    X3=1    X4=6    X5=2   
解99：X1=2  X2=3    X3=2    X4=6    X5=2   
解100：X1=2 X2=3    X3=1    X4=7    X5=2   
解101：X1=3 X2=7    X3=1    X4=1    X5=3   
解102：X1=3 X2=6    X3=2    X4=1    X5=3   
解103：X1=2 X2=7    X3=2    X4=1    X5=3   
解104：X1=3 X2=5    X3=3    X4=1    X5=3   
解105：X1=2 X2=6    X3=3    X4=1    X5=3   
解106：X1=3 X2=4    X3=4    X4=1    X5=3   
解107：X1=2 X2=5    X3=4    X4=1    X5=3   
解108：X1=3 X2=3    X3=5    X4=1    X5=3   
解109：X1=2 X2=4    X3=5    X4=1    X5=3   
解110：X1=2 X2=3    X3=6    X4=1    X5=3   
解111：X1=3 X2=6    X3=1    X4=2    X5=3   
解112：X1=2 X2=7    X3=1    X4=2    X5=3   
解113：X1=3 X2=5    X3=2    X4=2    X5=3   
解114：X1=2 X2=6    X3=2    X4=2    X5=3   
解115：X1=3 X2=4    X3=3    X4=2    X5=3   
解116：X1=2 X2=5    X3=3    X4=2    X5=3   
解117：X1=3 X2=3    X3=4    X4=2    X5=3   
解118：X1=2 X2=4    X3=4    X4=2    X5=3   
解119：X1=2 X2=3    X3=5    X4=2    X5=3   
解120：X1=3 X2=5    X3=1    X4=3    X5=3   
解121：X1=2 X2=6    X3=1    X4=3    X5=3   
解122：X1=3 X2=4    X3=2    X4=3    X5=3   
解123：X1=2 X2=5    X3=2    X4=3    X5=3   
解124：X1=3 X2=3    X3=3    X4=3    X5=3   
解125：X1=2 X2=4    X3=3    X4=3    X5=3   
解126：X1=2 X2=3    X3=4    X4=3    X5=3   
解127：X1=3 X2=4    X3=1    X4=4    X5=3   
解128：X1=2 X2=5    X3=1    X4=4    X5=3   
解129：X1=3 X2=3    X3=2    X4=4    X5=3   
解130：X1=2 X2=4    X3=2    X4=4    X5=3   
解131：X1=2 X2=3    X3=3    X4=4    X5=3   
解132：X1=3 X2=3    X3=1    X4=5    X5=3   
解133：X1=2 X2=4    X3=1    X4=5    X5=3   
解134：X1=2 X2=3    X3=2    X4=5    X5=3   
解135：X1=2 X2=3    X3=1    X4=6    X5=3   
解136：X1=3 X2=6    X3=1    X4=1    X5=4   
解137：X1=2 X2=7    X3=1    X4=1    X5=4   
解138：X1=3 X2=5    X3=2    X4=1    X5=4   
解139：X1=2 X2=6    X3=2    X4=1    X5=4   
解140：X1=3 X2=4    X3=3    X4=1    X5=4   
解141：X1=2 X2=5    X3=3    X4=1    X5=4   
解142：X1=3 X2=3    X3=4    X4=1    X5=4   
解143：X1=2 X2=4    X3=4    X4=1    X5=4   
解144：X1=2 X2=3    X3=5    X4=1    X5=4   
解145：X1=3 X2=5    X3=1    X4=2    X5=4   
解146：X1=2 X2=6    X3=1    X4=2    X5=4   
解147：X1=3 X2=4    X3=2    X4=2    X5=4   
解148：X1=2 X2=5    X3=2    X4=2    X5=4   
解149：X1=3 X2=3    X3=3    X4=2    X5=4   
解150：X1=2 X2=4    X3=3    X4=2    X5=4   
解151：X1=2 X2=3    X3=4    X4=2    X5=4   
解152：X1=3 X2=4    X3=1    X4=3    X5=4   
解153：X1=2 X2=5    X3=1    X4=3    X5=4   
解154：X1=3 X2=3    X3=2    X4=3    X5=4   
解155：X1=2 X2=4    X3=2    X4=3    X5=4   
解156：X1=2 X2=3    X3=3    X4=3    X5=4   
解157：X1=3 X2=3    X3=1    X4=4    X5=4   
解158：X1=2 X2=4    X3=1    X4=4    X5=4   
解159：X1=2 X2=3    X3=2    X4=4    X5=4   
解160：X1=2 X2=3    X3=1    X4=5    X5=4   
解161：X1=3 X2=5    X3=1    X4=1    X5=5   
解162：X1=2 X2=6    X3=1    X4=1    X5=5   
解163：X1=3 X2=4    X3=2    X4=1    X5=5   
解164：X1=2 X2=5    X3=2    X4=1    X5=5   
解165：X1=3 X2=3    X3=3    X4=1    X5=5   
解166：X1=2 X2=4    X3=3    X4=1    X5=5   
解167：X1=2 X2=3    X3=4    X4=1    X5=5   
解168：X1=3 X2=4    X3=1    X4=2    X5=5   
解169：X1=2 X2=5    X3=1    X4=2    X5=5   
解170：X1=3 X2=3    X3=2    X4=2    X5=5   
解171：X1=2 X2=4    X3=2    X4=2    X5=5   
解172：X1=2 X2=3    X3=3    X4=2    X5=5   
解173：X1=3 X2=3    X3=1    X4=3    X5=5   
解174：X1=2 X2=4    X3=1    X4=3    X5=5   
解175：X1=2 X2=3    X3=2    X4=3    X5=5   
解176：X1=2 X2=3    X3=1    X4=4    X5=5   
解177：X1=3 X2=4    X3=1    X4=1    X5=6   
解178：X1=2 X2=5    X3=1    X4=1    X5=6   
解179：X1=3 X2=3    X3=2    X4=1    X5=6   
解180：X1=2 X2=4    X3=2    X4=1    X5=6   
解181：X1=2 X2=3    X3=3    X4=1    X5=6   
解182：X1=3 X2=3    X3=1    X4=2    X5=6   
解183：X1=2 X2=4    X3=1    X4=2    X5=6   
解184：X1=2 X2=3    X3=2    X4=2    X5=6   
解185：X1=2 X2=3    X3=1    X4=3    X5=6   
解186：X1=3 X2=3    X3=1    X4=1    X5=7   
解187：X1=2 X2=4    X3=1    X4=1    X5=7   
解188：X1=2 X2=3    X3=2    X4=1    X5=7   
解189：X1=2 X2=3    X3=1    X4=2    X5=7   
解190：X1=2 X2=3    X3=1    X4=1    X5=8   
总计用时0.410秒！

 

northwolves
关注
  • 1
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
Java二分查找（普通方法和递归方法）
12-22
二分查找也称折半查找（Binary Search），它是一种效率较高的查找方法。但是，折半查找要求线性表必须采用顺序存储结构，而且表中元素按关键字有序排列。 要求： 必须采用顺序存储结构。 必须按关键字大小有序排列。...
递归方法巧解不定方程
northwolves[狼行天下] 的专栏
02-01 2850
       多元一次方程往往采用循环求解。笔者在与网友们讨论一个问题（http://expert.csdn.net/Expert/topic/2607/2607772.xml?temp=.7494928）过程中，琢磨出一种算法，采用递归进行多元一次方程的求解。并将解分为整数解和 非负整数解两种情况，请大家指教。  Private Sub Command1_Click() 演示求X1
全民一起VBA实战篇 专题4 第七回 递归不怕检索难，万缕千层只等闲
10-13 810
相关知识点： Collection对象： 用于存放任意多个对象，不需要事先指定其长度，常用方法： Add方法：添加一个元素 Clear方法：清空所有元素 Count属性：返回元素的总数 例1 递归遍历子文件夹，将找到的文件夹名字存放在数组里...
vb学习递归的典型例子
qiu5208的专栏
03-13 8128
1。阶乘 ‘写个简单的例子,所谓阶乘的递归 Private Sub Command1_Click()Sub Command1_Click()     Debug.Print dg(7) End Sub Function dg()Function dg(n)     If n = 0 Then         dg = 1     Else         dg = dg(n - 1) 
全民一起VBA实战篇 专题4 第五回 递归算法流程独特 大事化小思路清奇
09-15 1583
相关知识点： 区别于循环在于，把大问题转换成小问题，总结递进的推导公式；知道最小问题的答案（递归的停止条件）。 例1 阶乘(循环语句) Sub demo() Msgbox 阶乘(4) End Sub Function 阶乘(n as long) Dim s, i s=1 For i=1 To n ...
R语言solve函数求解方程实战
data+scenario+science+insight
03-09 3776
R语言solve函数求解方程实战 目录 R语言solve函数求解方程实战 #solve函数的基本应用 #solve函数应用于方程组 #solve函数应用于方程组右边矩阵为单位矩阵的情况 #solve函数的基本应用 3*x =12,那么计算x是什么？ solve(3, 12) # Applying solve # 4 #solve函数应用于方程组 5x + y = 15 10x + 3y = 9 mat_a1 <- m.
python二分查找算法的递归实现方法
09-21
主要介绍了python二分查找算法的递归实现方法,结合实例形式分析了Python二分查找算法的相关实现技巧,需要的朋友可以参考下
C# 递归查找树状目录实现方法
12-31
1.递归查找树状目录 代码如下: public partial class Form1 : Form { string path = @”F:\学习文件”;//递归查找树状目录 public Form1() {递归查找树状目录 InitializeComponent(); } private void Form1_...
递归方法实现斐波那契数列_递归方法实现斐波那契数列_python_源码
10-02
递归方法实现斐波那契数列
python递归计算N！的方法
12-25
本文实例讲述了python递归计算N！的方法。分享给大家供大家参考。具体实现方法如下： def factorial(n): if n == 0: return 1 else: return n * factorial(n - 1) 希望本文所述对大家的Python程序设计有所帮助...
高二数学（经典）不定方程解法
02-26
高二数学（经典）不定方程解法，绝对超值！
VB 递归算法例子
11-04
VB 递归算法例子的源程序代码，递归，当N="输入的数值"的时候，生成对应的三角形，数字上经常有的算法。生成的效果请看源码爱好者测试截图
VBA读取递归读取所有子目录
06-16
下载文件，放到指定的文件夹，打开excle，点击运行。 该文件夹的和文件夹下的所有子目录就出来了。
一道趣味算术题
热门推荐
northwolves[狼行天下] 的专栏
11-26 3万+
 题目地址：http://club.excelhome.net/thread-175411-1-1.html 先看几个数：312132,231213,41312432,23421314         可以看到以上字串有以下特点：   2个1   之间有1个数，2个2   之间有2个数，2个3之间有3个数...     试找出由(1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,
一道趣味数学题
northwolves[狼行天下] 的专栏
07-25 1万+
题目： 将+，-，*，/ 添加到 1，2，3，4，5，6，7，8，9 之间，使其构成的算式四则运算结果等于100，如： 1*2*3*4+5+6+7*8+9=100 分析： 以上算式相当于把1~9  9 个数字和 8个（+，-，*，/ ）作一个特殊顺序的排列，共有4^8=65536 种可能，再从中进行取舍。 代码： Option ExplicitPrivate Declare Function Eb
一道趣味数学题(二)
northwolves[狼行天下] 的专栏
11-20 9758
123456789这九个按顺序排列的数，要求在它们之间插入若干个+，-，*，/ ，使其结果正好等于100如： 1*2*3*4+5+6+7*8+9=100 以下代码在http://blog.csdn.net/northwolves/archive/2004/07/25/51038.aspx基础上修改而成: Sub main() 开始计算getall 100getall 10
关于VB日期与数字的转换（一）
northwolves[狼行天下] 的专栏
12-20 9472
VB中可将日期作为实数的一部分来存储。小数点左边的数值表示日期：小数点右边的数值表示时间。负的数值表示在1899 年 12 月 30 日 之前。所以每一天可以用一个整数来表示（以1899-12-30 为0，该日之后为正数，之前为负数） ，对于MSVB 的合法日期，即#100-1-1# 到#9999-12-31#，就有-657434～2958465来表示。对于给定的日期，用Clng()可以获得该日期
递归求三元不定方程组
最新发布
09-11
三元不定方程组可用递归的方法求解，具体步骤如下： 1. 将三元不定方程组化为两个二元不定方程组。 2. 解出其中一个二元不定方程组。 3. 将第一步中解出的结果代入另一个二元不定方程组中，得到一个一元不定方程...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值