SimWe仿真论坛 » H20：MathCAD Maple » 用1stOpt进行填数字游戏

shamohu 发表于 2007-8-8 17:00

用1stOpt进行填数字游戏

题目如下：
把1到9填入下列空格，使等式成立，空格里的数字不能重复
　
     □　         □　　　  □　　   
─── + ─── + ─── = 1
    □□  　     □□ 　       □□ 　   
　
1stOpt代码：
Parameter x(0:8)=[1,9];
Exclusive = True;
Minimum;
StartProgram [Pascal];
Procedure MainModel;
Begin
    FunctionResult := Sqr(Sum(i=0:2)(x[3*i]/(10*x[3*i+1]+x[3*i+2]))-1);
End;
EndProgram;

结果：
x0: 7
x1: 6
x2: 8
x3: 5
x4: 3
x5: 4
x6: 9
x7: 1
x8: 2

huahua2005 发表于 2007-8-9 16:16

1stopt在做优化方面的确厉害哦，这道题用别的软件恐怕得用几重循环哦~~

FreddyMusic 发表于 2007-8-9 20:50

看这贴，play sudoku ？
[url=http://www.simwe.com/forum/thread-791983-1-1.html]http://www.simwe.com/forum/thread-791983-1-1.html[/url]

查看完整版本: 用1stOpt进行填数字游戏