设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 5766|回复: 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.高手赐教啊!5 O; G5 T2 X4 I9 z
set t  t + 17 _; m  U1 s- `0 A" w3 H7 J* ~
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/ N1 k2 A9 q$ @  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  l# S! Q6 L% Q5 n8 `8 S; S" L
                          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]
3 w/ |/ Y( I' X. g  _# n5 E2 {. V]
 楼主| 发表于 2008-4-18 15:06:02 | 显示全部楼层
set t t+1
7 m: p- N; z2 A; V8 B/ z/ ewhile [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 and4 ]* {. G+ t+ U+ V! F; ~
                         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" Y& e& [% S, ]  N                         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 ( j. |$ J$ Z3 k) e* E9 b* v8 t. T
                         [stop]
8 K7 T2 n, F7 q7 ~                      ]
! o# \# }) [* O& d6 y  P% W上面的问题勉强解决了,但为什么老是运行到第6次就死机了,郁闷。
4 i  R; s: n; S+ b+ ~4 ]* Q" v+ }; ?! _! E% I
[ 本帖最后由 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  s3 b3 B, _; y) w- k
     set t t + 10 H: e7 l5 q7 B! v' ]% v: q) x0 @
     grow3 i) T' x5 b/ Y" ?+ d: n" d- I& K
     update-list-of-m
* i3 t' X4 y3 X8 N8 |1 u     do-plots
. C, T% Q% f  W* A8 L  b     tick  ) w! ~6 i$ |4 I- @
    ifelse t > 8. C" k; s1 T: N9 A& g. {
                  [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 and5 H# b/ t6 p7 i+ x" }9 F
                      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
& _8 }+ R3 O& \: E7 H+ K( x9 ?5 T                      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
' F8 t$ M9 q9 R                      [stop]]
! c% i$ Z, ~  S; c4 z* @4 A                      [ ]  
- s+ \$ f0 l' d0 ~& T2 X; rend" p& T7 {$ p; P) r5 k! ~4 [
各位大虾帮忙看看,这样好像可以了。以前用while之所以不行,是不是因为如果报告为true,那么就会反复运行后面的命令导致死循环啊?7 u. u4 ]+ l( \9 i5 V# @
还有就是[ ]是不是意味着不执行任何操作,返回set t t + 1,然后grow,  update-list-of-m, do-plots, tick ..........这样一直按这种顺序循环直到停止。
' \5 N* W% m- {5 ^) v$ W$ q! b6 t8 F$ ^& O$ ?0 N: t
[ 本帖最后由 wjcpcahu 于 2008-4-19 16:19 编辑 ]
 楼主| 发表于 2008-4-29 10:18:36 | 显示全部楼层

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

本版积分规则

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

GMT+8, 2025-7-11 23:27 , Processed in 0.014662 second(s), 14 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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