设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 6103|回复: 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.高手赐教啊!
3 |% [* [9 N5 ]) v8 n- dset t  t + 1; d* G; H& S. h8 Y6 G5 x- Q
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, R4 \/ D- R/ W) D; B% L8 ?
                          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
5 m" r* u- A) O8 j                          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]
0 {# |. A4 M/ a]
 楼主| 发表于 2008-4-18 15:06:02 | 显示全部楼层
set t t+15 ?( l4 @( _! b  M) ?( j
while [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; N7 O  S7 ~! i$ H7 J, b8 y
                         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 and2 @* B! C* ~9 i- F! H, 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
6 v7 U3 P1 y; v0 V6 @! j% t( \9 [: K                         [stop]
# z  p# ?) K9 a7 x" h                      ]- L8 |1 I4 K% u' r) I; X
上面的问题勉强解决了,但为什么老是运行到第6次就死机了,郁闷。
9 I% Y/ R5 p# S! {7 m3 M: O4 t  E
[ 本帖最后由 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- C/ Y9 X1 j; E" f7 |" ?9 e
     set t t + 1
; Z3 p: F7 y: |' |     grow
- ]- d, _0 R( Q! Z* E9 n     update-list-of-m
7 O5 g& l$ G$ O& K: Q     do-plots8 K- P5 f& i4 X' a) O# L- F
     tick  
& b3 M+ ]. G* d" y1 n. j    ifelse t > 8
& O4 ~/ i! Q7 o; r- C' Z: 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
. z6 b" B' G  ^2 L" Z( f( J9 w) e                      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
$ A; E" ?, \, }  U, c! w                      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& Y6 k* j' X' C0 C! H
                      [stop]]
) i3 a8 U' |9 m) O# n( J0 [' i                      [ ]  $ O/ }7 r- G* R+ v! H( t
end  h- l) x- x) q7 w& O3 j3 T
各位大虾帮忙看看,这样好像可以了。以前用while之所以不行,是不是因为如果报告为true,那么就会反复运行后面的命令导致死循环啊?
7 v9 [9 Y* A6 ~* V$ H还有就是[ ]是不是意味着不执行任何操作,返回set t t + 1,然后grow,  update-list-of-m, do-plots, tick ..........这样一直按这种顺序循环直到停止。- x5 U9 D5 N6 F+ J! x! |
6 Q- M2 V' D6 h( \% D1 w( a
[ 本帖最后由 wjcpcahu 于 2008-4-19 16:19 编辑 ]
 楼主| 发表于 2008-4-29 10:18:36 | 显示全部楼层

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

本版积分规则

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

GMT+8, 2025-9-16 09:57 , Processed in 0.015869 second(s), 15 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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