设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 5717|回复: 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.高手赐教啊!+ G+ `  `" y8 ^3 V# a. \% v& J
set t  t + 1% T$ I5 x, A( C0 D" d
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
0 V7 Z7 a- p% n                          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 and0 E" [$ _7 y8 `* V: p/ 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]
2 W; I0 l6 m6 G; o3 \; Y7 a]
 楼主| 发表于 2008-4-18 15:06:02 | 显示全部楼层
set t t+1, p+ B% x$ M2 b% d
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
" s+ B5 R, T/ P* ]                         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 and6 }2 f. h( I/ F& C- u; @  t: o1 T1 G
                         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
& `; W2 K: V* b                         [stop]: i* m5 O( c$ P( p, i" ~
                      ]% L3 t! T: y3 T% A
上面的问题勉强解决了,但为什么老是运行到第6次就死机了,郁闷。2 P6 W* c( J* V& H

" R3 K8 }; q- C; Z! J[ 本帖最后由 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
" K1 I! j6 }9 I" ?5 {( a7 W     set t t + 11 b/ g: j* V7 j  }
     grow; {% l" y3 K* o. u" x0 t. x/ S
     update-list-of-m
; k' p6 Z" v. o6 ?1 e- |+ T     do-plots
7 t, D9 P- |0 ?' w/ e3 \" [0 O- D4 S. R     tick  ) I. V" A% I0 c7 i
    ifelse t > 8$ ?* \8 J8 P$ z1 W4 K& ]# [
                  [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
4 l) Q! ]- ?/ X8 C3 Z# u                      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 and9 w! J* f( ~8 G4 o3 v4 X
                      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 1 V1 o7 L( x# F1 Q+ ^4 ~& n. `- N: U8 y
                      [stop]]
3 d' l' t. O4 }3 V9 c8 Y                      [ ]  
* B$ v) W/ \# ^end+ U* A! M( }1 {% r. P4 g# `  h! f
各位大虾帮忙看看,这样好像可以了。以前用while之所以不行,是不是因为如果报告为true,那么就会反复运行后面的命令导致死循环啊?
0 O, c! G, D- k; j' k5 l5 T还有就是[ ]是不是意味着不执行任何操作,返回set t t + 1,然后grow,  update-list-of-m, do-plots, tick ..........这样一直按这种顺序循环直到停止。
  @7 C, {: @, E8 m; V/ v# n" P3 ?/ `2 m; @5 r) |
[ 本帖最后由 wjcpcahu 于 2008-4-19 16:19 编辑 ]
 楼主| 发表于 2008-4-29 10:18:36 | 显示全部楼层

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

本版积分规则

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

GMT+8, 2025-7-2 20:44 , Processed in 0.015138 second(s), 15 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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