设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10233|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]+ y& M( K- V" l# D
to setup
) q) o- g0 X  r  _' n  clear-all
; X+ M) R. i6 t8 G, u, P0 i  setup-patches: ^! ~* N- L0 f+ @! n! F; i
  create-turtles 100
1 O$ ~9 [# d0 N& T7 _  do-plots) ^. p$ `" J% A, E
  ask turtles [ setxy random-xcor random-ycor ]' \; Y+ q9 I2 P; _- a' B; H0 R( y
end
0 a7 @1 V# y" g+ k/ x7 Xto go5 H( a0 W, Q8 {
  move-turtles. x+ D* i( K2 k8 q. s
  eat-grass
! L! d$ t1 s4 Z) W4 Z6 R  reproduce5 @: o: V" F, t) E. V, h# \
  check-death7 `! q" S1 w7 Y) P. R
  regrow-grass8 l  j" t* F, @8 ~5 [) X7 ^0 p: m
  do-plots
2 A7 l+ n1 ?# T( Z/ O  O! nend
: p/ T7 [! o2 H2 Q2 vto move-turtles
" M( x* W) w0 _" R) ?  ask turtles [  n1 d1 ~: z; Z: t- e: V3 Z
    right random 360% h9 D3 f( U5 }& ]
    forward 16 v/ a8 z; S, i) z" R# o; \
    set energy energy - 12 Q, f- w- a# }0 \4 w& y# p5 ]
    ]
0 x. {/ z# Y+ `7 k) u' Tend
% p& F1 G& G6 R( lto setup-patches
2 @( l* o+ q, X0 n) |1 C  ask patches [ set pcolor green ]
) Q+ @# n  O% f! C4 u% p7 bend$ |: S2 l/ U# X! l; ^4 [- ]7 B; J, {
to setup-turtles
. {- H6 L' B' E/ q" U- }+ X. U/ d  create-turtles 100. |# c, m7 V5 q& z
  ask turtles [ setxy random-xcor random-ycor ]
+ l9 D1 [+ f; M( }8 b& ?" X: vend
) |8 q3 y9 f/ }/ w: s: l& ]to eat-grass' E3 v6 x' Q* M1 f# j& g2 n& d
  ask turtles [
+ `" y2 l7 Q/ ^% C    if pcolor = green [
  F; i8 F3 W- n# k, ?5 q      set pcolor black  X8 b8 M/ r; m1 x3 w
      set energy (energy + 10)% r' e3 U5 w" t& T8 ]4 ~! S4 v
      ]
+ C3 \) i9 O) D+ N$ `! s+ Q    ifelse show-energy?  y. g1 \! z8 V0 P9 _4 s4 z( l
      [ set label energy ]6 C* _# `. e  L" P+ R; c
      [ set label "" ]
; G0 ]: e# K  Q* v    ]9 f! U$ x2 F. I$ b4 m' U- F
end  }6 d( M6 }' F  X* d8 v
to reproduce5 i# Q, q, [) ^$ o; N: v* S
  ask turtles [! s5 j% b5 M+ [1 u; B0 k, G
    if energy > 50 [
' X. a& @; A2 P. A      set energy energy - 50
! i/ `5 P% {7 H      hatch 1 [ set energy 50 ]
1 V) k0 S' y) T$ E5 C' P      ]
; @& e# _# D3 f- S  l2 m: L    ]/ \0 J, _# ^" U
end
, f+ K, X4 i" Mto check-death
, i! c2 Q: b8 O# Z: p, @  ask turtles [- {! P0 `, }% r+ L4 {: j
    if energy <= 0 [ die ]. n7 h9 P2 d: [  e& _
    ]
( U3 T7 w0 J, r$ P8 p( _end* O. I- [& B* h2 w
to regrow-grass' k' p% n% L5 G
  ask patches [5 w+ m) G; l  V5 o( k) [5 H
    if random 100 < 3 [ set pcolor green ]
5 r  \2 i2 l3 K6 R! k' v8 z3 z    ]% Q" O# k4 h: v& j
end
! h0 d# |+ {: ~- ?9 _- {to do-plots
. b3 d/ L/ O- R' ^) [' l  ]  set-current-plot "Totals"
! ~( g; O: p2 Y6 V  M  f& N; c, h  set-current-plot-pen "turtles"
. T& U+ A5 ]  `1 {6 u  c9 p- W" \4 z  plot count turtles
3 P! D, h: l6 X1 W  set-current-plot-pen "grass"
- x2 B4 d, F) X/ H4 A9 u  y  plot count patches with [pcolor = green]& a. J# {) X) s8 v; p$ ^
end8 Z$ n* L$ n& |% \5 `8 d
可是运行时提示no such plot: "Totals"& q/ q- C0 y4 g. W1 G- q$ W
error while observer running SET-CURRENT-PLOT
8 [( n3 S8 b* q- H( ?% a/ T3 A  called by procedure DO-PLOTS  J$ P6 f3 S% T5 b( ~3 i1 C, W
  called by procedure SETUP# f2 [8 u$ k9 I/ ^5 P% W6 C0 e
  called by 按钮 'setup'
# F# O6 t9 h* X. g, }& n+ q求大神解答啊
发表于 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 % W5 Z: i7 B# W* w7 B7 P- l  `
建一个叫做叫做Totals的绘图框就行了
5 i, D+ O$ B4 |
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-2-25 21:24 , Processed in 0.019250 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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