设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11848|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
# e' A% j( L6 a6 @- [, `) Q9 kto setup" g+ |# R( T. S, y4 E4 M" S
  clear-all& x/ m& F( J; l' x# k
  setup-patches
# w/ M6 U( j: I0 t: j1 ?  create-turtles 100
5 \0 L% E+ x! C' O- K0 o- O% o  do-plots
( c' Z, v/ `. l/ I+ l  ask turtles [ setxy random-xcor random-ycor ]8 B9 X, A" [1 W% C) j
end
( ]+ T* U& y  A2 F5 a- K) kto go
" s1 A0 H) y3 U4 j9 S  move-turtles& r' q- Y- e( [; P. s! ]
  eat-grass; ?1 i: U" b7 c1 Q/ q2 I; a
  reproduce
, s3 U- J, H) c6 ~3 I% _  check-death
  p$ h# q) E0 m# F  regrow-grass& f: Y: F' h0 u/ R$ p
  do-plots
' `& [" l% v& rend
* j, _8 g! r1 h" e# \8 ^( Y5 c3 g- _to move-turtles
9 A( F9 V9 |0 M7 g* Y) L% I) t  ask turtles [
8 X5 f+ u% m2 h    right random 360+ k, Y9 U9 y; ]
    forward 1, m0 c4 K, A1 o2 [8 V$ g; V
    set energy energy - 1
; c6 b4 p6 y8 @$ r& J    ]
+ G5 m; Y8 p  g5 g0 g/ Yend
# V% Y1 \. ^* Gto setup-patches
. l! T- g, W% o; O5 i5 I  ask patches [ set pcolor green ]
# j" A: |  |+ U* d9 ]2 o$ S1 gend
: r' V& X9 O( Vto setup-turtles
& X, h! D1 h5 A4 I& O  create-turtles 100; w$ L! ?8 g% H! t) n2 }
  ask turtles [ setxy random-xcor random-ycor ]$ Z% U' d3 r# U: U+ S4 W
end0 t* [$ y, _, M* C. d
to eat-grass, G- m$ L( q" G% F9 A, _1 Z3 i
  ask turtles [
; m& R/ h  v# @1 k    if pcolor = green [& t/ A/ u, d' u
      set pcolor black& C. e9 ?/ C, ]+ t7 s6 ?) t
      set energy (energy + 10)
6 {3 f; W4 X/ m8 l" S4 z6 A/ F      ]) _$ U$ N* z4 \" f4 x( }; N' d
    ifelse show-energy?
8 m, L  F' _# V: t. n      [ set label energy ]
: p3 P- d! Y0 [3 _4 r& R      [ set label "" ]& E0 P' c/ w+ C# c! q" Y
    ]
& ~; `5 g; s" D" Qend  D2 A( U, \9 J- g! p
to reproduce
9 ]5 }4 o! q- A) v4 Y1 W  ask turtles [
8 d0 C& y* Y5 B: g- b    if energy > 50 [& t( |0 X! s5 j3 o/ D# t
      set energy energy - 50
$ W4 N) j# S. J- y" S      hatch 1 [ set energy 50 ]
8 I' K1 P. v: v0 c, X9 x$ ]' G      ]
# Z) g6 o2 d& B) O    ]
+ M( l8 j* D9 d, O1 jend
; u0 H0 J6 t8 p' L! E& b. xto check-death
+ q& G( l+ G! D( H$ j; d  ask turtles [
: v4 ~6 [8 h0 x2 {- @" @    if energy <= 0 [ die ]5 @5 L8 Z: x1 P3 E
    ]
, T8 _6 o' ~# f8 C% Yend
5 F) |3 f; K- |$ dto regrow-grass
( a0 W1 C5 x1 ~. k7 i  ask patches [7 b% u* U( z9 |+ O3 t9 m/ v
    if random 100 < 3 [ set pcolor green ]
& h5 |/ M1 q; a1 |    ]6 T# ?" R* n& N5 _
end
" ~  t6 P6 u1 v6 r5 Pto do-plots& N0 F0 o/ D' g( a: I( i
  set-current-plot "Totals"7 k6 v8 a0 [# F4 ]. D
  set-current-plot-pen "turtles"
( h# y. ?! X. s% x: o  plot count turtles2 a: R1 Q2 r( P& P6 n
  set-current-plot-pen "grass"% ~! D+ R$ }) U, R' O5 @
  plot count patches with [pcolor = green]: S! H: _2 J4 G- r0 v
end1 `+ C  p! j7 V/ z+ ]/ Y$ ~8 k+ U
可是运行时提示no such plot: "Totals"
' k8 j  B& k3 ]: @; y5 p. Xerror while observer running SET-CURRENT-PLOT
' T/ k$ }; _% [  called by procedure DO-PLOTS; a# m# F+ K) }1 D" V
  called by procedure SETUP
" \+ `7 g& j8 q, W# o+ F  called by 按钮 'setup'4 o8 `3 x4 l; {" K- w
求大神解答啊
发表于 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
4 ?5 V, ^5 f0 N  u& r建一个叫做叫做Totals的绘图框就行了
! j6 h) ~9 S+ o% g; F
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-7-5 17:55 , Processed in 0.017309 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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