设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11318|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]2 F8 a! ~, E% s4 z  [' A1 }! g8 J
to setup
5 u# n, d: B6 s3 Q- D  clear-all% `/ u5 o3 U# C! R  O
  setup-patches
8 B6 o6 r! t& g) Q& C. l9 ^  create-turtles 100
8 G; N2 Q9 {6 q  do-plots7 g- {  q$ J+ G( X
  ask turtles [ setxy random-xcor random-ycor ]
; Q" L- j' E  ]2 e9 s% K2 g4 G1 Pend
6 e( J' u$ M# d- x! d9 Mto go
: E; \! D9 Y( i  move-turtles
9 d/ M6 V6 ?7 d0 L- T  eat-grass
' g) d; n0 t& ?7 k7 J  reproduce
  }$ h8 m$ x) r3 G$ ?( T  check-death6 _- G, Q$ M9 U: }1 [2 J: c
  regrow-grass5 T# K3 ]+ [& c9 H' \' K
  do-plots& K# ~! X6 u; X2 d4 L3 o# Q
end9 a5 @/ P# z# m
to move-turtles
9 w) X7 G" t6 W+ I+ T' x  ask turtles [
' E" D# j6 R* x6 @; A    right random 360
% T. F  o. s* m' S( R    forward 1( }5 i( Z! T' ^* z
    set energy energy - 1
  f/ g( `/ e- s8 r    ]
" }2 O( w9 g; E( v5 ]5 [end
& K. R, g9 C2 C' z* c" i# Q. Sto setup-patches9 |* O8 |) H; a. D/ b
  ask patches [ set pcolor green ]
7 M( l, `5 ~7 P/ R; Aend
/ E1 N+ ?- u  X2 T" ?/ y/ [to setup-turtles$ T7 g/ J$ |( t+ ^4 |+ B: `
  create-turtles 1003 B& z, k. q( p# q6 N' j8 P% M- a
  ask turtles [ setxy random-xcor random-ycor ]& D! s5 Q; C/ x& G. N9 U
end
: D& p! p+ a# ?0 ^6 Y  o. g, Pto eat-grass
; H3 C! A+ `+ ]0 O' U  ask turtles [) U5 x" b+ Y/ g* Z. P5 [, g: X
    if pcolor = green [: k; I& Z$ k  p9 s5 e- X6 ]
      set pcolor black9 V7 p) A. Q9 O6 ~
      set energy (energy + 10)2 u1 G1 e! Y! Z  a0 G5 f& L2 j; N
      ]! t0 T: i* l0 q/ S% K: o
    ifelse show-energy?# ]6 E2 [+ r0 y5 C$ ~* ~
      [ set label energy ]& x: p& g) f1 F
      [ set label "" ]
0 O+ O. y' o+ h6 N6 ^9 }- c    ]$ @% D7 ~) e1 @
end  q! Q6 q. i% p; x* c' X
to reproduce
$ ^& R# y% A7 m: Y# \% i  ask turtles [
/ x0 @3 }% {. [( ^( r    if energy > 50 [
# e- U, T+ }' T9 E      set energy energy - 50- I  P- O) F8 d  M7 V
      hatch 1 [ set energy 50 ]4 E& [$ Z( q# s- C( V% F
      ]
1 q. x- _  _( M1 T    ]. ], r3 e9 k# D% ?& J. L
end
. h, ]% w0 G* K, s5 R4 Jto check-death
4 ]$ E0 R& ~8 S  ask turtles [
6 n. e3 t# X& ?- [4 `    if energy <= 0 [ die ]! z- @( Q5 F& e. I
    ]: c7 [3 b3 V6 J# @( I) x; b# n1 e
end8 |% d; f* z2 F- l3 G8 p
to regrow-grass# E& L# p$ l' o! b# C/ o7 ^, h
  ask patches [
; t! n/ s" y- ?1 r& z  \2 d    if random 100 < 3 [ set pcolor green ]
  N. s; V  y. s- \/ D: |4 g    ]9 m0 t6 Q# w4 a/ l& ?# D; q
end) f& a. U0 j6 {2 w1 w% L# a
to do-plots0 d/ i2 o5 a4 h( ~1 t. i# a
  set-current-plot "Totals"- r5 u$ Y+ h2 y" ^+ Y9 @
  set-current-plot-pen "turtles"
' q. V( _8 c* e% o  plot count turtles
5 e- T3 g) o  K% ^& P: ?. L, D9 w  set-current-plot-pen "grass"
, `9 n- \& m% O' I2 L& T/ A" G  plot count patches with [pcolor = green]
8 u- w9 W0 M5 Q+ X5 |end
3 T" c3 p: b6 Z1 k- @! v; N* ?& l可是运行时提示no such plot: "Totals"7 e) Y: n3 W9 i2 f+ P  p
error while observer running SET-CURRENT-PLOT
/ m1 V5 K6 a8 }7 u+ F' H  called by procedure DO-PLOTS2 K3 _( X: M) P9 M
  called by procedure SETUP
& z* _* n" I* f3 ]. L% X  called by 按钮 'setup'
+ L3 }! R% m1 L: F3 C8 n. s7 u+ 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
. G* J3 `0 O" i9 n! A建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-5-18 07:34 , Processed in 0.022477 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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