设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 9821|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
3 c# e% D# G6 G" Y& I7 Bto setup
4 R* A/ w' i( F" G; w# l  clear-all
6 ^0 O; W  R2 S2 r2 a& l* E! m% _  setup-patches& c0 R) g  N' M+ f' ^' [6 a
  create-turtles 100
5 f: W: I- ^$ t; x' B  do-plots& e+ l4 b5 f5 r
  ask turtles [ setxy random-xcor random-ycor ]# R  [/ o6 B0 Z6 U% u" a1 h
end
! \5 G3 ~5 G% A7 ?- o8 F* uto go! B, r$ p1 ]; h
  move-turtles  ~3 L+ r* h9 k9 e& L
  eat-grass
( `0 p- n- P% `/ S# E  reproduce
) f/ i4 C9 k7 d4 W& e  check-death
3 P+ `! L/ `: q0 B  regrow-grass1 g! E* o: }! [+ C
  do-plots& O2 B7 }/ C, g5 ^4 A% K
end
+ j/ p9 A$ C2 e, a7 ito move-turtles# X( Y# b5 ~9 \. _
  ask turtles [/ \+ z- X; Z5 t0 E$ G( X: b
    right random 360/ p: E% r! {2 h
    forward 1
1 E) r; ]' _8 H+ a; ^    set energy energy - 1
& R) F* r) O6 m5 G6 v    ]
+ X1 A6 w3 \& q1 K; k) c8 ]" N5 vend! n+ ^- d8 m: i/ u; M; ^
to setup-patches9 r0 `" L+ v* C4 D
  ask patches [ set pcolor green ]
1 ^5 \! `, w) Q: W/ n0 ]/ uend6 v7 _3 A0 M' C; ^+ Q3 c5 j
to setup-turtles6 L: G  P' {* y' }/ T4 F) n
  create-turtles 100
% O9 G7 f, |0 n7 e" t; o4 F  ask turtles [ setxy random-xcor random-ycor ]3 Y+ w" j3 Z' _% E% d9 Y
end, X7 I; Z2 K- y( D* E
to eat-grass
2 E, M* U7 t, K0 G5 [  ask turtles [
; D0 ~$ {' V; X0 P2 Q    if pcolor = green [; I4 F3 N5 m* X" z& Q% |
      set pcolor black
& b$ r9 W$ @3 n# x, |9 J      set energy (energy + 10)8 n! p4 l/ g3 |  v
      ]
2 _0 {2 l# p& w6 Q    ifelse show-energy?& n: T6 h+ x' }. A) W6 D9 O
      [ set label energy ]* v( \9 }, d+ r) B3 q, G
      [ set label "" ]
% {5 c6 F  n4 U0 G    ]
0 l5 k+ |2 q9 P% r3 ]end
5 F/ y9 Y+ R- {7 Ito reproduce8 Z* B+ K  h" J, K0 t& s' C7 }/ i
  ask turtles [8 b6 ]/ T5 \3 H9 N
    if energy > 50 [! U  K5 l" u5 ^0 I. L8 s
      set energy energy - 508 d; k5 c( t. e5 u% D7 W
      hatch 1 [ set energy 50 ]& [! K4 I% e9 s$ r9 Y4 e7 J( d
      ]& I3 @- r6 C- c
    ]7 h" `' d1 S; u) u& T! F
end
+ Q$ o! Y9 H9 P  T2 v3 {to check-death
0 Z+ R$ t5 f7 ~5 f) M  ask turtles [7 I2 V  |& u1 E$ u5 E
    if energy <= 0 [ die ]" M- a& Q4 z$ J
    ]
" \8 q2 J) t3 d/ \+ [" eend% r! w! K- E8 P9 F" G2 ]
to regrow-grass
8 A" k/ w3 Y: j" W+ `  ask patches [
. B0 A/ o  H' t7 d9 Q( @    if random 100 < 3 [ set pcolor green ]
% r# l+ a, }0 b0 R6 n    ]7 K) s3 }, `0 M% [4 t# w% h
end* A. |! o& Y6 l
to do-plots
0 K/ z; i6 J5 z, V) e6 D  set-current-plot "Totals"
5 ^5 o3 V2 Y, Z6 z. V/ m6 [  set-current-plot-pen "turtles"
( R- u, c2 v9 D& g  plot count turtles; q" D! B. S  y2 i% f: S  S
  set-current-plot-pen "grass"$ u$ {, ~6 m* R9 u5 ]# l+ ~
  plot count patches with [pcolor = green]# V  C% n' B3 c4 G; g( v. I
end
* U% [9 I0 l" }0 W7 C* t可是运行时提示no such plot: "Totals"
& g/ E8 t+ M9 H# U! s* S! U8 F! Aerror while observer running SET-CURRENT-PLOT
+ G: H  J4 A( f. c& h& w' i+ |  called by procedure DO-PLOTS. Q+ W! X5 e( R% o
  called by procedure SETUP
" D) _7 ^2 T7 R. k  called by 按钮 'setup'
% E! s% V4 c$ q* |' L4 A/ ]9 E/ X& L求大神解答啊
发表于 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 n5 N" J$ t( F
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-1-23 21:00 , Processed in 0.019247 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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