[已解决]助求14X+21Y+26Z=488正整数解？

telexon

可否帮助求14X+21Y+26Z=488正整数解？用EXCEL解决,公式和规划求解都行，
TELEXON，QQ=859290525，十分感谢

最佳答案

月排行榜 / 总排行榜

CheryBTL

2013-10-22 07:55

适合二元或三元都行：

1. Sub ep()
   
2.     Dim i As Integer, j As Integer, k As Integer, Rnum As Integer
   
3.     Dim re()
   
4.     Dim Totalsum As Integer, X1 As Integer, X2 As Integer, X3 As Integer
   
5.     X1 = Sheets(1).Range("d2")
   
6.     X2 = Sheets(1).Range("e2")
   
7.     X3 = Sheets(1).Range("f2")
   
8.     Totalsum = Sheets(1).Range("g2")
   
9. 
   
10.     For i = 0 To Totalsum / X1
    
11.         For j = 0 To Totalsum / X2
    
12.             If X3 > 0 Then
    
13.                 For k = 0 To Totalsum / X3
    
14.                     If Totalsum = X1 * i + X2 * j + X3 * k Then
    
15.                         m = m + 1
    
16.                         ReDim Preserve re(1 To 3, 1 To m)
    
17.                         re(1, m) = i
    
18.                         re(2, m) = j
    
19.                         re(3, m) = k
    
20.                     End If
    
21.                 Next k
    
22.             Else
    
23.                 If Totalsum = X1 * i + X2 * j Then
    
24.                     m = m + 1
    
25.                     ReDim Preserve re(1 To 3, 1 To m)
    
26.                     re(1, m) = i
    
27.                     re(2, m) = j
    
28.                 End If
    
29.             End If
    
30.         Next j
    
31.     Next i
    
32.     Sheets(1).[a1].Resize(UBound(re, 2), 3) = Application.Transpose(re)
    
33. End Sub
    

复制代码

跳转到最佳答案楼层

huangcaiguang

规划求解  模型sumproduct   整数约束

as0810114

看看是不是。。。

huangcaiguang

如果要得到所有可能   或许要加入权重

CheryBTL

1. Sub ep()
   
2.     Dim i As Integer, j As Integer, k As Integer, Rnum As Integer
   
3.     Dim re()
   
4.     Dim Totalsum As Integer, X1 As Integer, X2 As Integer, X3 As Integer
   
5.     Totalsum = 488
   
6.     X1 = 14
   
7.     X2 = 21
   
8.     X3 = 26
   
9.     For i = 1 To Totalsum / X1
   
10.         For j = 1 To Totalsum / X2
    
11.             For k = 1 To Totalsum / X3
    
12.                 If Totalsum = X1 * i + X2 * j + X3 * k Then
    
13.                     m = m + 1
    
14.                     ReDim Preserve re(1 To 3, 1 To m)
    
15.                     re(1, m) = i
    
16.                     re(2, m) = j
    
17.                     re(3, m) = k
    
18.                 End If
    
19.             Next k
    
20.         Next j
    
21.     Next i
    
22.     Sheets(1).[a1].Resize(UBound(re, 2), 3) = Application.Transpose(re)
    
23. End Sub
    

复制代码

匹配.rar (7.95 KB, 下载次数: 7)

2013-10-21 22:04 上传

点击文件名下载附件

as0810114

huangcaiguang 发表于 2013-10-21 22:02
如果要得到所有可能   或许要加入权重

怎么玩？

telexon

CheryBTL 发表于 2013-10-21 22:04

太谢谢您了，
vba 好用，可否给在A1，B1，C1，D1设置更新（14，21，26，488）几个常数，不用直接再改动您的VBA语言？求求你

CheryBTL

将上面的常数，改用以下代码即可：

1. X1=Sheets(1).Range("A1")
   
2. X2=Sheets(1).Range("B1")
   
3. X3=Sheets(1).range("C1")
   
4. Totalsum=Sheets(1).range("D1")

复制代码

telexon

CheryBTL 发表于 2013-10-21 22:40
将上面的常数，改用以下代码即可：

太谢谢您了，感动，工作上更省时间；

telexon

CheryBTL 发表于 2013-10-21 22:40
将上面的常数，改用以下代码即可：

dearS： 怎么提示错误，“溢出”，我实在不懂