设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11541|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]! q, o, p2 y8 i  n) |' o0 \
to setup  c0 r" y# c: }0 A" R9 s0 }
  clear-all. Z( J5 c9 G' y# U
  setup-patches. z9 n% _: i: i0 ^1 d2 ^
  create-turtles 100- d0 W5 d1 W4 `7 J# o' D3 [7 y
  do-plots
! K( J4 _9 ~- s6 g" n7 A' h  ask turtles [ setxy random-xcor random-ycor ]
+ D6 g, m# V9 p5 z3 F* n/ f+ ?end  W  U. H2 Y; s' `& A! O+ M
to go1 n  f- J! `3 Y" M- ]0 b
  move-turtles" K* K) s1 K/ ?* _% L
  eat-grass1 a/ x+ y; s, b& t! d
  reproduce: Z3 `  W# Y" b+ V3 ?* \
  check-death  v9 u( b4 B0 z5 \& {. m
  regrow-grass5 y6 I# {$ T1 c! R2 Z" h# q
  do-plots
  P0 j+ r2 R$ H& R6 F: z0 Rend: D2 B% R. g. p  Y8 a, A
to move-turtles
$ U& m4 {; n1 a0 `- f  e, ^1 |3 z  ask turtles [
% `6 G  G  U2 m5 M& X! j# Q: B: X    right random 360
8 D$ t5 u! M+ ?    forward 10 C$ c+ c/ P' Z* i6 E
    set energy energy - 19 N: f0 C0 t% |2 @: Z$ \
    ]
+ A! }- t& m2 Dend" V: R* @) H* i: ]" s7 d
to setup-patches" {+ c6 @* [1 u' S8 D: M. c
  ask patches [ set pcolor green ]; h' O2 Z) o, C( k* x
end
0 v" ^' `* p/ f, u9 M4 V1 kto setup-turtles
4 s( ]$ b  @0 L2 T  create-turtles 100
! r9 [1 r6 t* b7 m2 q  ask turtles [ setxy random-xcor random-ycor ]8 J: q% R( ^6 i5 f+ |
end7 j3 B" ~3 k# S; E) N1 D# {" E
to eat-grass3 e" L% r8 _$ N# {8 U
  ask turtles [9 S0 Q0 d! d1 X% L: I- Z+ d! G% Z
    if pcolor = green [
8 I1 m1 |" A$ W! P' E$ n- c2 N      set pcolor black- E* w! }  S' E: |+ T
      set energy (energy + 10)
2 l; ^9 r! y4 i      ]
$ L7 v0 Z' {$ W% W6 j1 V, R* f    ifelse show-energy?
$ u$ j( H% Z- i/ z      [ set label energy ]+ r& l  z& E: e* Z
      [ set label "" ]
& d3 b. p) s& l$ o- r1 g! |    ]) S$ P& w) C0 T; t: _/ I
end
9 m! E2 }. ~$ Jto reproduce+ ?- X% q2 l; V  N: J
  ask turtles [0 r" A4 x5 y- [
    if energy > 50 [
7 Z$ C$ @- Q( j      set energy energy - 50
1 ~! v* ]8 c) h2 E& X! J  x; }9 u      hatch 1 [ set energy 50 ]
0 ]; h4 \, V+ p% D      ]5 ]! x+ J6 G8 }$ K
    ]! Y, q: O, H! o) q
end7 ?3 W" n8 [0 f% C5 k& |& p
to check-death
+ T9 I8 F/ L7 u, R  ask turtles [& P: Y1 C, t9 W+ f" Q' Q
    if energy <= 0 [ die ]
0 g& u( o/ x( h7 \0 b4 U& d' J    ]
. M* h7 h9 u9 i, U, {' M4 ~; Iend
# v9 _' m( n1 C% S# l, n: |1 Z5 W: ]to regrow-grass
5 e! Y1 e# S' D2 O/ C7 Z  ask patches [
* P* l8 P; B* |: i! B' o9 X2 |    if random 100 < 3 [ set pcolor green ]
( k$ p! x/ k  S3 a$ p, \& s    ]  t6 T3 K$ A) s3 u# a, t
end) H8 \5 Y, T4 z4 N
to do-plots
6 b7 f% M8 s0 S+ @  set-current-plot "Totals"4 a: A* p5 A% E$ f1 |' b+ I
  set-current-plot-pen "turtles"
) S* u* Z' _  u  plot count turtles
. I7 U+ M- g, Y7 y1 p( @  set-current-plot-pen "grass"
/ |( a7 O. ]# E: ~2 S# l; [' Q: L  plot count patches with [pcolor = green]
) b; M8 `! n  Z; `, q8 bend; }* [) T4 q6 j3 f4 v1 J5 o5 a. c
可是运行时提示no such plot: "Totals"/ F$ f8 J8 x# S+ ^, k4 q6 C
error while observer running SET-CURRENT-PLOT% U9 Q# _) Z, a8 ^0 n. d
  called by procedure DO-PLOTS# {% f& n% z, S7 `9 Z
  called by procedure SETUP
2 W$ l/ L5 r" _" g: j  called by 按钮 'setup': A/ D/ ~0 I" G# d5 i* B
求大神解答啊
发表于 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 ' r. i) S# T) e, i7 R
建一个叫做叫做Totals的绘图框就行了
# K! g7 \5 q4 J' B# }; h
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-6-7 07:07 , Processed in 0.016831 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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