设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 5803|回复: 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.高手赐教啊!: c2 v0 ~; ?" N5 O2 i* B5 v$ t
set t  t + 1
3 M* U8 H  e; iwhile [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
( B7 y: x6 o, O# J8 S5 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 and& S& H4 C% _/ l- T
                          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], U$ V! V2 A4 d+ m' Y$ B
]
 楼主| 发表于 2008-4-18 15:06:02 | 显示全部楼层
set t t+1" d6 h# q% W0 @7 h2 \% ^0 b( ]8 _
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 and3 n* l/ V* r  _2 @: V; 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+ j* _$ ?: d& k. @' K8 d
                         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 0 E* v! d% ^/ \6 y* y$ e5 L
                         [stop]$ l* u9 j3 Q. s% ]4 D
                      ]7 o2 W  T4 E% Q/ O+ j" d& V" G
上面的问题勉强解决了,但为什么老是运行到第6次就死机了,郁闷。
- F! V) Z7 m$ D  M# q8 C: n! u
$ N+ e9 v9 I  w, r9 p- A[ 本帖最后由 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
3 I' s  _% J1 f" C# I9 L: V$ c     set t t + 1  o" H: k- B* G/ V
     grow
6 R* w4 z0 N. T# q* K1 V* q% A5 M     update-list-of-m
1 J1 W) p7 u2 H5 [7 D  U     do-plots& p! U1 @. M9 S' |0 g( j
     tick  
, y  f6 |4 H9 {5 S9 g    ifelse t > 86 {1 X4 C/ v* U" _- G0 V! X
                  [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 and8 t% `- p% P* q" K8 {
                      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, n; F# D9 W' X7 e% g3 u
                      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
5 `. w3 h( m" n$ Z( N1 x                      [stop]]# M4 R7 ^. e6 w2 u- f
                      [ ]  
! |3 @! T) {* v' |; aend5 o/ X6 T" n8 ^) N
各位大虾帮忙看看,这样好像可以了。以前用while之所以不行,是不是因为如果报告为true,那么就会反复运行后面的命令导致死循环啊?2 R* k" e; w- ^8 ~
还有就是[ ]是不是意味着不执行任何操作,返回set t t + 1,然后grow,  update-list-of-m, do-plots, tick ..........这样一直按这种顺序循环直到停止。- T( g& s1 B; |2 S
0 Z" X: z: v  C+ f/ d
[ 本帖最后由 wjcpcahu 于 2008-4-19 16:19 编辑 ]
 楼主| 发表于 2008-4-29 10:18:36 | 显示全部楼层

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

本版积分规则

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

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

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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