设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11335|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
9 x  v$ T( H9 z, F+ `to setup0 D! u6 E1 l) {
  clear-all' f# d& y( Q* `, z2 \: s
  setup-patches4 G  x; _' D" y+ K1 D" x  r
  create-turtles 100
/ R2 ?( M% P! [  d, J  do-plots& @5 L: h, B1 y! ], S
  ask turtles [ setxy random-xcor random-ycor ]
- `6 b1 I9 |' y8 A" o+ Z5 Gend/ ~' z! a% e" D8 T
to go! ?5 s; B/ Y* V. v
  move-turtles; I" L# D4 K' l$ G0 b- _
  eat-grass
, c  ~4 W& o  z3 m4 G  reproduce: W, H( z- {! w8 Y  z; B5 X1 s$ u1 W
  check-death1 ]! j# F4 ]) m" W$ O) B" a
  regrow-grass
' k# F0 L! u0 a! Z( S  do-plots/ W; w/ g+ _. m6 P, r6 M2 \
end
, f; b3 M' [5 }2 Lto move-turtles5 M1 o' `+ n. g$ e. r6 F7 B
  ask turtles [1 b/ R" h# d4 C. d
    right random 360
- r  n/ @' W4 z5 e. E    forward 1
9 j* W% U  U+ J2 i9 v    set energy energy - 1
- f4 ?! u0 ?# v    ]; p- M- m+ L$ p
end
5 s! p6 b$ g; d) z* ]4 fto setup-patches2 x# P4 h1 m; c. L* m
  ask patches [ set pcolor green ]3 z4 b3 x2 b) b9 w: ]' K0 `
end/ p, u# r9 m8 E6 K3 ]: J$ `
to setup-turtles8 }2 B" J2 l/ `1 g# \4 d1 A: A
  create-turtles 100+ Q+ s: j$ P+ W8 J
  ask turtles [ setxy random-xcor random-ycor ]
% Y" b0 N5 u, nend+ U9 O/ D! q# C1 Y. ^, h
to eat-grass8 B1 h5 ?+ f' ^$ U
  ask turtles [
* u  p% [" J5 |1 k& [0 B1 u8 G    if pcolor = green [
8 a& S# m) Q6 g2 u8 G      set pcolor black8 _: P6 U, x0 t( N7 D& ^
      set energy (energy + 10)
, V  O7 ?3 _9 p! _! u# ^/ K      ]6 w) @. s( w/ e
    ifelse show-energy?$ o& n6 l6 E4 n
      [ set label energy ]' R0 @9 ]3 X9 m
      [ set label "" ]
$ b3 Q# u# s& b) T, @. ?- q    ]* m$ x8 Z/ T4 i
end2 r) O- r3 N4 b, Z/ c0 i  b
to reproduce
1 x9 F  F: B2 A5 B/ l% ]  ask turtles [2 B) z) {( ]. m- e# m
    if energy > 50 [
; y& s* p! N; W& S, N! b2 O      set energy energy - 50# n6 ]8 l1 u9 q
      hatch 1 [ set energy 50 ]
7 o# [6 Q5 q$ t2 A. O      ]
- D" Z3 e: p% y) I7 _  b! a' _    ]3 I# P0 O: s% d5 O3 C/ M
end
6 B9 G9 [9 H' k# e% Mto check-death2 [0 Y( E5 l( {- k, e' E
  ask turtles [: L) E$ i$ j; c+ y9 u
    if energy <= 0 [ die ]
- a6 m( g& `8 H3 W    ]
$ Q4 ?; k$ u/ ~$ iend
: l& s7 h$ n" Eto regrow-grass& J8 f$ g0 M" k7 l. }! p) d
  ask patches [3 _! v$ T5 v/ q# o) A8 Y
    if random 100 < 3 [ set pcolor green ]
! ?0 F4 s+ R- \1 b) m% E# d+ z/ N    ]- |$ i5 x1 z: w" h: T
end; u% U1 N5 D- ]: ^  E  d) K# q
to do-plots
8 K; ?5 B1 f4 b0 L* A1 Z3 z  set-current-plot "Totals"
3 m/ D( t1 _5 T8 `  set-current-plot-pen "turtles"
8 p0 K2 U1 q5 }# f% l. U# u  plot count turtles
6 {( P$ v- J. P  set-current-plot-pen "grass"
' v9 m1 \( P+ |8 Y; y( }& D  plot count patches with [pcolor = green]% Q0 ^: V7 e; t3 A% @5 I
end0 d) `$ Q' H. T$ I5 @
可是运行时提示no such plot: "Totals"  O: _, \( n+ E8 ?: f. L% \
error while observer running SET-CURRENT-PLOT( r$ h/ J5 {+ N7 }' F
  called by procedure DO-PLOTS- O9 C( `3 x% C
  called by procedure SETUP
2 S: E" F( n4 j3 k5 `. k2 t6 u  called by 按钮 'setup'7 `5 B$ V/ }* T. R. Q# n
求大神解答啊
发表于 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 # W# N$ ^9 |+ \2 y' h- P  k3 `
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-5-19 15:08 , Processed in 0.023544 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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