设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12463|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
5 x$ x8 Z$ v7 m. x* G7 p! Kto setup8 `8 P: Z) m8 h3 ^: c
  clear-all- ?4 o+ t6 \2 e% d
  setup-patches
, Q! t, ]' M5 i: `  create-turtles 1007 h; Q1 H/ a$ A3 p2 E0 l8 Q' @
  do-plots2 b) n" o# s4 G( f
  ask turtles [ setxy random-xcor random-ycor ]1 I( p9 P% B* F& s- a8 E
end7 T* B9 c+ s4 \6 O) P1 D
to go6 W2 @, O0 o1 X6 j8 E1 f
  move-turtles+ ?  F7 G1 ]6 E) N  Y
  eat-grass( K9 h% a$ @8 F7 d
  reproduce
( H3 Y1 l2 i+ I+ X( B( x( z  check-death
" N3 d2 A2 D# b  E. x! |9 o6 w  regrow-grass; A& {4 P7 }5 u9 Q
  do-plots
' j! r3 e" K8 d. D5 Oend* d$ B- x5 z# V* ~* ~" }* X
to move-turtles1 \. z) L* A  y: i
  ask turtles [
7 R3 g8 O% M3 B% R/ }, q    right random 3608 M2 @6 I6 Y, n/ f3 n
    forward 1
( _  G0 C, h* V0 l    set energy energy - 1  v6 r4 |0 z( |& Q3 v5 r# t0 @: v1 q
    ]
" n5 p$ V. Y6 i! v! ~1 N4 yend0 U+ Z' l* R9 A# d2 N. C/ U
to setup-patches% G6 J9 M! I. m6 U' K
  ask patches [ set pcolor green ]; l, q  y+ j$ ?4 ]- ]
end! N, _/ G, t0 S/ r; ^
to setup-turtles6 V  c; ~: W) R8 Z  J( A1 R
  create-turtles 1006 r! U& w8 ?6 `+ b% Y
  ask turtles [ setxy random-xcor random-ycor ]  S& Q; \# r, G* m8 `
end6 Y" k7 |+ C8 I6 t' p( r+ H
to eat-grass, s# x6 T8 R- U( V; @  G* P
  ask turtles [
1 k3 R/ U( s5 i5 W, D* \    if pcolor = green [3 o; t- A7 D' h4 W7 L7 A! V
      set pcolor black
' t0 q  \# L. L      set energy (energy + 10)% D( r. K: S, T. g: o2 p) P
      ]
  ~$ h8 x" Q9 P' p    ifelse show-energy?! n! M! z: b$ Z4 u
      [ set label energy ]
8 E+ j7 c/ @( {' c. g      [ set label "" ]$ H$ V; y3 @+ ?6 e, ~) \! u
    ]9 T( w% r8 I8 S- [5 K3 c
end
& H- J: q/ s: v$ l  J! C% zto reproduce
5 {$ t9 t9 I2 g  m, j6 x  ask turtles [
# g- M" t& {/ [$ B, Z    if energy > 50 [5 S+ ^6 H' b, g
      set energy energy - 50
* h9 @0 K. y$ e7 R4 K. ~. C      hatch 1 [ set energy 50 ]* I- g% y+ `6 q1 ~# _" L; C9 k; T. X
      ]
# k4 X! `, J" N4 }    ]
8 R$ m- X- _' F, Dend; f" [! {6 L; c6 [5 J
to check-death- s4 c$ [' r  j7 g
  ask turtles [9 \( g  Q) s- a# V3 l: W
    if energy <= 0 [ die ]
5 v+ i7 w$ N: o$ N4 B, F7 H    ]! i" l) O  m; d
end, G5 p% T' Q- Z8 R3 A" ^
to regrow-grass* _  |1 R  ^! T" r6 |/ {
  ask patches [: U& v6 I, M) T! d9 M1 w" s
    if random 100 < 3 [ set pcolor green ]* k3 u; a0 j$ x4 G0 z2 D3 Z
    ]) J7 V: w  x6 s# t' N/ L9 t8 ^$ w
end4 K$ F7 z/ z! P& _
to do-plots
$ t3 b) y, |( K2 a% |; V  set-current-plot "Totals"
0 U4 D* D8 V- }1 i  set-current-plot-pen "turtles") A5 _* M3 \( V6 R$ K! r; G  v7 ?/ U
  plot count turtles) ?4 R4 [: r2 f5 [# j
  set-current-plot-pen "grass"
* {, x2 H1 B% X! b$ F3 v: ~  plot count patches with [pcolor = green]
/ s( k& h1 y; \) G9 ~/ Tend
( a! j6 m4 W! @7 }可是运行时提示no such plot: "Totals", G5 e" H* x4 g% }
error while observer running SET-CURRENT-PLOT+ `. E# k4 O7 }  r9 G. \0 b+ [
  called by procedure DO-PLOTS# S& s0 Q1 H! M' A  k7 X- y
  called by procedure SETUP
. W2 R: g1 @+ Z$ s  called by 按钮 'setup'
, p2 Y9 y2 {0 E* F5 ]求大神解答啊
发表于 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
. r6 k1 y5 J- g* k! z# C建一个叫做叫做Totals的绘图框就行了
1 p7 O. o6 A6 ?6 ?6 X0 ?
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-8-23 14:31 , Processed in 5.052498 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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