设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 9924|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
+ T- F( K8 J1 h/ v6 f3 B: d. ]9 K- Hto setup
2 M; }; S1 K$ K* H2 v+ e  clear-all: D0 N* V+ J- G1 s
  setup-patches# a6 X' V6 ?8 z
  create-turtles 1002 ^/ x3 @5 D4 \! y+ Q& d+ @
  do-plots
' ]- Z4 u3 x7 @5 {' s+ z, t: r  ask turtles [ setxy random-xcor random-ycor ]4 p" X2 Z$ U5 N& ~% I6 C
end3 x  k+ n4 r/ M$ {" f7 z
to go
" k( G  t1 T$ A' F7 o5 v# O: H, |  move-turtles/ Z* j! z2 p; e$ U4 ?& c; x
  eat-grass& T2 Q' h* X# V$ Y$ ?1 t
  reproduce
& \! L2 |2 m+ x* d# i. v4 j" ?( e  check-death
5 |1 I2 ], p6 F  regrow-grass* K& b" I' C8 p& j5 B2 k0 G/ R
  do-plots
: M3 a' l" G3 p% s/ l2 Iend
; a6 X7 @  v' @. ^to move-turtles
/ K5 ~. c' [& K5 d- E6 J  ask turtles [
& x  N9 P$ w( W' X! n5 I    right random 360: h! ^8 E, b( B
    forward 1% p  F1 q2 F7 A
    set energy energy - 16 w1 N3 I: E7 N" X: [& D
    ]
* z2 F  @7 j  dend& {1 s4 U* M( ?6 s: W" |
to setup-patches' D  W4 i# q. p, K7 s' h8 Y9 T# J
  ask patches [ set pcolor green ]
+ b4 B6 |5 M  Z  fend- Q  A( _: J9 M1 W7 u
to setup-turtles
, }5 b0 U  e1 _9 w  create-turtles 100
& T4 |4 Q4 F( V; r  ask turtles [ setxy random-xcor random-ycor ]$ X$ x, x5 J: ^  @
end
  K9 g/ D# Y5 c6 I' ^0 c' L# ~to eat-grass
7 E4 u: S4 v/ S6 b. q5 f  ask turtles [
+ |. Q2 U, X. b- D    if pcolor = green [
' F. ]. K5 p) y5 U7 f+ j      set pcolor black
. z) m2 K: c# M. \, _. Q9 @" j      set energy (energy + 10)
( E+ [2 _1 D  x% v      ]
, P5 Z/ ^7 T5 Y- F$ m/ X, A+ \    ifelse show-energy?
. h3 b3 l& _5 B) V; l      [ set label energy ]
- r! Y" \( |$ U- H+ ^8 X# n/ s      [ set label "" ]( S8 W4 d" H( f& ?! i1 R
    ]: Q6 p% H; v3 i; C# @6 t
end; H. z' ?3 n  i" O0 a) t1 {
to reproduce( G3 f7 w6 h& U- x" ^
  ask turtles [) w- A# g$ e1 k, @- y; q) r
    if energy > 50 [
' ]) U# X7 g9 m" K8 I/ q- f( n      set energy energy - 50
, N: r  o6 v' ]; F      hatch 1 [ set energy 50 ]
2 K( B* L8 |" N; x) H6 B" m      ]% I, g7 f. m" h
    ]
7 c/ ?6 ?5 q, B$ rend
1 Y7 e7 [7 L# y+ S& d" yto check-death
- z, w2 t& @) n- Z  K  ask turtles [
4 V0 P1 p6 B7 U& x# t/ j: v    if energy <= 0 [ die ]
" R3 N9 G/ t: l$ C1 s' q    ]
2 O; _0 L9 N# i/ `: l( Iend
' A2 d4 f4 ~, U, N+ Eto regrow-grass& ?+ ]; D: G9 N; g4 Q1 p
  ask patches [3 R! F- I) m( \$ _$ u1 c
    if random 100 < 3 [ set pcolor green ]: u. \  h4 X# ?& j  S
    ]
# K( t. U) u$ l$ D7 [end
0 m+ B& B/ H3 Gto do-plots- ]0 }4 T8 l8 {9 P3 Y* J3 q2 q9 S
  set-current-plot "Totals"8 ~2 D8 I8 _7 o  d
  set-current-plot-pen "turtles"
& L% r4 Z: Z, Y6 T+ k  plot count turtles
$ l) b+ o& R! h+ ~9 v4 X  set-current-plot-pen "grass"
1 m7 c" h* g, ~/ E  plot count patches with [pcolor = green]0 v' S# f: F( j; ^' N  e
end4 Z+ w  R9 q9 w9 ^
可是运行时提示no such plot: "Totals"
! h9 Q, ]. U: d: X; B) Ierror while observer running SET-CURRENT-PLOT
. I. ]1 u7 A3 t& t( n$ n  called by procedure DO-PLOTS
) U8 Y! O' p: H& ]; r/ `/ q7 U" q+ i/ x  called by procedure SETUP+ p# J/ L' [( g: [7 M5 E
  called by 按钮 'setup'
) O7 L0 a3 s3 G6 p8 ?3 [$ x求大神解答啊
发表于 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
0 }! _2 V  f: {建一个叫做叫做Totals的绘图框就行了
1 S  y: ?  P, f6 C5 Y5 N
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-1-31 01:35 , Processed in 0.016444 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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