设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11297|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]2 q5 f$ k  p- U; I6 R  n+ q
to setup+ R' \* m+ p2 [2 @0 e/ C
  clear-all
; c5 B5 f9 U; B: C- k' F4 P  setup-patches- f( F8 A& S" L# L7 F9 C/ K
  create-turtles 100" g. j! x0 r; ~! h" \$ i& q* b
  do-plots# `, h+ r% R( \$ c, f0 N
  ask turtles [ setxy random-xcor random-ycor ]
' v4 l: a  V% L0 U5 G" t% a  ]end; H- c% T! @  [2 [3 w  V
to go
& E( @7 [3 u7 D, B: e2 R* U  move-turtles6 F+ Y! [* }( ~: k
  eat-grass
; k1 Q; |6 u, a) w$ W  reproduce2 [1 W% F4 W; r3 V# w$ b
  check-death: @) _) B4 ~8 T, e6 G8 e
  regrow-grass
8 x: }& f$ |4 C# a4 @/ m  do-plots
) N! X: b! F  {. hend" c: {2 P) Y9 d/ q4 @
to move-turtles8 U' H. r# J& {
  ask turtles [
4 z- V& Z! P3 {% ]( a% ~. X$ o    right random 360% P- E% t. r$ H" ?
    forward 1
& w  j- C' t4 c' Y! N; c    set energy energy - 1
1 C- A1 a  L* }$ a7 U# {- r, J6 z    ]0 D$ V6 J; U' L) L' D! x* f
end
7 J! Z, a" }! xto setup-patches
6 N$ x4 ~7 q3 N8 s- \5 g! M  ask patches [ set pcolor green ]: [4 ~, L9 a* d2 {
end
/ N7 q2 X" h9 a+ b4 y3 Tto setup-turtles6 ^4 v  l' G$ W  t
  create-turtles 100; N( d; t4 p% R7 O) d9 c$ i
  ask turtles [ setxy random-xcor random-ycor ]
' s/ z: l% p3 z9 C% q1 o. ?end
. i  k$ G  Q- _) q5 r1 Uto eat-grass. n0 g7 x3 r; B. w
  ask turtles [; C" C. X4 A" b' f& |( p2 l
    if pcolor = green [
1 X# F' k0 V& S2 f' ^  [      set pcolor black
8 I4 q5 E9 h& O+ L* c      set energy (energy + 10)
2 x" x' ^5 i( C      ]
# ]7 Q3 w  w1 M3 E. s' p9 ?  T. w    ifelse show-energy?3 |5 ?4 N/ y0 N' o: O* E5 z3 c
      [ set label energy ]
9 f$ o8 D- F7 u! a" u+ \  a" C) n4 ^: u      [ set label "" ]6 t/ ^5 p3 n+ l% W7 P9 b* v8 T
    ]
, F, K8 X1 s8 E8 A8 e4 W9 V" ~end. }  `6 i7 u/ f# k7 c$ ^$ h
to reproduce
' c( Y* O- ]0 K* A; y  ask turtles [5 R6 P2 [5 m7 U$ ^* X
    if energy > 50 [8 G" W) x" s: K% c0 H; {# M* f
      set energy energy - 50
0 e3 Z9 l: w4 ~      hatch 1 [ set energy 50 ]) D  {9 z3 B% p: q$ u
      ]3 R& k. a5 ?& A% X  S0 f8 w! d
    ]$ w6 }( O. [3 r, h# }% I  ]7 n
end
1 q# n% O( G* M$ gto check-death1 X1 {% \1 C1 v; ]2 @2 L
  ask turtles [
/ f/ c( W+ O1 [8 N7 n. z4 _    if energy <= 0 [ die ]% G3 i3 v7 Q' C( B8 w/ h! J
    ]
8 U! o2 W% \+ z' |end
8 [$ F- Y6 T$ F! C) ~# A2 X! W5 J+ Mto regrow-grass
4 B: n9 L7 f$ j8 S7 l9 C9 p% \0 X; H  ask patches [
" b# U2 |4 }3 g/ I. {    if random 100 < 3 [ set pcolor green ]
: s  q, l2 T& l4 U# V    ]
7 o( _" U5 l) t( y: Y3 g. Z  c5 Q2 Oend" ?$ _& m# N# q' H/ v
to do-plots, x" f4 [- t  V0 N7 M( |6 G
  set-current-plot "Totals"/ P; T6 Z3 c3 Q0 R3 i7 x6 y# ~% p! K& T
  set-current-plot-pen "turtles"
$ W6 @2 t& ~3 `( U9 n. }  plot count turtles8 d6 O5 l. d$ U, U3 w& ~
  set-current-plot-pen "grass"/ T7 y" J1 X* R8 d
  plot count patches with [pcolor = green]; B! P( R7 l1 y1 x; b9 B3 @* Y
end
0 V6 q1 w- M) e1 ^1 [# @2 J可是运行时提示no such plot: "Totals"
; {1 i9 y, J2 t. `/ n  O) d. Werror while observer running SET-CURRENT-PLOT2 @/ |. F7 u" v1 X4 r& C
  called by procedure DO-PLOTS3 Q- x8 }' ?; n# S) f3 V
  called by procedure SETUP; o% Y- X& C2 Z; d/ s% f2 C
  called by 按钮 'setup'" ?4 n) s- [" l' b( Y1 z/ [4 D
求大神解答啊
发表于 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 / F  Y; B, y+ u; I
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-5-15 23:24 , Processed in 0.015044 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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