设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 9929|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
7 A9 b$ p% x! N2 @5 m9 _$ W; e6 V7 ?to setup8 C% T) X6 P, A+ l+ m
  clear-all4 f+ U8 ^1 T' @2 [& c
  setup-patches
9 Y: i* K9 e* `5 I# X  create-turtles 100
/ `' a. q; |# F6 Q3 |* b" X  do-plots+ Y" e1 j) q# }" ?9 i8 A2 C
  ask turtles [ setxy random-xcor random-ycor ]4 W( k( ~4 a  C' }5 y  A. d9 B
end& }" b0 N7 [8 R
to go
! C7 t( P4 `1 K8 n& B  move-turtles. O7 @( Y$ M( M. H
  eat-grass
3 D/ U# ]- _% v! H$ y  reproduce
0 e$ w  K. D) t; E5 D1 l  check-death" }6 U1 H8 f1 E, d6 i
  regrow-grass5 N% x& ~0 C* U
  do-plots. t  w2 l) J# M, i- s+ |. U- s
end
# O$ G4 w: W) `* nto move-turtles
+ w) H3 R* r# Q- Z: |4 }  ask turtles [7 [# M1 q1 h  l5 ?4 F; _! g+ \
    right random 3604 }* t% k4 m( N$ D$ t- i
    forward 15 C8 J* Z. q4 {7 O5 E
    set energy energy - 1. W& ]) Q+ p7 L# n* r: y- P
    ]
% `$ u$ ~5 r! }) r/ O9 j6 mend* ^* ~& {* W/ |. ~
to setup-patches- I6 C/ H: _& J! g" x- s3 f: x; s9 D
  ask patches [ set pcolor green ]
) J* z# K* K& M6 e2 rend9 z3 q' F6 Q4 Y2 z  \' L
to setup-turtles( K! U0 T0 a# t, Y5 f% J& ~7 _. ]  @
  create-turtles 100
" X" Y# i! t1 n' X6 d  ask turtles [ setxy random-xcor random-ycor ]
: ?1 c0 }; M# Q; U0 N% N9 Fend( @6 Z+ U8 f8 u& z
to eat-grass
* \; }- U% \7 J# ^+ y/ u  ask turtles [  c2 `1 |8 [" l/ S. x7 V" o% N
    if pcolor = green [% U2 O* A3 Q7 [( a# H
      set pcolor black- X2 p! H- V% E! C
      set energy (energy + 10)
3 f  [6 k9 u+ O4 P5 }( i8 n6 s      ]0 o7 [" X5 b* F1 S* o9 D& [
    ifelse show-energy?
# J7 S/ b! e0 m5 H. t7 y. [      [ set label energy ]
( X9 }& a6 a3 u+ S# d/ v      [ set label "" ]! l3 Z* o/ W0 m" q/ h$ h
    ]4 z! `4 _1 v$ c: Q  ^& D
end
6 G' j4 S) H, j9 Tto reproduce8 I+ U& M$ @% o" W! W( n
  ask turtles [
3 E! x7 b/ ?5 ?2 \% o$ v# r. N    if energy > 50 [
7 }/ S! Q1 S  Z      set energy energy - 507 E6 _! b; R( H1 g
      hatch 1 [ set energy 50 ]
; D( ~/ }# ^1 |5 y- S      ]
) O! U$ V# d& |( q    ]
: p% w2 s! B/ }% Wend
$ y9 ]6 U/ i  T- Z/ dto check-death
, u' f" O  K' N( x1 B7 h: G5 j  ask turtles [) u6 |: f1 K3 S% e3 c1 b7 [
    if energy <= 0 [ die ]2 ?6 G! x1 p. A- ]
    ]
" N. f3 w7 N. Zend
) [4 T- u; X7 K% e  Lto regrow-grass
+ d6 _& J. V! o$ n  V! v, ^  A  ask patches [
% j1 ^" W4 M" [1 [6 B& ]* m" D    if random 100 < 3 [ set pcolor green ]
  X0 Y" q3 T$ y    ]* j2 X5 {1 ?, L% f
end
) y5 }5 L" C: c0 Fto do-plots+ F2 o" M+ r5 [& _$ K. O
  set-current-plot "Totals"
5 `: d" J( v/ Z  set-current-plot-pen "turtles"8 R# l! f: v' p
  plot count turtles
( T0 `  S/ }; t! f0 ]  set-current-plot-pen "grass"& N+ {2 b& q) d' u5 R
  plot count patches with [pcolor = green]
. |. \. a/ g6 A4 k% e1 W$ Aend
( N# c( ^7 h0 `4 m0 U) R* j* Y可是运行时提示no such plot: "Totals"
9 H2 {% F; \! q" j1 Derror while observer running SET-CURRENT-PLOT
* b8 H9 @  x. z% V  called by procedure DO-PLOTS  \0 U& V$ A8 x3 N# P* m# A
  called by procedure SETUP2 W* d- |% ?7 _6 v* _
  called by 按钮 'setup'
0 t  \. t" r( @. [9 Y求大神解答啊
发表于 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 ; y/ O+ W4 H$ `
建一个叫做叫做Totals的绘图框就行了
; U: g: Z  A  u" K6 u  o- }
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-1-31 07:52 , Processed in 0.018352 second(s), 17 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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