设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 9853|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
& @7 t" i7 [, [' bto setup/ |7 O, @3 o, U; o2 x- `( |
  clear-all
2 Z  P! d! U- l' ?( N8 t  setup-patches
! R! D" O5 P# e) B" b; H  create-turtles 100
  c0 l9 y: S( B* ~. y0 C7 E8 U  do-plots
/ D$ P! I6 V! J2 e  ask turtles [ setxy random-xcor random-ycor ]! S; o6 ^( s' g. O- y
end
0 u& p" J8 @) H; A" t3 Y" Vto go
  c8 f5 f( M+ }( _, B& O( F  move-turtles
, m: f3 X- o" v; l  eat-grass: c9 h1 Y9 L8 p& A/ Z
  reproduce
2 s7 u" N, p/ a4 R3 U  check-death
- o2 L$ z7 S* P* ?% C+ }2 W. I9 F  regrow-grass  {* c* _9 R' F4 {; Q, B
  do-plots9 ?- V$ `5 z9 y
end9 g( s+ Y  g; D% Z. k# ^# Z# c- k
to move-turtles
: U$ A) U% K. E6 @  ask turtles [% ]( [( z/ _, N5 `- g& w7 j" M: A- n* y
    right random 360. S  ?; k2 T. P' Y6 ^9 @1 `+ ~
    forward 17 ^# T8 K4 B2 e! o- Z! `* O
    set energy energy - 1) i. j& N  u) T% F$ ~- M2 f
    ]
6 U! Y: l4 J' e5 M! `end1 \. h: b" P! k
to setup-patches
- {3 j) Y% Y' L1 q0 }8 o  ask patches [ set pcolor green ]
2 i: @' a7 e  R: ?: T. o0 ^end1 g8 o" L) {# x9 p
to setup-turtles+ G$ o; H: F4 F
  create-turtles 100) @1 v, Z1 o( r8 I" M
  ask turtles [ setxy random-xcor random-ycor ]
5 S8 D1 i$ _% x) T+ x; k% ^end
- X8 F0 i$ h" E  `4 p7 {to eat-grass* p; Z7 ]% {7 R, ^  S$ A
  ask turtles [& X3 ^! [( g9 m% ~
    if pcolor = green [
$ ?/ @3 A# q6 N7 i& o      set pcolor black
5 P% h1 k! h; _1 P3 h6 r2 n      set energy (energy + 10)
  E* g7 S0 p- o" ]      ]
6 b2 S! c# R. O; D+ \& Q* a    ifelse show-energy?
: m, _/ J& s  b$ Y- K0 s      [ set label energy ]
# @( f- z' d, W3 X9 H      [ set label "" ]
. \! q& w1 G" N) d4 g    ]
* f6 t- s/ z" send
, }* O! E- l6 c0 N  V2 C! h5 Eto reproduce
1 H8 B; B9 p5 }& F* ?" H/ `7 J  ask turtles [: x  H: o/ y: w% |
    if energy > 50 [& I' U. \0 j$ {4 q
      set energy energy - 50! g! R( _# p' m
      hatch 1 [ set energy 50 ]
% X: f3 G* M0 `      ]
  K  E$ ]% E1 F; D    ]
8 k5 z8 B: M2 W/ l5 S; l- z; tend1 g) U, F3 p& R
to check-death
3 E# s4 R! P9 T  ask turtles [6 }9 y1 E2 P  g) O. g, ~
    if energy <= 0 [ die ]
2 p/ X- \! m# ]7 o) A6 f) I  N    ]* X0 f9 Y8 N- U# o* P
end0 K( I  Z0 p/ D. O) `! g) h
to regrow-grass$ w" p: Y9 |6 J$ p0 i) o
  ask patches [
- n  p$ Y" s3 u* W0 m: E    if random 100 < 3 [ set pcolor green ]4 E* \. K" x; V
    ]
3 M5 k$ E% q& W5 a" {' S$ Yend( l  a- i" m; I6 q8 K
to do-plots
6 j  U/ l' T6 S/ w# X, b6 T( J4 O2 Z0 l  set-current-plot "Totals"% l/ V6 @; l  W$ o5 {# o3 |1 `! N# y
  set-current-plot-pen "turtles"3 m: V( b- I0 b$ J
  plot count turtles. {. W. r8 {! I5 O: i5 q4 y
  set-current-plot-pen "grass"
* C7 R% c; j) t! B2 q  plot count patches with [pcolor = green]
" h1 i' F1 W! G: Send
: U1 L$ G/ f* Q可是运行时提示no such plot: "Totals"( _& w/ a. ^- _- K/ n4 W' h: ~! a
error while observer running SET-CURRENT-PLOT
- f5 W- H/ K* H) ?' v, @# V( l6 h: I  called by procedure DO-PLOTS; P( Z5 _' N% W" _
  called by procedure SETUP
! L; t) R7 K0 z6 G8 h8 c% y  called by 按钮 'setup'2 q% }1 ?4 T1 \6 Z8 @) M
求大神解答啊
发表于 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
* N; [1 V0 S; L" }6 ?+ P* Z- t建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-1-26 22:09 , Processed in 0.020991 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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