设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11322|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
6 O2 T" W. H, d: b3 hto setup
2 I/ A) D' o0 u. a; U! ^  Z4 E, J  clear-all
$ \: J- C3 T: w, n9 n" j- W* u$ P  setup-patches/ `9 s6 q9 B# `" h
  create-turtles 100
: `. X( G, T2 k  do-plots  V# z( S! V/ O* W
  ask turtles [ setxy random-xcor random-ycor ]
; R0 c8 u. I9 p& M' X6 Q: Eend6 b) u: I: W% U2 u' }  M2 K
to go
, C& a4 t& l5 r7 Q% D8 R+ W6 Z  move-turtles* M" [: O( ~8 N) D0 i- S1 v
  eat-grass
1 |8 X9 _' V+ e+ f1 C0 b  reproduce
! u, i- z( t4 H0 \% j  check-death( U# l$ T1 G1 R/ z" ~
  regrow-grass
, [4 \! A: T( w3 _( {  do-plots
) L  F$ ^. W1 t4 z/ H8 [1 A/ Aend. h- G; @' Q/ E: E" _9 z8 L8 Y
to move-turtles, p. z: T( w5 s8 m' F
  ask turtles [
8 c$ F, v! b/ `' W3 d, |4 b    right random 360& ]- k8 h- X+ E# u+ R1 Y
    forward 1' x6 N! M- i- k' o; Y
    set energy energy - 1
, T9 r  }& p7 Z5 }4 Z/ Q' ?) E" r    ]+ V5 W9 F5 }, ?9 i8 H/ b
end
% ?5 Z+ C2 n& ~# [/ n& T- q( eto setup-patches
3 o3 y$ x2 u' e) \) Q# \  ask patches [ set pcolor green ]
8 B: e  A9 E5 u) tend
; T  }6 S7 i, i9 Mto setup-turtles
! w- y, i$ \1 M  create-turtles 100
7 [) O+ g  N9 l8 o  ask turtles [ setxy random-xcor random-ycor ]1 N$ C2 X( @1 l% l9 {, v
end
' X2 C, b2 Y# _2 {1 s1 Ato eat-grass1 z; p0 Y& ^0 |7 s, n' T$ U& w- S
  ask turtles [0 C+ V( q* S% ^# @( B
    if pcolor = green [8 \4 R) ~; p6 a, c
      set pcolor black
# k* L* J. b+ v      set energy (energy + 10)
( i- H0 {/ k2 f5 _7 F      ]
+ c3 U6 C3 I% S% o- X5 x    ifelse show-energy?
1 L6 t1 |; B) W4 p) x5 G( d      [ set label energy ]: [+ ^$ `4 l2 T1 V8 h5 H' j
      [ set label "" ]
% u: ?. P. ?0 A# [1 V* V    ]
& V6 p  o5 D9 `" N2 P$ w$ L4 d% Mend
* V; `' Q9 S/ N5 {2 ito reproduce
; F# s  z7 `5 q7 V  ask turtles [
- i/ y& Z- Z4 I. l7 O" k    if energy > 50 [
7 A+ M6 D+ `$ `, ^9 p$ I* O      set energy energy - 50# \8 g% r/ o0 M" q6 ]- R  r
      hatch 1 [ set energy 50 ]& v9 K) j+ ?4 V6 O9 u) s- D
      ]4 G$ \9 b% i4 P
    ]4 V4 z* R! R) Y: k- p5 l/ j7 _
end
  _2 n* Z- e$ f0 j& E. w: Ito check-death' j, X' D* T$ l* u
  ask turtles [
+ V) y1 n3 ?6 Y1 L  d    if energy <= 0 [ die ]0 y8 a( I3 W' o! \5 @$ n1 z# T
    ]+ U! c+ \$ z& n7 K( Z3 M& J6 G$ i
end* F1 c: U7 a( Q8 u$ V! S3 z
to regrow-grass
7 K, L1 d' Y+ I  ask patches [
6 |8 P: a4 n  F6 E& a$ F% S8 T    if random 100 < 3 [ set pcolor green ]) B6 {/ a3 @$ q. z, Z+ a6 z! d
    ]
8 z# {; f, F4 R9 Bend5 r" d  S2 j+ U5 H9 Y2 ]
to do-plots
/ B7 |* D$ }3 o# {" J( j: I  set-current-plot "Totals"$ F  i8 [% Y1 n! a! G$ Z" I2 `3 ^
  set-current-plot-pen "turtles"
8 Y2 b. i% ]) \7 K1 Z  [9 \  plot count turtles# l, b7 z/ J6 R$ M  [
  set-current-plot-pen "grass"
7 ~- N4 N8 I* r( V$ e  plot count patches with [pcolor = green]
1 ^3 x8 O; B$ U( I9 q, p& J; tend. C  O, t9 ^2 p" B' \
可是运行时提示no such plot: "Totals"& R& ?( {* s9 X3 Y
error while observer running SET-CURRENT-PLOT
, H7 S0 g" |* U- m  called by procedure DO-PLOTS
# g: f" ~# ]( q) k8 f  called by procedure SETUP
  ]6 }& P: u1 y" L/ U- A, q* s9 i$ M. I  called by 按钮 'setup'
1 S9 A4 t( Y# s# s求大神解答啊
发表于 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 7 T, Z7 `( j: h" @4 E
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-5-18 13:37 , Processed in 0.023494 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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