设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 5802|回复: 4

[交流] 列表中的条目比较

[复制链接]
发表于 2008-4-18 00:08:38 | 显示全部楼层 |阅读模式
我想创建一个列表list-of-m,其中m值在每轮循环后会更新并fput到list-of-m中。在6轮循环之后开始比较,如果列表中0  1 2项的均值与3 4 5项的均值的绝对值相差小于0.1,并且如果列表中6 7 8项的均值与3 4 5项的均值的绝对值相差小于0.1,并且如果列表中0  1 2项的均值与6 7 8项的均值的绝对值相差小于0.1,就停止程序运行。我按下面的方法编,报告(红色部分):expected number,list,string or boolean.高手赐教啊!/ h& p! m9 {6 \
set t  t + 17 w: D( ?3 t- P& S8 c
while [t > 6 ] [ if abs((mean [item 0 list-of-m item 1 list-of-m item 2 list-of-m]) - (mean [item 3 list-of-m item 4 list-of-m item 5 list-of-m]))< 0.01 and. Y. m# P: a& H2 S: m  V  i
                          abs((mean [item 6 list-of-m item 7 list-of-m item 8 list-of-m]) - (mean [item 3 list-of-m item 4 list-of-m item 5 list-of-m]))< 0.01 and# g  n8 |: ~1 R9 N/ M, E
                          abs((mean [item 6 list-of-m item 7 list-of-m item 8 list-of-m]) - (mean [item 3 list-of-m item 4 list-of-m item 5 list-of-m])) < 0.01[stop]
+ E- r% K- [' l3 r  g]
 楼主| 发表于 2008-4-18 15:06:02 | 显示全部楼层
set t t+1
3 \4 _$ I1 X' m3 Hwhile [t > 6 ] [ if abs( mean (list (item 0 list-of-m)  (item 1 list-of-m) (item 2 list-of-m)) - mean (list (item 3 list-of-m)  (item 4 list-of-m) (item 5 list-of-m)))< 0.01 and
. N0 g0 ~; D8 P4 @7 S& }6 ?3 q+ z                         abs( mean (list (item 3 list-of-m)  (item 4 list-of-m) (item 5 list-of-m)) - mean (list (item 6 list-of-m)  (item 7 list-of-m) (item 8 list-of-m)))< 0.01 and' J/ c1 O- `: ], I2 [
                         abs( mean (list (item 0 list-of-m)  (item 1 list-of-m) (item 2 list-of-m)) - mean (list (item 6 list-of-m)  (item 7 list-of-m) (item 8 list-of-m)))< 0.01
; @! X  E9 C% w2 Q6 _0 n                         [stop]& b; o1 a- x1 f3 S# g% G( F
                      ]
/ r9 G2 {! N0 h; |" L6 e* O上面的问题勉强解决了,但为什么老是运行到第6次就死机了,郁闷。1 p9 i: D* r+ }

4 Q0 m) T. w4 z4 U% c0 q" q[ 本帖最后由 wjcpcahu 于 2008-4-18 19:16 编辑 ]
 楼主| 发表于 2008-4-18 19:19:02 | 显示全部楼层

比较怪异

如果将6 改为18,运行到18次就死机,我发现这个程序怎么跟病毒一样!修改0.01没用,减少主体数量也没用,闷啊!!!!!
 楼主| 发表于 2008-4-19 16:11:18 | 显示全部楼层

好像可以了

to go
7 K% v: l" O0 S2 b     set t t + 1
4 a% O" C9 q" [$ l4 z# G! F6 f     grow+ G. \( _2 k; c& ]: ^1 v
     update-list-of-m$ u# V" A) l- F1 _
     do-plots
( S- L) ?0 G9 o3 h3 r% ?6 {# U2 Y     tick  
# ?0 _# W4 n# U0 v& z9 b3 L& ^) l    ifelse t > 87 N/ c7 a. _$ i$ V. g# P+ ~/ U8 Z5 p, w
                  [if abs( mean (list (item 0 list-of-m)  (item 1 list-of-m) (item 2 list-of-m)) - mean (list (item 3 list-of-m)  (item 4 list-of-m) (item 5 list-of-m)))< 0.01 and. ^. U/ K2 f: l+ @5 b7 ?% P( f$ L
                      abs( mean (list (item 3 list-of-m)  (item 4 list-of-m) (item 5 list-of-m)) - mean (list (item 6 list-of-m)  (item 7 list-of-m) (item 8 list-of-m)))< 0.01 and- h/ n- W0 J2 R+ @
                      abs( mean (list (item 0 list-of-m)  (item 1 list-of-m) (item 2 list-of-m)) - mean (list (item 6 list-of-m)  (item 7 list-of-m) (item 8 list-of-m)))< 0.01 . Z2 S% j5 ^, z0 C$ z# n
                      [stop]]; h3 V" D* L& G1 r$ }5 ~& u8 z
                      [ ]  
: o8 u* Z, ?3 U( V3 s8 _; I, zend
% O( q: P2 `, U" P/ {各位大虾帮忙看看,这样好像可以了。以前用while之所以不行,是不是因为如果报告为true,那么就会反复运行后面的命令导致死循环啊?
3 f1 z. r% i; R5 L( J, u9 K还有就是[ ]是不是意味着不执行任何操作,返回set t t + 1,然后grow,  update-list-of-m, do-plots, tick ..........这样一直按这种顺序循环直到停止。# d+ h( u/ E2 o* Z; G6 E
0 ?- H3 q8 w1 v( ~3 h4 v2 n0 g
[ 本帖最后由 wjcpcahu 于 2008-4-19 16:19 编辑 ]
 楼主| 发表于 2008-4-29 10:18:36 | 显示全部楼层

各位大虾,上面说的对吗?给点意见,小弟心里还是很忐忑的。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2025-7-19 07:50 , Processed in 0.015140 second(s), 14 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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