八皇后问题1stopt程序

sunbo

下面是求解八皇后问题的1stopt程序,
程序运行时没有错误提示,好象就一直在那里执行  ,也没有结果
请高人帮忙看看

1. Title "Type your title here";
   
2. 
   
3. constant N = 5;
   
4. Variable position(1:N),y;
   
5. Variable f(0:N-1,0:N-1);
   
6. 
   
7. StartProgram;
   
8. var
   
9. i,j,position: integer;
   
10. begin
    
11.   for i := 0 to N-1 do begin
    
12.      for j := 0 to N-1 do begin
    
13.         if abs(position[i]-positon[j]) == abs(i-j) ||  position[i] == positon[j]
    
14.              f[i][j] := 1;
    
15.              else
    
16.              f[i][j] := 0;
    
17.       end;
    
18.   end;
    
19. end;
    
20. EndProgram;
    
21. minfunction y = sum(i=0:N-1)(j=0:N-1)(f[i][j]);
    

复制代码

谢谢

[ 本帖最后由 suffer 于 2007-7-20 05:39 编辑 ]

sunbo

谢谢

sunbo

对不起  

1. if abs(position-positon[j]) == abs(i-j) ||  position == positon[j]

复制代码

应该是

1. if abs(position-positon[j]) == abs(i-j) ||  position[i] == positon[j]

复制代码

[ 本帖最后由 suffer 于 2007-7-20 05:39 编辑 ]

suffer

解决了吗？

sunbo

没有     看起来没多大希望了    听别人推荐说这软件非常优秀    优化算法很好    没想到解决个八皇后问题 这么麻烦        大概是因为 我不会用吧

dingd

语法错误不少。看下面改正后的代码。计算的目标函数等于皇后数N。（绿色版好像无法执行编程模式）

1. Title "Type your title here";
   
2. constant N = 8;                          //皇后数目，可改动
   
3. IntParameter position(0:N-1)[0,n-1];
   
4. Exclusive = True;
   
5. Minimum;
   
6. StartProgram;
   
7. var i, j, d: integer;
   
8. begin
   
9.   d := 0;
   
10.   for i := 0 to N-1 do begin
    
11.      for j := i to N-1 do
    
12.         if (abs(position[i]-position[j]) = abs(i-j))or(position[i] = position[j]) then
    
13.              inc(d);
    
14.   end;
    
15.   FunctionResult := d;
    
16. end;
    
17. EndProgram;

复制代码

sunbo

谢谢     请问有无好的1stopt 教程     我想学习这个软件   
软件中自带的手册讲的不太详细    我发现很多关键字我都不认识

suffer

原帖由 sunbo 于 2007-7-20 10:34 发表

                               
登录/注册后可看大图

谢谢     请问有无好的1stopt 教程     我想学习这个软件   
软件中自带的手册讲的不太详细    我发现很多关键字我都不认识

没见过

dahai334

1.5版破解版网上就有，一搜就着。另外，1stopt的用户手册的确太简单了。dingd是这方面的高手，也是这个软件的推手，不知道dingd能否现身释疑？