设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12719|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
& H8 s$ o: F: C7 n1 \' A4 |to setup3 A  B7 |) C7 G, h# l; v
  clear-all$ {/ R0 M" H6 O- h+ o
  setup-patches% R& t/ e6 I& d9 O  k
  create-turtles 100
! d( Z0 f8 k% z$ M% c  do-plots- A8 `7 V6 V. j* X0 y
  ask turtles [ setxy random-xcor random-ycor ]
6 @6 h; P& ?5 T+ Mend+ u4 c" i: B/ Q; c% \3 _8 S
to go: b  l/ {7 A3 a
  move-turtles
& l& e/ y2 i/ B7 f. z0 O9 K  eat-grass
% N1 P! J4 n0 [  reproduce9 n  @+ f- q. y3 R* i! K
  check-death2 r6 d! f. Q+ S/ b( v( p* Y
  regrow-grass2 x' z% g$ |7 c: A. g, Y
  do-plots
/ q0 j" f. I; v) F) Dend" n0 E, Q$ S$ ]6 j/ J* l
to move-turtles  C1 q  ]8 w( l
  ask turtles [: @; m2 N- |) {: [* \
    right random 360+ K4 n4 g% j* H* S
    forward 1+ R3 n) v' w' N9 s
    set energy energy - 1( O- }" _. @! T6 C% x
    ]& s/ [" @2 R$ A, X
end- o8 D4 e  U1 w( L+ a7 e  V# e
to setup-patches
% K9 @+ o' P* `6 K( }; e1 v' m: P  ask patches [ set pcolor green ]/ h7 M/ `8 e3 n  `% c! r  j& v
end
8 G6 R2 U6 k) Qto setup-turtles+ b0 F& S2 v  P2 i' ^; k. |# h
  create-turtles 1003 {  A$ w+ g2 d6 P8 t' b! ^& K
  ask turtles [ setxy random-xcor random-ycor ]% V. b7 C8 R7 E; R5 h8 b: k$ C
end, @, {% E; {- H* k$ N; O$ S
to eat-grass8 [6 \  h1 G; C# O* p
  ask turtles [1 A; o$ M3 [/ m2 ]
    if pcolor = green [' X4 R) C1 B+ \
      set pcolor black
( C! G( |, O$ c4 O% @/ k6 k; p      set energy (energy + 10)+ Q: p$ c: K- M5 S
      ]& h7 w1 i. E6 Z  U" Z# H
    ifelse show-energy?. m+ Y4 v) |, r; |) S, k' U% y
      [ set label energy ], o7 X- v/ @2 j4 F# q
      [ set label "" ]
3 J$ r. n! B% i& e: b% i& p, D    ]7 ^1 }( I1 p5 O& k% t1 c& v
end
$ o5 j/ J8 @% v% V( u% S+ o7 Y, Fto reproduce; U7 I1 Q2 e' ?! i+ M! {
  ask turtles [; j2 O- [* D+ |- [2 }+ X
    if energy > 50 [
. K* ^$ ~. U; @, Y7 u" e8 v/ ]      set energy energy - 503 D" L: E/ i: e/ h
      hatch 1 [ set energy 50 ]$ \5 x( c# k2 ^( E" ~
      ], N" Q" I: E0 G# Q" L
    ]
8 `* b. ^, I1 t, gend6 S5 U8 j, \% r. p
to check-death2 P8 \6 |3 z: J) M) t' i8 q: P
  ask turtles [
$ x' j: T) o- S* B* E    if energy <= 0 [ die ]$ a6 O) A& B$ {( [
    ]
0 J, `- }/ H, J+ r" W% dend3 z2 Z1 z6 d( B/ |. [
to regrow-grass
1 l% L- Z. g8 G) ?: W# r9 [3 t$ n  ask patches [
( H: c& m& ?: f9 H+ @3 q1 z& U) M    if random 100 < 3 [ set pcolor green ]" B! s, P9 k2 t7 ?
    ]
7 t1 |7 ~; `2 Rend
- H+ @) w2 V# l1 c5 d4 t9 [to do-plots
% j& f7 b% ?( y8 ]$ p1 ?/ A8 d5 ^' e/ W  set-current-plot "Totals"
& }% v4 H) T1 W, v/ b; F5 g3 h  N7 S8 \5 |  set-current-plot-pen "turtles"
+ G# A& P2 T) c" @6 U/ u  plot count turtles0 M  @+ [7 S% o9 M9 R& a* d
  set-current-plot-pen "grass"
# J/ E, r  t7 T3 l" \  plot count patches with [pcolor = green]
0 H6 g7 p' v& ]) _end3 K5 w( R% ^4 z: F* x& c  f
可是运行时提示no such plot: "Totals"
- j( o9 e: ], S# c; j+ c5 _+ serror while observer running SET-CURRENT-PLOT. W3 p5 _  ~% S0 p' r6 @
  called by procedure DO-PLOTS
3 L' o. P5 _0 ?+ O  called by procedure SETUP' H$ Y, Y7 Q# x9 _; c9 y( F
  called by 按钮 'setup'6 J; l) b) |2 j( Z6 J$ 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
9 x1 t/ o8 `( o: a* d2 D/ q建一个叫做叫做Totals的绘图框就行了
3 j7 a7 C7 s7 j
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-9-12 18:44 , Processed in 0.020131 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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