设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10070|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]* a" R$ `/ z  R% ?
to setup" R8 V  \. z; B# c5 q" Z/ s
  clear-all3 l& O) {) [$ s1 ^3 s
  setup-patches
% x/ V5 r) s, ?# |% n  create-turtles 100
' _$ h: X1 R2 J8 z$ R  b  do-plots3 Y* O- L. f5 X: J
  ask turtles [ setxy random-xcor random-ycor ]  T! K# D  z' W, ~. {# k; y
end
( m: e+ C; j) _: o1 q% x7 g; Y% Jto go4 v0 x6 h7 P  T/ b
  move-turtles* M$ c9 S) t* t/ ]
  eat-grass2 J. ~  K: {; |# j+ r) k
  reproduce
6 b- d1 m/ n9 s8 X! t% m" g/ ]  check-death  s' _% y1 a+ s
  regrow-grass0 K; y4 ]' G! I* y
  do-plots
' d2 \+ V& y' [end
! b( i0 h5 _& s. lto move-turtles
" Y3 E4 f! a- e/ y4 h2 q0 D! `  ask turtles [8 J+ k4 o: W+ e3 j4 T9 `
    right random 360
( |9 B. i" ^( i    forward 1
+ _, r4 J, V4 i  V$ ~. h    set energy energy - 1
0 ]3 }. \+ X+ g. n( O    ]) u3 m) a  U, s* h
end% U3 X7 c; m: |. ^2 U( X  X% ?: ]8 Z
to setup-patches
  {  X6 n: \5 p  ask patches [ set pcolor green ]
( A5 P+ d8 Z7 X: h  a4 x# b+ Pend- A' l2 t' }% n2 a
to setup-turtles
" l) x  ~& p0 X: K0 e  create-turtles 1005 r5 ]: E+ u! n1 D
  ask turtles [ setxy random-xcor random-ycor ]
( I* b. \$ f2 F8 n4 _& j, }3 cend
4 E! |' s& y) O8 I  Xto eat-grass
% Z1 S) ]; O4 u' A( H  ask turtles [
) r) f/ V* }0 h. u1 x    if pcolor = green [
- T7 L6 b# Y, B* ]      set pcolor black% |' W  ?7 q+ R8 N
      set energy (energy + 10)! I. k# f! D( Y6 Y" r6 Q7 B
      ]
  h# U5 M' {1 h" x. B    ifelse show-energy?
( d0 G- q5 }% |# y5 u0 f2 c      [ set label energy ], |9 y# l: m& }& N
      [ set label "" ]
" g1 X. N6 k( j7 X( ]' _- j    ]$ v2 S, W* ~. j0 N! j7 I
end
2 [( ^- W9 P- H5 d: R: G  ^3 pto reproduce) H" B7 t8 @8 V+ U. x0 n
  ask turtles [$ f, Z. S! H  N: V) ]& q1 V
    if energy > 50 [* k! z* l) G$ S# {
      set energy energy - 50" J0 H3 i+ e1 O) z
      hatch 1 [ set energy 50 ]; I0 _: d; h( J2 z2 n3 [  d
      ]
7 a& Z% U1 |5 v; U    ]8 ~5 R, S3 r3 B) E2 Y% `
end9 V9 A- l8 n% k0 i
to check-death$ u- I) `8 u8 k( y& c
  ask turtles [4 ]- |5 q! T* D6 C4 @
    if energy <= 0 [ die ]
8 c2 s$ M% K+ S9 h3 B& L) s    ]
6 l" l, `4 h/ ~2 N) Fend
# d3 C) c$ A( O; tto regrow-grass
, Y8 N5 Y$ `( T8 h  ask patches [
, H3 g  _0 L# o1 f& w9 R    if random 100 < 3 [ set pcolor green ]
$ H# E" F" }! Q( q# x* w  d    ]9 _' G" J/ y+ `( U' g
end
! ~0 q" E$ u7 x' K0 E6 dto do-plots& g6 E' D) [& p9 V+ \, m$ ^
  set-current-plot "Totals"
( C  Y1 R" q, A4 m7 O  set-current-plot-pen "turtles"
/ i7 Z4 ?) W6 ]  B) R& Y  plot count turtles" ^4 }, B5 e- s) l  A. o
  set-current-plot-pen "grass"
: U5 h) H" F% ]9 K  plot count patches with [pcolor = green]. R& s- d* J, K( Q# n9 ?
end
: m, X7 x; G3 }可是运行时提示no such plot: "Totals"% y: _0 f9 i' Y/ ^) `2 C
error while observer running SET-CURRENT-PLOT* Z: x' \1 R. r$ L3 Z! G  s
  called by procedure DO-PLOTS
% e5 V! e. N& k  L. V7 o/ z* Y2 K  called by procedure SETUP; b9 }/ q9 l# m
  called by 按钮 'setup'- ]" G) P' `+ A2 Y
求大神解答啊
发表于 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 * B! |, N2 o. x+ v" n7 u
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-2-10 01:31 , Processed in 0.017734 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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