设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 6083|回复: 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.高手赐教啊!
" l0 u; B' p4 {set t  t + 1( Y( O/ N4 U( ^8 @+ t1 {" o  V
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: ?" h  K9 Q- N0 O# u
                          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 and4 O* @7 v' O; D7 c- h( m) G
                          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]
& y) l5 A6 v$ A$ O& e6 H6 p]
 楼主| 发表于 2008-4-18 15:06:02 | 显示全部楼层
set t t+1
5 I2 m4 w8 L( y1 Kwhile [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
+ i# @( R9 _6 }9 @, x& s  R                         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
3 L/ n1 p: [. ~0 S                         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
& l( }: v6 K0 Q& Q! j                         [stop]
+ w' h& t* [) e. L                      ]
! ]3 X% j* l& {3 Y0 T' n上面的问题勉强解决了,但为什么老是运行到第6次就死机了,郁闷。/ L7 e/ L7 P5 ~4 p. ?

& G5 }4 L3 ?: A! J; w[ 本帖最后由 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
. v/ T( B' z  d" W. f     set t t + 1
8 E6 R4 E; }/ g1 ^9 h# i$ |# R     grow7 |9 B9 X5 m3 O7 ?8 K9 u  J1 X+ D9 y% e
     update-list-of-m
- j; h, \/ O1 x2 F8 q; M2 E     do-plots
/ u5 P+ Y- E$ o+ {3 m7 x     tick  
7 E) G6 c6 i. O! n9 E# d    ifelse t > 8! E; w) \5 S5 f
                  [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
/ w/ @# M  E. ~+ M4 {                      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
/ i# [7 t0 J3 j/ M* ^                      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 2 h5 H5 W- S1 i) G- n7 }! O6 d
                      [stop]]
+ Z1 a' o# W" q! \& w( t" V. d                      [ ]  
. S  |% \7 q2 G( k; C4 mend
+ Y( s4 z5 U) i/ o各位大虾帮忙看看,这样好像可以了。以前用while之所以不行,是不是因为如果报告为true,那么就会反复运行后面的命令导致死循环啊?, [3 N; s, Z/ P5 w
还有就是[ ]是不是意味着不执行任何操作,返回set t t + 1,然后grow,  update-list-of-m, do-plots, tick ..........这样一直按这种顺序循环直到停止。1 Q6 W" q3 ~' u& a
' q9 t- v4 F8 W  B7 ^8 _7 v% p
[ 本帖最后由 wjcpcahu 于 2008-4-19 16:19 编辑 ]
 楼主| 发表于 2008-4-29 10:18:36 | 显示全部楼层

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

本版积分规则

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

GMT+8, 2025-9-14 01:35 , Processed in 0.017706 second(s), 14 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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