设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 9789|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
2 N0 f  k: [* {7 N# q$ w: ^to setup' F- F5 l, n: t# p2 R" l* r
  clear-all
  h. O- p' T( L- u; j  setup-patches* m: _+ C, h" b4 b1 r7 T6 D4 C% {8 X
  create-turtles 1004 ?2 Y, L9 B& c! h; s) ?% t
  do-plots" b3 {' U# U) Q2 m: j
  ask turtles [ setxy random-xcor random-ycor ]
# s* Y0 z( X1 z  qend, J! I; j8 r& Y$ `0 A; |. v
to go
2 q( K: Y! Z. Y( V/ u  move-turtles
: b7 b: G5 g% X3 I$ Z  eat-grass
4 l6 i2 {2 S# M. J; \  reproduce" t; G  q9 y1 b4 c1 D) \
  check-death
' Z* z3 ?' X. ]) g. y# r  regrow-grass
# J" M' ^) x' V  do-plots
: X- f9 W. m% R1 fend
! v& j/ M5 P" c+ J% v: N& u% y* Xto move-turtles
, R# _) _% i. K9 Y* M( j, A, ^  ask turtles [* A# @  K( s, E. K7 g
    right random 360
1 j( K) F2 }9 I8 q    forward 1
$ X1 J4 m: n( F9 {2 L" Z    set energy energy - 1
$ J+ w( q' m9 X4 e# p$ t    ]: ^* Q3 H+ e3 \8 ^& u
end" ^/ T5 C2 `3 |) z) U
to setup-patches
1 d6 a* o8 W: K9 ~  ask patches [ set pcolor green ]$ P# P/ L' ^- k
end
! _7 M( P7 Y/ `to setup-turtles
  y2 }/ V: L2 `* e7 H  create-turtles 100
% R$ t3 O7 ?  e; B1 X  ask turtles [ setxy random-xcor random-ycor ]
+ M6 I+ X( U0 ?+ V; Eend
8 Z2 m, ^0 E0 yto eat-grass8 Z# S, w6 }4 a* I: p7 `' q
  ask turtles [
2 D+ W' w3 [- e  D    if pcolor = green [- g% G, p3 I+ v& H1 e) N
      set pcolor black) z1 _$ S+ C1 m1 Y9 Y* j
      set energy (energy + 10)' g4 o# u2 A/ E4 T
      ]4 N% V4 t. h  k% C+ T% M
    ifelse show-energy?6 i9 j) @2 @$ J
      [ set label energy ]3 q+ [  ~1 d" C2 P3 J8 p0 w  W3 ^
      [ set label "" ]
8 b# C' R! q# s  o' ?5 i0 P    ]
& ^4 y. a& _6 |end
. E. u. P& \4 t& P( zto reproduce( z3 d/ J5 I& ~; B
  ask turtles [
3 E$ D6 X  K& v7 H4 o+ U9 r! V- n    if energy > 50 [
: n& Q8 R4 a* `, T) u      set energy energy - 50( m# W) Q  I- ~9 u
      hatch 1 [ set energy 50 ]
0 N0 q$ S4 V9 Y% |- B/ c" T1 Q      ]& T" [% F( }. \* ]# J1 H# z4 A
    ]1 E1 m5 [2 u$ {2 O/ N3 W* u  [
end! P/ n1 Q0 N8 w
to check-death# O% a$ {: C) q: W: }4 o
  ask turtles [
; ?5 C! \0 `( ~    if energy <= 0 [ die ]6 Q9 h0 F6 |0 F+ {
    ]
# P, Q( L( B1 xend
: _5 v  R* s. x& z& }. |to regrow-grass, G1 G" |, f4 Q  c9 d' w' ]
  ask patches [3 j0 j' @% {3 N# g8 H) F, @6 M+ A
    if random 100 < 3 [ set pcolor green ]
6 R" y5 ^! b8 Y6 f6 c& t    ]
" {# S- q5 ^' g1 [6 H) l, N. dend
& a. r9 W+ P& I# P' B% nto do-plots
7 k0 Z, r& `& h& g7 U$ j  set-current-plot "Totals"
- J3 C7 n# I2 c) z+ ^  set-current-plot-pen "turtles"
# {9 f9 c9 P# y5 [2 J( L6 ]  plot count turtles
2 Q& |3 |$ j* ^% _6 l) L9 X  set-current-plot-pen "grass"
; X' A5 z8 \; r- ]1 w  plot count patches with [pcolor = green]
& L3 d# u# n: P) d- H: ^2 X6 Rend! X/ G5 |6 U; P. d; H/ |5 l0 `
可是运行时提示no such plot: "Totals"
" U1 x& J: s( C; i5 terror while observer running SET-CURRENT-PLOT4 {+ z) V+ r# ]  v9 q" |- Z
  called by procedure DO-PLOTS; x: V. N3 I; a
  called by procedure SETUP
! w2 z5 ^) `' r  called by 按钮 'setup'% U* `5 C! E- ?
求大神解答啊
发表于 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 * L1 {- I2 Z1 F5 O" [9 |
建一个叫做叫做Totals的绘图框就行了
' B7 ?( u# }! V+ `/ N$ K
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-1-21 09:47 , Processed in 0.028344 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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