设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10209|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
6 ?: P! R7 T" N) C" wto setup  z. g1 t( |8 s8 ~8 Q, C% o
  clear-all
* K% n% X  ^6 U2 s' C; S# Y" f5 q  setup-patches
( ^/ h/ J. b2 T' C" r7 f  create-turtles 1001 M5 _  {* A- M
  do-plots
+ u) m! x+ m/ Q) {9 M  ask turtles [ setxy random-xcor random-ycor ], Y4 ?$ @" g" f8 D$ i
end
0 r& Y6 M1 ]2 S4 |; c* M" p5 P. m8 oto go
# u4 g% G8 d, \4 U  move-turtles: q5 I0 i  s) m
  eat-grass$ J, L' T: D1 W' K. s
  reproduce
# V; m- ?: f( ^* T* q. M; Q  check-death
( }; k3 m- r4 L9 h  regrow-grass' e/ o# Q# h2 G/ ~9 ]1 H
  do-plots
3 B& V6 }9 X2 |' iend
& x. S' y4 e# Oto move-turtles
' j" _' e& {' T0 r' {  ask turtles [
1 V, h* @% R, I$ ~7 z    right random 360
: n4 I! c4 S$ Z7 ~; v    forward 1
) n" x, J, \1 N0 x/ V    set energy energy - 1  g% R3 p4 l: k, E0 D" @
    ]
6 P5 g; `0 M' @3 Nend
" k. ~$ p; m# Kto setup-patches& U' v1 `  w% n2 _! ?
  ask patches [ set pcolor green ]$ F" i# m9 }) Q+ J
end
$ @6 g+ y/ M6 }& \to setup-turtles
0 T- t7 J, {# d& |# N, P4 r0 R  create-turtles 100
: J- Z, E3 K( x  s  ask turtles [ setxy random-xcor random-ycor ]
/ m2 L; }, F0 a; B# Fend' A; E$ y* A# v* \9 U, C
to eat-grass) O" U' d  {7 _% W0 w
  ask turtles [
/ g" {9 u/ p) p) J- h: ]- v    if pcolor = green [( H6 |( U5 o9 b6 u
      set pcolor black9 S& u$ H' G2 r7 T
      set energy (energy + 10)
( ]- ?% L( J- z  l* T8 a      ]
: _1 w) Y/ t* b* H    ifelse show-energy?
& x2 i8 ?8 Z  F; V, p6 b      [ set label energy ]
! R/ z( Y5 |! f7 A      [ set label "" ]
) i  D& E3 S. G% @    ]7 [$ X" @. B, c' d" o
end8 @0 Y' @" g# O+ v8 S/ ^
to reproduce
0 f: V1 F- ~. G5 s' ~5 ]  ask turtles [: ~& c' x" [4 J! A3 L
    if energy > 50 [0 M0 g( R+ H; r/ k/ s+ _6 ^8 f
      set energy energy - 50
/ Y9 x# q& b) E6 \5 \      hatch 1 [ set energy 50 ]
  B- s% k0 U! ]7 e: k; ^4 `, U2 _& b/ N      ]4 s" O9 S: n6 t2 K/ I5 z5 a6 v( f4 H
    ]
" f. L1 L" e0 K! W0 q" rend
& G; l) R, Y- w1 v1 T0 @to check-death
) ^8 I5 X8 O) F! _9 Y$ A* Z  T2 A  ask turtles [
5 P- w5 x) k, a- N! t! |/ f    if energy <= 0 [ die ]
! p2 k/ l* f6 d    ]
1 e" `* ]- m, ]+ fend
9 e- i$ [8 H; }( x# b! `to regrow-grass
5 v( l7 P2 z0 q* t% l  ask patches [; Q: M: ], O; J; e) S( T) d
    if random 100 < 3 [ set pcolor green ]
* k) ]( f) s- E* r3 ~- e( q    ]5 ~" z/ k4 f; |
end8 s* X' X4 l8 d; O( u5 N8 \
to do-plots9 ^, ^# n6 Q) t
  set-current-plot "Totals"
! d1 d7 i" M0 K! k- o  set-current-plot-pen "turtles"" [" {( c6 `8 l3 Z6 N
  plot count turtles; [# |! Z- p/ D7 r
  set-current-plot-pen "grass"9 {% f+ H- u6 @9 g. `; x0 b+ i
  plot count patches with [pcolor = green]3 p( C  v" [; G% T# j- ]
end1 J  Y+ r, V1 E9 ]+ B7 m+ o+ C4 b" {
可是运行时提示no such plot: "Totals"
4 C$ X5 t; I, |5 l" werror while observer running SET-CURRENT-PLOT% R1 ]4 h. `9 e9 A# v: F
  called by procedure DO-PLOTS
. U& j6 X9 j! h, C/ @  called by procedure SETUP1 v7 Z! q) Z$ {0 x
  called by 按钮 'setup'# N3 _+ Y. c7 l! S. Q- f' |1 \
求大神解答啊
发表于 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 , V9 j) `& E) v. W) M2 I5 X7 C7 U* S1 e
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-2-24 01:53 , Processed in 0.024406 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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