设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 8515|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]2 y7 x3 \( j0 r
to setup* |+ m, p* p/ b3 J/ n6 k5 ~
  clear-all$ {0 W8 O6 \8 I% p1 ?. T9 E$ d( k  {
  setup-patches
, g& T8 b$ o+ y* y9 S) A8 H  create-turtles 100
* b* d0 g3 q, C; H+ S! Y' S8 l1 }$ ?  do-plots9 Z+ K) I( O6 X, V" ?4 ]
  ask turtles [ setxy random-xcor random-ycor ]' o: Q0 V0 r+ |. o' f
end
% B5 v' ~; n3 [2 X5 b3 y" O" m" Uto go4 J8 B) k2 R2 Q0 C; d: n3 X/ d: }
  move-turtles9 B% x) f6 B5 e. x  c
  eat-grass
/ H" Q9 z' J' H6 m6 k3 ?  reproduce1 C7 \+ l- Z) k! e) r
  check-death9 M! ^( I4 `# i4 n
  regrow-grass
: [. n4 Z/ `# Z2 V+ T  do-plots$ o$ K9 ~* P# V( \3 Z$ U7 s* @
end$ b7 r( y# O* N# x
to move-turtles
) |' r% d, h+ |7 d! z8 v! k- e; ~7 K  ask turtles [, j) E) f- g& k' x
    right random 360+ [4 L- s1 t+ ^9 i
    forward 19 ?: T* j0 p; y5 _1 i
    set energy energy - 1' b: v0 D* n8 }/ p& G8 U$ k
    ]5 K1 Z; K+ c5 K1 g/ Q( {1 O
end( n6 u- L6 r1 l0 E% a- I& [
to setup-patches3 X0 U  X3 n+ x6 ]2 g
  ask patches [ set pcolor green ]* D6 T! Z! N5 u' k) S
end
, O# }' g' T2 u5 \3 Kto setup-turtles. I3 ?, y6 |. K4 o7 g; ?7 `
  create-turtles 1009 d7 S& q/ }- ]: i
  ask turtles [ setxy random-xcor random-ycor ]2 {# \8 c# X1 u! H0 q- K
end' i) D/ S5 D. B
to eat-grass
- U( Q& y1 O  q# I9 J  ask turtles [
  K2 {. r; l. g5 W: B0 B    if pcolor = green [; X8 J; d- \( a6 x( J% w
      set pcolor black
( h& @( Z' H. A1 _      set energy (energy + 10)
5 U- E3 v9 K' A* J' B      ]
1 {, l6 l' S! |9 J2 T    ifelse show-energy?% v4 C/ P) A3 z" M( g6 X6 y! L" u) k
      [ set label energy ]
. K$ J" s" ~- y3 L6 V1 b7 Y      [ set label "" ]
, ]% Q/ b% ]. I& _- ^: H2 l- \    ]
) Q+ _9 Q% g* _' gend& B" n' `# {- c. P
to reproduce- M. S! v5 [; P6 _1 O. N3 a& F
  ask turtles [
1 V1 \. e5 T0 B/ |0 C0 b0 s- y    if energy > 50 [
- E$ J1 R: j9 O+ x/ n      set energy energy - 506 X( G3 a7 i, r; y' P8 c
      hatch 1 [ set energy 50 ]& K0 a  t3 @! a$ f+ d. C
      ]
( B9 z8 H) v/ l' e+ [* P    ]# Z6 v9 X* l# R* }/ d& e
end
' P7 S4 J) `# x" ?# i" ~to check-death
2 l4 G# S6 G6 ^) I  ask turtles [
; \+ \& R3 m+ ~- ~5 `. X    if energy <= 0 [ die ]
6 m& F8 R0 s% I. |; Y    ]
3 h) b& J' D/ O+ v, k9 Rend* `$ ^3 d1 ~2 s$ H
to regrow-grass
4 ^5 G9 G6 j5 K8 U  ask patches [
: b8 d/ u2 B0 C2 r! b    if random 100 < 3 [ set pcolor green ]; D0 }8 ?! Z# a" _, Z0 |- s: G
    ]$ y- J8 \2 f" z5 l+ ~. c
end
8 L; c  N" \8 l0 |, a  s( |to do-plots
$ |9 l. l" H6 h) ?  set-current-plot "Totals"
* a- Y) K4 u  w* x  set-current-plot-pen "turtles"2 f: @% R! ]. u: z7 X8 \# f
  plot count turtles
3 u# ^7 T9 z6 G$ A& s$ g  i  set-current-plot-pen "grass"$ G0 u: E4 v7 @# ~9 W& q; s- q% d
  plot count patches with [pcolor = green]
: L4 {4 O* V% W1 u" V% ^' ~end
( ~7 U+ w8 ]0 h) o9 P  C7 |可是运行时提示no such plot: "Totals"
# t$ s/ F/ w2 I+ E4 oerror while observer running SET-CURRENT-PLOT
0 ]% O1 P2 S! x1 k$ d# T/ ^+ |8 G  called by procedure DO-PLOTS* c2 V' ^6 n( B) w5 f3 C
  called by procedure SETUP
( `, f8 n5 p' q* }; l7 m  called by 按钮 'setup'+ z+ X1 A  q+ c" q4 e
求大神解答啊
发表于 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
; f+ z  t1 s2 E6 o$ n4 }. d建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2025-9-14 00:28 , Processed in 0.016685 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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