设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12484|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
3 ^9 f) h& \; N# \* Q  I7 [to setup, i  W" l5 C: R! A6 \/ Z: F
  clear-all6 q( h0 W" a3 m) z2 {! K0 O
  setup-patches
6 e# r4 U8 [% j* x8 }) S6 u0 I$ Y  create-turtles 100$ M6 \% `  c  u
  do-plots* v7 R6 B- y- W
  ask turtles [ setxy random-xcor random-ycor ]
2 F: l. P4 L  f+ ?8 kend- S* K" F/ l) E' X+ V3 J! ~
to go* L: s5 J9 S3 \8 D
  move-turtles: P8 O$ D: `, ~0 p
  eat-grass
# Z3 {8 h; X! _: o5 w  reproduce, O& @* F+ @9 a( R
  check-death
3 N) b7 S: l( g: K; i, b6 D- ~: e- M  regrow-grass+ V4 u$ x+ o) s1 @" g  v
  do-plots* [$ F0 r$ W0 q6 N6 ?2 S9 h
end
' G1 }0 k: R, U4 C2 V+ ito move-turtles
8 X& D+ J0 k. O: R! r( `. g  ask turtles [
; K7 i# B+ {- {! O, h" j    right random 3606 n4 f* o" j0 d" U" M! `
    forward 1% X" S* \& ^. _* N
    set energy energy - 1- L$ e4 G% A# ~3 s  B- u
    ]
% S7 ]- ]# h0 n8 n/ f; Yend
3 I1 T" x: [( s+ S# ato setup-patches
8 k3 {- o  B" o  L+ N8 r3 n* J; A+ w  ask patches [ set pcolor green ]% E5 F; }! c% ]. }: J: }
end3 D: w: ]2 X& o  x
to setup-turtles+ r- V. x& D! c3 [5 O' i0 t
  create-turtles 1000 s/ ?, b& u+ ]; L) p: Q
  ask turtles [ setxy random-xcor random-ycor ]
( i9 s* t: z  [% h# Y, _end* k$ b  q% P  \% B3 Z
to eat-grass
' F  Y  y' d' w) Q  ask turtles [
5 n. s: ?( K- l8 s) i% x$ o5 j3 d    if pcolor = green [
; Q5 p# y% l+ h9 H! ]      set pcolor black4 w2 `$ R: M# g) W5 a+ _" W
      set energy (energy + 10)6 t* d- d! D' K$ Y3 F
      ]
( j$ [" @6 q6 u2 x    ifelse show-energy?
  k: a6 `( u2 @! r" ^# l8 n      [ set label energy ]- i8 k0 x/ C: a5 @
      [ set label "" ]: @# ]$ b  a2 S
    ]; g/ h# Q- `7 Z! w0 t/ O1 L
end: v0 C/ B0 q! B& G
to reproduce8 r' g# o+ q3 `% B* r7 p" X
  ask turtles [: \4 o" A; S" d6 r7 N
    if energy > 50 [5 L* _# A+ p4 q' ^/ H0 Q+ D. o
      set energy energy - 50
# {9 i5 X1 a  j2 Z' e. ?! }      hatch 1 [ set energy 50 ]% A7 U" b( F" Z/ }# c
      ]0 f) j& h" N( W9 C1 A" d
    ]; u5 a$ h3 n; b$ O1 _% q$ u
end
0 X7 @& p( u4 l  n! fto check-death1 O( m5 D7 W4 b4 F- n
  ask turtles [8 v& b+ X' x; r  M$ u6 C: M) y
    if energy <= 0 [ die ]
* A  g! h# P  @) u    ]. T' q$ Z7 C" y3 }5 a7 D# X
end! E3 n5 ^9 E& ~) y1 a$ x
to regrow-grass; h6 k7 X; H: {4 L# m7 ]
  ask patches [
3 b7 F% X8 m6 C/ X    if random 100 < 3 [ set pcolor green ]
+ I' q; q( {, W1 m    ]
6 z! ]8 n1 ~1 q2 g. u( S4 xend( d2 v: q* |% R3 b1 o
to do-plots
/ g" ^/ |% B2 A  set-current-plot "Totals"9 R, a7 z( e8 M0 S2 X
  set-current-plot-pen "turtles"+ ]* y6 w! P$ |
  plot count turtles
: _/ t7 Y! e0 k2 r9 ~7 B  set-current-plot-pen "grass"4 Q3 g' c8 d$ u/ t  ^% f
  plot count patches with [pcolor = green]
+ R% R: g: E6 e* b3 d6 R' W% u2 d$ T7 kend
2 B6 R; t- `% `0 x( N8 T可是运行时提示no such plot: "Totals"9 g) E; N' m* o, V: l/ z2 S
error while observer running SET-CURRENT-PLOT) y+ k4 g4 O; a0 k4 j. Q1 i) @. K: J( R
  called by procedure DO-PLOTS! e* u: p7 a+ P6 E8 d, l
  called by procedure SETUP) `! L1 D/ _( e1 X& e
  called by 按钮 'setup'2 H2 C8 x" Q' r# H1 ?
求大神解答啊
发表于 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
) h$ p6 d% Q$ w  S" b建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-8-25 21:17 , Processed in 0.022696 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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