设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10524|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
# E0 Y( L! d8 z# W- }: [# W- t( cto setup% E: n# p" @6 w* h$ W3 H. U
  clear-all
1 \) h" a, W" M0 \: M0 t7 z1 O  setup-patches+ s$ l; _( q6 w! W0 i1 M
  create-turtles 100
+ ]6 h# f' n  |+ E# Z) D3 Q0 J- ~' B  do-plots
! I. B! j0 H+ p, r: X- Y5 C  ask turtles [ setxy random-xcor random-ycor ]
( y6 c5 l8 H7 x( X: send
* F6 e; P' L* b$ t& xto go: q. z6 b' X) k% c* q) J
  move-turtles
2 N9 [9 |$ S6 ^, Q( t/ J  eat-grass& Q3 @+ r# R! V2 d, h
  reproduce0 |; m7 r6 r9 J. x
  check-death9 g9 E. n) w% Q8 j7 H8 _
  regrow-grass9 x0 ~) S$ Z' i, f/ m0 h
  do-plots* @, l8 r0 w+ H; M+ K  L; o
end: h: I- P) c' E8 q
to move-turtles
, X* E6 u/ G. ~  ask turtles [
. A* x: ]* T  v3 _- ~4 b    right random 360
7 B% E5 v! M" G% W- \5 }& N( }- N    forward 1
1 A: D2 q2 c; p3 {8 I    set energy energy - 1
) I* z! _% Y6 E. U! `& i5 |, u    ]+ D" J3 x- ]" V% W$ H7 J
end
& b) I5 e  T- p# Q) h0 Yto setup-patches8 r& w( O. Y! l1 D4 {1 U# y1 |
  ask patches [ set pcolor green ]
  t  v1 p- c/ C" }/ Q% Hend
) D. M6 B; Z  H6 Lto setup-turtles6 X8 G( t$ E- w8 A  g$ h9 K8 c2 ~
  create-turtles 100
5 A3 P; Z/ d$ Z& C1 V/ a" F' i  ask turtles [ setxy random-xcor random-ycor ]$ I  ~( |! M+ h) C1 q. ^
end
" w; z! X! b  i! Pto eat-grass
- k$ @- Y8 P7 ]7 L  ask turtles [8 M5 Q. ?5 l) R  ]$ Y, f
    if pcolor = green [" m  e; G4 A. {) M
      set pcolor black9 H, O% O: d  ~8 G, _* q
      set energy (energy + 10)
1 {7 n2 Q6 A# N      ]
1 y# z4 B3 p! x+ e' q: U    ifelse show-energy?% L5 R0 [4 X. r8 o7 T; }+ g( `
      [ set label energy ]
5 U' W8 W4 U$ `% p+ E! o5 D" u      [ set label "" ]3 X& N$ B8 q/ B/ \
    ]
6 j" ?; Y6 S1 m) D9 V" Uend) f) S) K2 f( X7 ?7 @  v7 a
to reproduce% s8 r; V/ O$ {' f# G, m
  ask turtles [
/ Z( I* N) {" h9 z; w- L$ \    if energy > 50 [
( z: b1 M- a% f2 @, O, c" v      set energy energy - 50
" @7 y. u. N! K7 s      hatch 1 [ set energy 50 ]' x" X0 f2 r! j  ~/ T
      ]' x. M" o* X$ U5 H+ e. q
    ]. ?$ y( ?4 g: |
end
8 a3 i" y0 U9 \5 U9 V4 xto check-death
- }7 Q7 j9 w- s8 w5 V" U/ z  ask turtles [
7 L. ]6 m3 l$ w- e0 |    if energy <= 0 [ die ]
" Q% U6 [( `5 Y# v5 Y1 ]    ]
" P- `! A* h4 @' R- H2 M2 K, {7 yend+ }- X0 f1 Z  h& v1 x
to regrow-grass& Y# @' R  g& X  d* }9 ]# p6 S( ]
  ask patches [: O- d+ _6 D3 J+ T/ r
    if random 100 < 3 [ set pcolor green ]
% [% H- o% G& G  Z2 l# [- K( r    ]
& x  f3 Y) z! I( X5 a5 e- ~1 Bend3 R/ Q4 c+ R8 V( [! W9 `, N
to do-plots
! O4 ~/ p9 }/ M# V% B1 W1 G* ^  set-current-plot "Totals"( R* K* j+ T! ?1 K# I
  set-current-plot-pen "turtles"
' q/ v0 o1 y+ n9 M+ ~6 `6 Z  plot count turtles
1 c& d0 N9 B: X5 C3 ~* x8 q7 Y( y  set-current-plot-pen "grass"
, D. L: q; H# o! d* n  plot count patches with [pcolor = green]7 ]6 ~( b3 w' ]
end: d5 T7 D4 [+ _$ a' N9 c
可是运行时提示no such plot: "Totals"
! ?" S  Q( T! E0 i: lerror while observer running SET-CURRENT-PLOT0 U  F- ]+ V0 S# w& q- V: ^1 a9 h
  called by procedure DO-PLOTS
3 i  Z3 c0 L9 G) u  Z, [  called by procedure SETUP
1 ^4 j# ~: I: S/ V  called by 按钮 'setup'5 @; m1 l( ?- a( }
求大神解答啊
发表于 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 , m/ r6 G0 o: Z" e; ]( B6 S6 U
建一个叫做叫做Totals的绘图框就行了

$ W- \' H3 W# i" I0 b) C/ |2 ~哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-3-19 17:12 , Processed in 0.016139 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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