设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11399|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
5 ^1 ~0 K( A- k% n) E4 L! n& ~, kto setup
5 e# P/ p6 }2 g- ]" K& t  clear-all
1 P3 M& I/ S6 d. ~9 d  setup-patches
5 ^6 b0 B* P( \  create-turtles 100
' J$ f+ S$ U0 a3 B  do-plots7 \2 {3 h7 s' l: v, j2 K  I8 Y
  ask turtles [ setxy random-xcor random-ycor ]" p4 |$ @" [8 @' Y
end. g3 j* F' ?. T# H1 \
to go) ?4 ~) w; G$ ?) G$ I
  move-turtles
: l9 i: g) l& e& ?) X  eat-grass% Q) V0 ]- q5 P, y
  reproduce- \$ X: [  m" m& }/ v/ M" r
  check-death- ]; t9 z) P+ B5 b2 S9 j7 [# o' {
  regrow-grass
" U4 F: |! v" J. X  do-plots$ _' \% q0 Q9 p6 t5 K# R9 Q4 D/ ?
end$ s% N5 k2 l; n  H  Y  D9 }& j
to move-turtles0 C1 `% D9 C( H: @& o  k
  ask turtles [! w6 R, z% t# r1 t/ Z
    right random 360. K. A* I/ ~8 w5 D: h
    forward 1
* x3 U' Y( e2 }$ f- L    set energy energy - 1% K# i4 U2 s( e7 b8 g4 ~4 @
    ]' T/ j0 a( |7 H1 M7 q* K
end
5 Q8 n- W' q9 e$ oto setup-patches
8 x6 G& i* J* ~, L& \6 {  ask patches [ set pcolor green ]. F  O2 w7 d7 D: `7 n. }
end
" p- B+ k0 |, r0 z+ Z  {8 r! U$ yto setup-turtles) a5 Q9 F% G( M. b% ~8 _, v9 b
  create-turtles 100
1 W+ A2 D2 |" Y! N  ask turtles [ setxy random-xcor random-ycor ]6 ?+ F' Q. ]1 b& P- E
end
+ S8 x9 j  n& e: q7 pto eat-grass
7 s" S/ z, u( J$ p1 \  ask turtles [. L/ R0 a% G8 i) M4 ?
    if pcolor = green [& X; {8 u4 v: L0 H
      set pcolor black
6 u- J( T( |# o- ?) L7 Q      set energy (energy + 10)) L- O4 {! ^4 `8 z+ W
      ]$ C; Q  U' i7 a# S  ~, Z
    ifelse show-energy?8 q& L( X# t$ v: V% c7 ?; Q
      [ set label energy ]
% ?  [! y# j# s# \" B) t      [ set label "" ]
) Z  [) ~) o, r& A" r, {0 I" M3 j    ]
0 j4 Z9 C$ r1 [% M- v+ E/ xend
! s( D, J: E0 A" q; u0 \! Z* v( L2 ato reproduce
# a, Y* }( E8 [2 N/ R1 o  ask turtles [
) z& P' U& i% `9 T7 {2 s* R! f    if energy > 50 [
6 u: \9 N& w) L' r# g& Q- u      set energy energy - 50
$ `  |; p& T4 p7 V      hatch 1 [ set energy 50 ]5 m( z9 J2 y, T: G( t
      ]
. l8 }* A6 |9 u, v, W4 z- `    ]
! [, j) x; |) P2 @end3 C0 x) }6 d1 I4 N* K+ p  x0 I
to check-death
3 v* l  ?6 X% c, z6 S9 K  ask turtles [
8 G6 I8 o9 `+ b9 x    if energy <= 0 [ die ]
1 z  w3 q$ y7 H7 e6 V% ~    ]
& @- C/ V' t; S8 \: |6 z4 Iend
; T/ b# b! [" D7 p- X2 q  C, D% Rto regrow-grass, m2 Z2 y' X/ f4 r$ c, e" ~+ F  V
  ask patches [
4 F' [  t1 x8 L, V4 l5 V    if random 100 < 3 [ set pcolor green ]
& p4 [& L( T; u3 t* B( d    ]& q1 e! o: C3 R, f8 G
end
! e# V6 I% R% e  ato do-plots
( K/ E% q; M( x' c  set-current-plot "Totals"$ j! c2 _$ h* T$ E$ f: g& [8 ?
  set-current-plot-pen "turtles": W& |/ m& b2 o3 P' b# s4 I
  plot count turtles, N7 |* y5 T; x/ P
  set-current-plot-pen "grass"
5 V& B3 B0 A0 Y  C3 B# ^  plot count patches with [pcolor = green]! [3 m5 B8 i$ ]/ A; J7 X
end' z7 {( S' V$ J5 @6 F
可是运行时提示no such plot: "Totals"
* }) V' V. Q1 o( W1 qerror while observer running SET-CURRENT-PLOT
  A+ c6 T4 T' c1 I8 T4 ^+ P7 u  called by procedure DO-PLOTS! x* C7 {3 ^) c* q
  called by procedure SETUP) I- |7 M; e  E( Z) \
  called by 按钮 'setup'' b9 `1 q" T3 g$ F/ h
求大神解答啊
发表于 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
7 H9 y# w7 k! M9 H8 H建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-5-25 14:20 , Processed in 0.018820 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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