设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11836|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
( A: g) |5 ], {, [+ B, fto setup
3 g+ S, W; `4 N' S& D  clear-all
5 o4 x6 Z! m' @* M0 X1 e( A  setup-patches
0 H# _. d; a: p# Z  create-turtles 100
5 u1 ]% `' A7 ~( t5 V6 N' Q. X6 z  do-plots: Q- o7 y# N! J' \+ o( u$ V
  ask turtles [ setxy random-xcor random-ycor ]5 \! V$ T$ \0 z6 L9 N6 {" y& l
end
* l6 u/ |2 L- ~0 X1 A* Vto go) V: L7 ?/ g% C2 \* `( J/ S# y
  move-turtles
+ A0 n7 ^) X- ~1 Q6 J) D  eat-grass7 P' q, C3 |) p+ j2 N7 d) ~
  reproduce$ }' t- b8 v/ \5 U7 q+ f
  check-death. |. i3 O& ?5 d5 C* X8 I  P
  regrow-grass+ s( M; B/ V( l6 H9 ^9 {
  do-plots* Q; A" x6 O7 T. p
end+ q( B' {2 ^8 F0 n1 n/ s; {! ^  g- J
to move-turtles, U- P* {% N8 v5 W: K+ ?/ h. N
  ask turtles [5 E( n5 s+ D  z" c
    right random 360
/ L6 e: R+ ?/ W! k% r    forward 1! q# U9 N3 I% Z( F
    set energy energy - 1/ L' F3 j8 r& {& @5 B
    ]% `9 c$ F$ Z% ^% P0 X- @
end
! d9 b" R2 i- I. Eto setup-patches3 o, ]; p* `8 O; L' b$ g3 b/ A
  ask patches [ set pcolor green ]* u0 ?, c% B% o
end
0 c$ Z7 Q& S3 t2 _- x/ ^, vto setup-turtles
4 O, T9 @8 t0 e5 c  r+ a. `: i  create-turtles 100
6 u" W6 W$ g+ o5 ~, s+ z/ _1 I  ask turtles [ setxy random-xcor random-ycor ]: j/ N  A- n5 V
end
8 v5 }- }; l0 O3 M" b% Oto eat-grass  W% s+ s( M( D8 S
  ask turtles [- C7 V' J6 N2 D6 q" B5 Q
    if pcolor = green [  q4 T. @5 W  K7 X, X6 p
      set pcolor black
0 a4 E% b7 y7 V5 w6 R* r) j5 T      set energy (energy + 10)
( h7 y" Y( T( ^0 [      ]
' o9 L. H- E2 i' o. M7 a) l    ifelse show-energy?# q- @5 ~6 A0 Z5 c
      [ set label energy ]) y  d& b& e1 ^$ s
      [ set label "" ]0 L8 m! i- _. g2 R+ R
    ]& P: x; F- G8 \" m! G' g
end
) j0 M) q, z) I( D6 e2 Gto reproduce
% x2 D+ l3 p& T4 J  ask turtles [
' Z2 o$ w! @9 ]    if energy > 50 [3 I7 S1 v( y  @5 Y
      set energy energy - 50: E8 O; ~0 ^# L
      hatch 1 [ set energy 50 ]$ R7 M& T& R1 \$ D$ p6 t2 x
      ]
; b- D& y9 e# i2 N2 n& t    ]
- d( I4 \8 n- y0 nend
; x" r, D: x" N; M) Vto check-death8 i' W% c! S9 i0 Y2 D% I1 f
  ask turtles [" a) f5 h: |! v) l
    if energy <= 0 [ die ]% G+ a3 n* x+ f
    ]  h7 h2 C, J3 z/ q) d
end. ?) @& G, T! \$ V* C1 y+ p0 R: ]
to regrow-grass- ~) w3 O( W0 ~  m8 ?/ u6 L) }* [
  ask patches [- R% a; t( ^9 t* X  k& v
    if random 100 < 3 [ set pcolor green ]* [1 k. Q$ n% k4 Q
    ]
, x6 _. d" s2 M  ?& Iend9 G0 n  X( f5 i& z
to do-plots, M) F* E) U& F4 |% ?" a7 e3 l
  set-current-plot "Totals": ]1 E/ f# q5 u! u
  set-current-plot-pen "turtles". \$ d; U/ T  f7 }' a+ J' r
  plot count turtles
1 s2 e% R$ U6 V7 {/ H  set-current-plot-pen "grass"- s4 }8 W' W! i" I
  plot count patches with [pcolor = green]2 A4 O5 a: r0 v& c
end: u$ B. o6 x/ {0 e0 k) {8 |
可是运行时提示no such plot: "Totals"
3 ^! B. m  R/ Rerror while observer running SET-CURRENT-PLOT
# t% B. H. n6 |+ e  p  called by procedure DO-PLOTS
# X  d6 B+ R" V' R3 \& ]) D! t  called by procedure SETUP8 h8 h. c) v# d) O* F2 h' K
  called by 按钮 'setup': x& _& B6 Z. o( l9 p
求大神解答啊
发表于 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 8 H2 F  d1 o! ~5 F1 y' Z* H  ^
建一个叫做叫做Totals的绘图框就行了
; g3 v0 D& L( ]& e6 F5 O
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-7-5 01:55 , Processed in 0.015660 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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