设为首页收藏本站

最大的系统仿真与系统优化公益交流社区

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 2312|回复: 1

[求助] 请教关于PortalCrane的问题

[复制链接]
 楼主| 发表于 2013-3-4 10:22:38 | 显示全部楼层 |阅读模式
请教关于PortalCrane的问题,实在想不明白。发现placeIsFree调用的一个问题:当通过PortalCrane的Strategy下的自定义可利用位置(Define your own method for searching an available location)时,自定义程序为:
- A& r$ v2 \' y9 }/ b9 Y(byref x1,y1,z1 : integer; part : object) : boolean" f6 b# N, }* }+ k
is& K) m: A% F! n
        i,j,k,w : integer;/ d) g# M) u0 \) K1 Z
do
; a9 A# t  g1 e9 k0 B. g        for k := 1 to Crane.getStoreZDim loop4 V0 L3 M( _- b
                for i := Crane.getStoreXDim downto 1 loop$ c4 c: p, y. ]% i6 g6 Z3 w! U
                        for j := 1 to Crane.getStoreYDim  loop
- T* |0 `9 A. Q9 Q# ]% d! P' E                                if Crane.placeIsFree(i,j,k) then. |8 g# f+ d) J/ g: ^: @
                                        x1 := i;* D( _1 `/ I& Y, g* |2 a5 D; f( p
                                        y1 := j;$ K4 |4 P' Z- S) K) W
                                        z1 := k;  A6 k* I& _% B
                                        if Crane.placeIsFree(14,1,2) then. {( P" r/ x  ?
                                                w:=12 F+ g& \  O+ b, b- E' M
                                        end;: @! D3 ?6 J" m2 ?
                                        return true;" ]4 \) t, r7 T& a, b
                                end;
5 c! F. C, ~1 J# s) r2 m% q                        next;" z; q& O' G6 s* T" G
                next;% d6 v& ?2 `( M% f( z5 V& B1 M
        next;* l: Y% l7 X) [
        return false;
; n+ m7 F# H; T' p% Lend;
* m& S9 x4 P  H4 V! y1 }  判断的位置(14,1,2)的Free是True;而在某个程序中直接调用placeIsFree时, 判断的(14,1,2)的Free是False。保证两次判断位置(14,1,2)一直没有被占用。想知道是什么原因?placeIsFre方法到底该如何用?请求赐教?
3 i2 e- j- l9 s
发表于 2013-3-4 21:40:37 | 显示全部楼层
你调试一下吧,看下i,j,k的值,肯定不是你说的什么14,1,2,不可能出现在同一个方法中输入相同输出不同的情况。$ `% o3 [4 O7 c0 b( d
从目前你的方法看,当两者不同时,PlaceisFree(i,j,k)为真时,PlaceIsFree(14,1,2)可以为假的。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|Archiver|手机版|SimulWay 道于仿真   

GMT+8, 2025-7-3 03:37 , Processed in 0.014861 second(s), 15 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表