设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12103|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
/ ^, w3 Z$ K2 mto setup+ K( w2 d( I  x( G8 W
  clear-all' H4 t! w, Q4 I  `2 ~. E
  setup-patches
% e1 C9 H3 X2 X& e5 G9 a  create-turtles 100
& T1 s. r6 Z5 D" C5 R- J  do-plots
+ N8 k' {2 L* W/ w5 h  ask turtles [ setxy random-xcor random-ycor ]
# J1 y" z7 B. c) `) iend
& u: B" _* e( e* ?5 O) e) yto go3 a7 B7 [$ F4 [5 ^
  move-turtles
+ w: q4 b) A( a+ ]% F% t  eat-grass
3 v2 N  _- T7 o2 `' {6 J0 p  reproduce
4 W. i7 ], T- p  g8 y  check-death
, T; q! @1 A7 k  regrow-grass5 p! x1 g8 T/ C
  do-plots4 z+ A* P8 s' B1 \' a" Q* X2 o
end
8 _  k- A) x- M" h" S3 w* a4 {to move-turtles9 V) @' h* u* ?: P9 r( s1 U& @
  ask turtles [6 X; C% Q" g! L; b* |7 p. I
    right random 360
, A/ i* X" A; V    forward 1
3 l! n4 j9 L& ^7 Y( F9 P4 _    set energy energy - 11 W1 B  G1 f& u& h! M1 [: m' e4 b3 ^, o
    ]
7 W  c. F; r; Q* r. C9 G3 W/ Fend5 \  k! X8 b  o$ x3 M1 r! D
to setup-patches
- m) ^" J6 Y- F" \3 a* M  ask patches [ set pcolor green ]9 d" S; I% y8 I  W
end
1 A4 B' ]- w$ `, a; m) Wto setup-turtles
2 n( V9 {* k  s0 v9 w& G* T4 D  create-turtles 100
& c  r3 ~  I" m7 ?$ Q  ask turtles [ setxy random-xcor random-ycor ]: o' X- {7 s% J8 C
end
. K+ e2 w+ p! |to eat-grass
% @& B/ o* c/ S! ^& w  ask turtles [: L7 C1 W, n; F) j, p3 |1 X
    if pcolor = green [
  e0 q" b  t0 \# ^      set pcolor black
( s5 m7 n2 b* ^$ v. r+ _3 q      set energy (energy + 10)7 }7 I" t% m, D1 T! J( [
      ]$ {/ y- t7 I) G9 l6 T& W
    ifelse show-energy?4 o; ~( Y4 R- j( o1 N
      [ set label energy ]1 j' O, y$ k/ u( P/ y4 s! C" X
      [ set label "" ]' q! ^( R' |6 A& M, |
    ]
5 W$ S- j. _& ?4 Y& R# D0 j, I4 h" _end+ h  V# L3 V% r9 A/ F
to reproduce3 e8 x3 o/ ~0 h* Z" N, K  u
  ask turtles [
0 s5 J  M. n$ \0 s7 O0 h    if energy > 50 [
8 R- y; q3 l1 T      set energy energy - 503 k" }; H( k& U7 `
      hatch 1 [ set energy 50 ]8 n- B: ?4 P- ]
      ]. M6 I) E2 X" A
    ]3 ^- f' Y+ G( S( Q& Z6 Z% O
end& I( r: |7 _+ Y2 h8 Y+ y9 r
to check-death- G* y' g/ W5 }, |$ c
  ask turtles [4 q1 }* k6 k% a/ t
    if energy <= 0 [ die ]& y+ E/ O* \; A* k5 Y7 Q
    ]
/ ?% W# J# B0 Z# uend
( u8 q. a7 z6 u/ H; b6 Zto regrow-grass
3 |( {) P& J* ~1 D9 e6 J* @4 G. ~7 r  ask patches [
3 L6 \: a# c# J( r! E. z    if random 100 < 3 [ set pcolor green ]
+ Y& @* \6 [/ J$ e- a    ]
) a: C, \/ }( zend$ W* T6 ~: r2 y/ ~3 L' V
to do-plots
8 Z  G8 h+ q. Q& Q$ }. M  set-current-plot "Totals"
* ~9 x$ P% C  Q' ?$ r  set-current-plot-pen "turtles"2 v  V$ _( q9 q8 n9 H1 @7 R9 \
  plot count turtles
1 H9 i/ A# \/ q; C  set-current-plot-pen "grass"2 p% @$ r9 v* c/ K% T# e0 [
  plot count patches with [pcolor = green]
/ ?+ A. @: J6 g! N" nend9 u! j4 g( s0 Q# E1 x' J
可是运行时提示no such plot: "Totals"
/ c# R) v& p7 `' p' cerror while observer running SET-CURRENT-PLOT
1 t* s8 G/ G/ g! h1 t/ Y( D  called by procedure DO-PLOTS
: w0 Y, O9 |1 }. |( O! m; W  called by procedure SETUP
; H8 ?" k/ l- o0 P  ?  called by 按钮 'setup'
( D! s8 V& x  o1 w6 W: p% H求大神解答啊
发表于 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
5 d2 E4 c5 V# \$ ]+ {建一个叫做叫做Totals的绘图框就行了
" p$ d- d) s0 O2 |
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-7-26 21:09 , Processed in 0.014272 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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