设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11589|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
5 F8 D* ~" r$ y" f  Fto setup! R0 @/ k! b  B0 t; }* f
  clear-all  _; g% m6 C% w. k+ F; M
  setup-patches" n9 Q4 o+ H0 V! k! d3 I1 e' L
  create-turtles 100
, X( b3 b7 H4 U/ w: {  do-plots8 q0 W3 J- g1 v
  ask turtles [ setxy random-xcor random-ycor ]- j$ s" ]1 R  I" G" X
end
3 X. x  {$ j3 A5 x, _2 Z  o5 hto go
2 X7 J" K* u$ @3 t% j- D! P8 O  move-turtles
' g/ M% Q2 ~$ D  p7 e2 @" A! R  eat-grass
9 N. m; `4 S/ e! [- g  reproduce; t/ j; P0 Z2 s
  check-death
9 t1 j  N' d$ q3 ~  regrow-grass- W1 m4 {9 S# ^# k( E
  do-plots
, B$ h$ B* N/ h# Send9 c) N1 n1 J  T9 v
to move-turtles
1 X$ _8 B- o% O' T  ask turtles [7 \7 L  h2 ^( W' _+ o
    right random 3609 z) W/ V3 Y, \9 u- s  n' m
    forward 1
0 v+ e5 Z. ?$ j6 d- z. r* m2 K    set energy energy - 1( D3 E5 S9 y% F4 R! R
    ]; f# k; |. ?& O5 c9 Q" @
end0 [' l+ ~8 l  m7 }: }& Y
to setup-patches( |8 T. {6 m8 A+ m+ Y6 u& T
  ask patches [ set pcolor green ]& b/ L6 {) J( _/ J
end. P* q- _8 m: Y& c( G" E
to setup-turtles  M8 p( b$ Z' I
  create-turtles 100
1 G% G- f3 H% `% Q7 ^8 D# X, N* v  ask turtles [ setxy random-xcor random-ycor ]0 p6 f7 ?, V  n' k4 s$ Q+ K
end
+ |8 L/ b: ^8 K+ ^' Q! n. E# _to eat-grass2 b5 t7 P# K* t; Q; i
  ask turtles [7 u: j# s2 a$ q
    if pcolor = green [- }4 ?6 i8 C+ A* E
      set pcolor black
9 O% R9 Y4 R: T5 m" ^  S      set energy (energy + 10), L8 F' k# C9 e' D. n
      ]
4 ^( j! K9 R# k& ~- A    ifelse show-energy?, |1 A# c' e0 D
      [ set label energy ]
, w* |' ~1 l  N$ x- A8 n0 }      [ set label "" ]% U7 P. _4 H* h8 R2 T
    ]: E: H) S  N: `6 l* ^
end4 d0 P* e9 W5 R: z, c% D" p
to reproduce/ f- \  b; Y* c! \9 o$ O0 n5 g, ]
  ask turtles [
/ u9 Y1 c7 O+ q; ^* M. ]9 k    if energy > 50 [
6 G  r2 m+ W$ [; g      set energy energy - 507 z+ @- p" h7 N
      hatch 1 [ set energy 50 ]
3 H0 d6 j2 B: M0 S7 h/ B      ]6 ?4 N" S1 D8 @/ k* h5 c/ i
    ]' _7 u  T0 S% ~
end+ [4 z8 V8 H0 j0 I
to check-death, O/ B3 E/ Q/ e2 Y' B  l
  ask turtles [' B: G. Z( p/ q
    if energy <= 0 [ die ]: c1 F& p! g: X4 |
    ]6 H& s* H# ~) r7 Q. T# \" x
end7 C. ?2 L, g+ J3 R% r' \; \: P+ o
to regrow-grass
' z/ f9 O3 k5 A3 N; `  M# t  ask patches [- h+ d, [" J- Q! n- P8 o# t
    if random 100 < 3 [ set pcolor green ]" B- Z% e+ J# m3 L8 e$ p: i3 I
    ]- U3 {! Q' `' |; v7 e4 V
end
$ U. H0 J: T6 r  [0 Ito do-plots9 X2 V1 B3 M/ e$ A: ]: D5 e
  set-current-plot "Totals"
+ M1 K# N, X7 L; f, ?8 c  set-current-plot-pen "turtles"
% ^) c  s- {2 E+ d8 [8 p' N  plot count turtles
) h! b6 A3 w$ y  y* q  q& q  set-current-plot-pen "grass"
' N4 E5 V; p4 V, N1 `3 x3 S2 f  plot count patches with [pcolor = green]
1 z, \6 Q# M  T* ^. Aend; v  D, t5 ^- D
可是运行时提示no such plot: "Totals"
! H, s# L, G8 derror while observer running SET-CURRENT-PLOT! ^: W5 d/ D0 {
  called by procedure DO-PLOTS* w. R# |& [$ o; ?. f
  called by procedure SETUP  C) N  n9 z/ I- o' ?
  called by 按钮 'setup'$ ]$ d/ f6 `- Y' w, Q) C4 r
求大神解答啊
发表于 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% R# E5 l8 t6 u* U建一个叫做叫做Totals的绘图框就行了
7 u$ m- w: l/ u
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-6-11 21:32 , Processed in 0.018073 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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