设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11670|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
& V6 m) t# M6 \! g, c4 D" Q8 o3 Vto setup
! W; @( l* m9 y7 k+ g2 c. H  clear-all# A; n) i4 l2 a2 U$ z
  setup-patches0 ?  @' j) F1 \1 \
  create-turtles 100
: |" _: F2 ^3 C$ S2 j: D0 u4 y. g, M  do-plots; }* C0 o8 W1 m
  ask turtles [ setxy random-xcor random-ycor ]
# i! ~. q& q1 w; O$ C- cend+ ?* L" D& S1 s) L0 K" F
to go3 `; h# x; ?& }- w6 U+ A
  move-turtles
0 [. E" G$ _* h  eat-grass9 Q& V! y( A# I0 e. c( [1 S' V- ]
  reproduce
3 P- y: ~7 J6 R0 K# J; }1 D, {  check-death, |+ \* c) Q# @# W& w$ f
  regrow-grass0 k, b3 P1 M* O+ R
  do-plots
) R5 h& O" t3 \" c  P1 Wend
/ C2 M! T4 J6 W4 |to move-turtles5 p; a2 n# _8 \! X
  ask turtles [. P4 J1 S9 i7 x6 x0 c1 x
    right random 360
( r# i2 N1 _- U" r% Q    forward 1
% A& U2 D9 @2 }, O! H    set energy energy - 1
8 v- ]8 }  r) Q    ]) z3 M# |% E5 L/ F, [
end
, B  e& d# h1 }. P7 |to setup-patches
4 O: `5 a* o) x" u4 {$ ]  ask patches [ set pcolor green ]# f+ U+ w% x/ F) c8 N( e. H
end
$ x2 H  S9 S, [5 q+ n4 W, `# ^to setup-turtles% u6 \; W9 L! m% L
  create-turtles 100  i. o4 A% S" B* Q. S. C3 N7 N/ [
  ask turtles [ setxy random-xcor random-ycor ]- Y! ], |( i/ {2 B% X- y" s1 ]4 F
end& b& B/ f9 M" M
to eat-grass
8 R% K/ }4 I8 U! O  ask turtles [$ |5 ]% t& i/ g4 A  p
    if pcolor = green [
0 T0 k( H9 x5 d  ^  F8 P8 D      set pcolor black
3 y7 G) w( M  s1 I) T6 }2 w      set energy (energy + 10)
; e6 i: z8 T% O9 ^      ]
5 y* \# }9 y. \( H% f# B! j    ifelse show-energy?
5 S1 T0 m$ [4 D6 b( G      [ set label energy ]
' c5 H: d2 A0 _8 B& i6 \      [ set label "" ]6 p8 u: s8 g& m, X1 n4 a
    ]- j4 a- p" y0 p7 b) e1 z3 q4 ?
end3 p& M: W& I  m' c
to reproduce
& b& h* l/ F5 w  ask turtles [: e* x, ]5 G5 N, q$ R
    if energy > 50 [; i4 {. D" G& G' D4 A% m
      set energy energy - 508 i  j$ ^# \3 h
      hatch 1 [ set energy 50 ]
: |4 H  U& r1 [' T/ ^      ]. D2 v8 }" y& m* e2 t
    ]2 @" F" u( M! m& s
end
! b# F/ B3 I( a- Sto check-death3 u1 }* K- \" ~& S% p3 V
  ask turtles [
" Q* ~- ], Y5 F5 ~5 U0 ~, k    if energy <= 0 [ die ]
" ~, t9 ^5 @6 }    ]: B$ ]1 d- ]6 U  D# s
end
6 a9 n% l5 C! V- x* v8 \. E0 l' Dto regrow-grass
7 W0 X4 f+ S8 X  ask patches [4 N" P" w0 g# i. ]4 G& y
    if random 100 < 3 [ set pcolor green ]! B) t( Q" C) d1 [  m- e% T
    ]' d; F; Q1 S4 A6 z& k# q: }
end
0 A" M  {6 \+ Bto do-plots. J1 h+ Z: P9 P1 f3 z: I1 I
  set-current-plot "Totals"
9 j( u' K. w5 n/ l: ^  set-current-plot-pen "turtles"9 ~: M" }  z8 `1 r6 t
  plot count turtles
) c% G+ k/ K% {" l* a: |8 G6 ]  set-current-plot-pen "grass"; r$ o/ D. q9 [
  plot count patches with [pcolor = green]
2 j, J4 x- \6 @& v4 f& ]end, `6 ^6 `1 C1 m
可是运行时提示no such plot: "Totals"* k- S* W" `0 \* v6 l' U
error while observer running SET-CURRENT-PLOT( R5 X$ B8 A- g
  called by procedure DO-PLOTS8 q3 Z6 K( d% \. L0 J
  called by procedure SETUP3 z% ]+ L. L; S5 r! v
  called by 按钮 'setup') u3 N0 @+ v7 E0 q
求大神解答啊
发表于 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 & g# J3 v7 e) K  H0 ^
建一个叫做叫做Totals的绘图框就行了

8 h& W; I) Y6 m( b1 @6 m哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-6-17 19:20 , Processed in 0.016941 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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