设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10874|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
6 r. \# Z8 K, a0 xto setup
6 d2 F9 b. ]+ O' V- n7 B  clear-all7 Y0 i4 u6 _7 v/ ~# J
  setup-patches! x* H& I; D+ o( C
  create-turtles 1006 ^: x/ m: p' y& _  A' c. q; h
  do-plots
# T6 i( ]: e  v# y  ask turtles [ setxy random-xcor random-ycor ]( B/ w. n6 E* V+ J, W
end
/ Z7 h, t8 q& Q8 z5 j- J5 i7 Pto go- X5 h5 A% h5 l" c" R
  move-turtles
" N* v3 G0 K. c  eat-grass! R2 ~4 ]( h# B0 Y" N
  reproduce
9 v* w' x" v; e" k  check-death2 T. U8 b% a7 f+ s
  regrow-grass
" t7 p+ w! c" g6 T3 w" ?  do-plots9 R; B0 o. s9 [9 R* q& k0 F1 Z
end& `3 j- Z8 Q/ h% W$ X
to move-turtles
( ?6 \  H1 y2 r/ V! w: \  ask turtles [
8 B6 h8 j- F- }* L3 ^/ X+ D    right random 360: c3 R# Q3 K; o+ S! M, i2 Q
    forward 1: ~  E, P4 T3 \) F7 q2 o
    set energy energy - 1
4 J$ C' ^3 N+ [! u    ]
* z9 [8 Y4 \9 T. T( @end
! A* C8 E; o" X" G4 eto setup-patches
4 ?( G$ ]/ i, M% l) `% @! z1 u  ask patches [ set pcolor green ]4 m; a0 l! H' D' ]  t
end
: O  t& K1 @0 J! N6 D$ kto setup-turtles* N" }! m/ N9 t. _/ @0 j/ L
  create-turtles 100
% C/ v9 Q9 A! f) b  g. M& Y- K$ _  ask turtles [ setxy random-xcor random-ycor ]
1 ^" P- |5 j+ r$ d. Eend. V/ A7 A, k' y. d3 y
to eat-grass
: u* [2 W9 E" c! i  ask turtles [+ @1 u! j* `4 o) l+ X
    if pcolor = green [
) g9 A) \- U% u* D      set pcolor black; T& K; \9 Q9 n) P' z6 t
      set energy (energy + 10)- I4 V# G( w% j4 A* a0 d$ @
      ]
& ]& u) h  V) r% ?, A! x$ H    ifelse show-energy?- h4 j; L) r7 X3 y  W
      [ set label energy ]
/ a+ J* Z) s  C3 M2 L% E      [ set label "" ]( X! Q/ c$ u! O, V2 o
    ]
# H% i& C# `) H3 P* uend3 y' M/ L* G' v1 t2 v
to reproduce
$ c( R, j4 R. ]0 o4 c6 c  ask turtles [; ]# N/ `* ~. k; j
    if energy > 50 [
) z4 w; g& l1 D7 c  W  o: o      set energy energy - 50
" `/ U. i/ ^6 A7 \) P/ |7 {      hatch 1 [ set energy 50 ]& p4 {  U$ @; ]& T. K4 x
      ]
* t- k- B0 X( V, M! H8 k8 E( }& \# |    ]7 K* O+ U+ M/ A
end
" {; D2 J. j3 t, P3 e: @to check-death
! j1 j: V/ m! G$ X  ask turtles [
; v. W+ Y' Y. s% B. y8 i8 q    if energy <= 0 [ die ]
0 u+ ~' ^% @3 T/ B& `    ]* f8 r4 L6 g) f
end
- Q' O: t* @# n9 sto regrow-grass9 y# E: q% U. u2 Y( z$ l
  ask patches [
) C$ F8 v8 e1 g& }5 @    if random 100 < 3 [ set pcolor green ]
( H/ z" }" `2 {3 E) T5 p    ]
9 O( g/ P+ M, D+ B, ^end
; k4 t# r" }1 x% [+ T1 v  Lto do-plots2 O% Z& ]* @+ V* d$ _
  set-current-plot "Totals"8 e' C% [5 R- l& n
  set-current-plot-pen "turtles"
* T: A+ G2 P$ L# F9 k  b  plot count turtles
5 M2 c0 W4 e( C5 ?3 E  o  set-current-plot-pen "grass"
6 Y5 _) g7 U% ]2 q5 \  plot count patches with [pcolor = green]- p! Q! d& |5 O& z* G; X% k; C
end
/ w# {/ \! D( q) k3 b+ \2 Q$ p可是运行时提示no such plot: "Totals"
* ^; `" k9 T. {! }) O% ^error while observer running SET-CURRENT-PLOT/ m2 q  S4 t% i3 P  Y3 R0 m' E
  called by procedure DO-PLOTS7 B2 [5 f9 [  m3 j: C
  called by procedure SETUP
8 z6 p/ _! V6 Q  called by 按钮 'setup'
$ W3 V1 s2 V- c% M5 J& {求大神解答啊
发表于 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
& A" r0 A6 z/ `: s* d建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-4-17 12:58 , Processed in 0.020792 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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