设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 9850|回复: 4

[求助] 自学中文手册时遇到了问题,求高手解答

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
: {( {& }% d. G; z0 q4 \( Kto setup! H9 {/ ?$ N/ k2 x1 A
  clear-all; o7 }! q) p% F' k  }$ x" q0 n$ M
  setup-patches3 x# u% E2 u4 _9 {1 |, D0 ]2 B
  create-turtles 100
4 `0 ?- q- W+ i) O4 `  do-plots
# ]6 [. O2 J# Z  ask turtles [ setxy random-xcor random-ycor ]
3 C6 n% j. P8 x! C4 T+ L" C+ P+ Rend5 P& C; e8 ]2 }( x8 x5 v. V
to go
6 h5 l6 a! d) d* T- o  move-turtles1 n1 A6 K3 G* K7 N
  eat-grass( k: u+ u8 d* p& h4 E9 d: z
  reproduce9 V3 G/ g0 W3 c1 W$ F2 l) h& Z( i+ f0 C
  check-death
8 W- V8 i( j5 N4 I( A  regrow-grass3 F1 J0 E" [! C* c
  do-plots
8 T0 q! P# z4 Y  e% Q9 yend
/ ]" L$ y" v" {2 h2 i7 f7 ]( ^/ oto move-turtles5 Q, I; r5 R8 e
  ask turtles [
/ q& {+ j% |7 |7 M5 P" P6 g& d& W1 V# n    right random 3603 ^' q2 _8 b$ R* i8 t  C
    forward 1
9 D; a/ D3 y3 n6 }' T    set energy energy - 1  E3 M7 f% O9 j; e, u
    ]) j' x+ q! X! N; }! G, P- F. x
end
; [/ s9 Q' F: F+ B2 s) e6 Lto setup-patches" a# w+ d% c3 r$ `4 W& }# Q; S1 a8 ^
  ask patches [ set pcolor green ]8 Q0 N7 z. n. u. o" [2 |
end0 v" y& `4 X( n" n7 B( `
to setup-turtles/ {1 ^8 j9 D9 t- Z* X' U  ]$ e
  create-turtles 100
& K( [3 S/ D0 m9 ]$ _  ask turtles [ setxy random-xcor random-ycor ]
( Z) n) J% g: Z' Pend9 i) a0 C. J  b* Z, Y# V! a0 K& [) }
to eat-grass' _2 w. @! _( X" O( |" {
  ask turtles [1 h5 m6 r& [3 r* s" `# q
    if pcolor = green [
5 `6 T4 d# B5 ]' z* x# m# ]      set pcolor black' V# [+ t6 V+ Q$ d6 K4 q  T
      set energy (energy + 10)* f6 P( o3 B! k6 z. H
      ]: u1 c: A- _; H2 L, f' v
    ifelse show-energy?$ q7 W8 \: N. `. R
      [ set label energy ]
" }& J+ v  l2 H9 I      [ set label "" ]
4 m0 s) F7 ?' r$ \( H+ P    ]
3 N: b- a- K: \# nend( F% O$ I# B: k5 U6 i
to reproduce+ V! j. i# @# S4 t7 G% Q
  ask turtles [
" d1 b( _5 Y* c% |% _    if energy > 50 [7 K/ P* G6 x1 b* _  K) b
      set energy energy - 50: |" F( f4 Q3 k2 }' |# X
      hatch 1 [ set energy 50 ]3 g  v: L' ^" R
      ]. j0 n2 {2 X1 A% S* C
    ]
7 ]: J+ k/ F8 q% w$ {end( y$ b1 d1 u  R2 ~
to check-death& R8 p! r% u0 g2 t0 ^' V
  ask turtles [
7 i2 o' t! l3 d% s/ T! P    if energy <= 0 [ die ]9 y4 g4 ]0 o' ]3 @3 B5 k
    ]
4 w  B1 S& Z( C! q0 T' _" |" hend
! H6 f. t( d' {2 i8 _to regrow-grass. e: n* I0 [& a. B
  ask patches [; S; Y. E5 ?/ }2 u1 \5 a
    if random 100 < 3 [ set pcolor green ]7 m" r% B! d7 E) W3 D  y
    ]
; e' i+ I6 `: ^! m3 aend
+ t# m) G) ~0 _* D) Sto do-plots  d" ?# {5 b2 k0 h( s, w6 ~
  set-current-plot "Totals"
: h3 n3 `: i/ w% o: [. h  set-current-plot-pen "turtles"
+ v" H  a$ f+ L4 v* G5 L/ P  plot count turtles4 D7 M" r: v% R8 `2 I: A
  set-current-plot-pen "grass"
3 h; v$ u/ V% d4 R( r( K  plot count patches with [pcolor = green]
% w: S, F2 s( b, r& ^end
8 G! G% f7 S5 v; J( e可是运行时提示no such plot: "Totals"
0 D! W/ k* N9 t4 x/ P5 Merror while observer running SET-CURRENT-PLOT
: r5 i$ t) f- e/ h; ?5 ]' Y! j  called by procedure DO-PLOTS3 G; i8 w6 R) S7 y
  called by procedure SETUP8 a; l1 E8 N2 P+ T; \
  called by 按钮 'setup'# ?, I) m. g3 p  d
求大神解答啊
发表于 2013-5-29 00:25:38 | 显示全部楼层
no such plot: "Totals",就是说你的界面里没有叫做Totals的绘图框
发表于 2013-5-29 00:26:26 | 显示全部楼层
建一个叫做叫做Totals的绘图框就行了
 楼主| 发表于 2013-6-4 12:24:45 | 显示全部楼层
emlyn 发表于 2013-5-29 00:26
$ h5 ]2 d5 p6 W8 {! Y建一个叫做叫做Totals的绘图框就行了

* U; ~" Z! |8 B3 A哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-1-26 11:27 , Processed in 0.021622 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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