使用Excel vb 解决三元一次函数 所有整数答案

348483807

250X+7350Y+9450Z=[60000到160000]之间任意整数 使用Excel vb函数求X Y Z左右可能的整数答案

香川群子

首先，用小学知识，你的问题应该简化为
1200<=5x+147y+189z<=3200

求x、y、z的所有整数解。

348483807

香川群子 发表于 2014-3-1 14:04
首先，用小学知识，你的问题应该简化为
1200

OTL 不好意思 愚笨了

香川群子

可以参考我的这个帖子
http://club.excelhome.net/thread-793469-2-1.html


附件帮你改写好了。

香川群子

用法不知道的尽管来问我……

香川群子

专门求 3元一次方程的整数解的代码，可以更简单（速度快40倍）

1. Sub kagawa2()
   
2.     Dim arr, h1&, h2&, k1&, k2&, k3&, x1&, x2&, x3&, t1&, t2&, t3&, cnt&, tms#
   
3.     tms = Timer
   
4.    
   
5.     h1 = Cells(2, 3)
   
6.     h2 = Cells(3, 3)
   
7.     k1 = Cells(2, 2)
   
8.     k2 = Cells(3, 2)
   
9.     k3 = Cells(4, 2)
   
10.     ReDim arr(1 To 65535, 1 To 2)
    
11.     For x3 = 1 To h2 \ k3
    
12.         t3 = k3 * x3
    
13.         For x2 = 1 To (h2 - t3) \ k2
    
14.             t2 = k2 * x2 + t3
    
15.             For x1 = IIf(h1 < t2, 1, (h1 - t2 - 1) \ k1 + 1) To (h2 - t2) \ k1
    
16.                 t1 = k1 * x1 + k2 * x2 + k3 * x3
    
17.                     cnt = cnt + 1
    
18.                     arr(cnt, 1) = t1
    
19.                     arr(cnt, 2) = "+" & k1 & "*" & x1 & "+" & k2 & "*" & x2 & "+" & k3 & "*" & x3
    
20.             Next
    
21.         Next
    
22.     Next
    
23.    
    
24.     [e1].CurrentRegion.Offset(1) = "":
    
25.     [e2].Resize(cnt, 2) = arr
    
26.     MsgBox Format(Timer - tms, "0.000s ") & cnt
    
27.    
    
28. End Sub
    

复制代码

孙齐旻

香川群子 发表于 2014-3-1 17:46
专门求 3元一次方程的整数解的代码，可以更简单（速度快40倍）

老师 请问 如果要从 结果包括0 的话如何修改呀？

香川群子

孙齐旻 发表于 2014-3-3 17:12
老师 请问 如果要从 结果包括0 的话如何修改呀？

这样就行了，把循环起始值改成0开始即可。

Sub kagawa3()
    Dim arr, h1&, h2&, k1&, k2&, k3&, x1&, x2&, x3&, t1&, t2&, t3&, cnt&, tms#
    tms = Timer
   
    h1 = Cells(2, 3)
    h2 = Cells(3, 3)
    k1 = Cells(2, 2)
    k2 = Cells(3, 2)
    k3 = Cells(4, 2)
    ReDim arr(1 To 65535, 1 To 2)
    For x3 = 0 To h2 \ k3
        t3 = k3 * x3
        For x2 = 0 To (h2 - t3) \ k2
            t2 = k2 * x2 + t3
            For x1 = IIf(h1 < t2, 0, (h1 - t2 - 1) \ k1) To (h2 - t2) \ k1
                t1 = k1 * x1 + k2 * x2 + k3 * x3
                cnt = cnt + 1
                arr(cnt, 1) = t1
                arr(cnt, 2) = "+" & k1 & "*" & x1 & "+" & k2 & "*" & x2 & "+" & k3 & "*" & x3
            Next
        Next
    Next
   
    [e1].CurrentRegion.Offset(1) = "":
    [e2].Resize(cnt, 2) = arr
    MsgBox Format(Timer - tms, "0.000s ") & cnt
   
End Sub

dnjgyp

学习了，谢谢分享