设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11753|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
4 }, B1 N3 G; Uto setup* Q6 s' `& ?) i' f
  clear-all
: c5 z1 I5 b9 R& d+ J  setup-patches1 H2 y, W9 z) L5 B4 ~/ r1 R- {
  create-turtles 100/ g3 ^6 m2 w/ S4 D( ]
  do-plots, n, b  Z$ ]. `$ f
  ask turtles [ setxy random-xcor random-ycor ]! s% m" b' @* U! d3 v; `
end
8 l1 Y$ D% P3 r9 k& |8 a- Wto go4 U' m# g; y7 L. H+ j
  move-turtles
4 U: |! r4 J8 ^7 I: V" U, z) H: n  eat-grass2 B# h0 ]! E6 V
  reproduce* |1 n3 i) L4 K7 [4 o2 ?0 x% y& ?
  check-death
* c7 E- P: x% X) P. C# J2 q% o  regrow-grass% D* E3 Q0 I5 C+ P  g
  do-plots% b/ @& m" b1 W" p& R, f4 k1 M% d
end
/ f* X0 ~8 q1 `to move-turtles5 e: t) c. H/ ^" Y, \6 d
  ask turtles [( o6 i* b# G% b7 ^
    right random 360
4 _  u: `2 k3 W8 v7 N* g    forward 15 c$ n/ n) u; G( A' C
    set energy energy - 1
( I( I+ \3 w3 ~+ e4 O    ]
' M" I# N/ H( ~2 c8 aend
  B/ K6 ?! O( xto setup-patches  z  |8 o6 j0 c
  ask patches [ set pcolor green ]
% l2 k5 `( \* q# L. a+ k% o% Y4 Rend/ L* n4 a7 q9 o
to setup-turtles3 N! e* j4 S2 X% B# R0 k
  create-turtles 100  s, e, \' z  k+ X- c& F
  ask turtles [ setxy random-xcor random-ycor ]& g* D: m6 w/ }% D  }" I3 t. Q
end
1 i1 }8 l" K3 C5 Q* Mto eat-grass
% {0 O" T5 H! V8 K+ D) T1 G; @  ask turtles [
8 J+ L4 m4 v- i8 f, a* m    if pcolor = green [
0 @$ l5 P: C, d8 }7 {6 p' `) d; w      set pcolor black
7 m4 n; i1 v6 N# f3 r$ D1 T      set energy (energy + 10)
$ y' K1 [1 [0 K0 N; \+ g      ]
( C9 B+ t" t1 {) h$ o    ifelse show-energy?
2 q; B% ?, U& F5 L8 m      [ set label energy ]- \& k2 O- h" r- o3 L
      [ set label "" ]
. c1 O3 C3 I  N; ?  C. I    ]
2 P, _: \+ v5 E0 f9 ?) I' T% E! Aend9 @7 t( V, M$ P8 b
to reproduce4 `' U8 I+ b* s; g
  ask turtles [1 _1 g9 L0 g/ y7 \# X* Y  A
    if energy > 50 [: o2 v2 ?5 C$ s+ J5 m
      set energy energy - 502 G+ }" x6 W/ e* E/ I+ `
      hatch 1 [ set energy 50 ]
; j) }) I! Y+ n5 x      ]
8 E. S) X! F( n! M- q  y    ]3 ~3 W2 l' H) s8 r0 [+ P8 A/ T
end
5 R+ ?% D& e/ R/ }5 ito check-death
! w, y! V3 F9 X  ask turtles [
% L& P5 {) H$ m4 J# H; \5 p$ `  L    if energy <= 0 [ die ]
/ [  J9 o% G( c4 z& p    ]* v, w/ \6 s7 C7 R, k
end
) a( P8 q, F" T# Z1 l, r% i: yto regrow-grass( z* o. `( G6 y5 z  e
  ask patches [7 c; P6 [. k! E
    if random 100 < 3 [ set pcolor green ]
8 }, P5 ]4 \4 B7 G7 m    ]
3 K" O0 V! W8 \1 n1 }end
6 |5 |: L0 j1 o  U. Z+ fto do-plots
. ^7 Q5 ^* V6 x& A/ H  n  set-current-plot "Totals"1 f, N' g6 t* R+ P
  set-current-plot-pen "turtles"
) v# \9 K# a. M( Z  plot count turtles( n# r2 a( p& R5 p5 O, X
  set-current-plot-pen "grass"& c0 l' R! y; K" I# h6 q
  plot count patches with [pcolor = green]
3 M* f7 S  q8 {) `) Dend
. c+ N5 g9 F4 d# p- }6 x- ~可是运行时提示no such plot: "Totals"
1 H$ W- A9 o/ Herror while observer running SET-CURRENT-PLOT
% m4 q8 U2 e/ r3 B  called by procedure DO-PLOTS
6 @- G# P5 ?3 a  called by procedure SETUP/ O. g- C% m: M: l+ I# t. n
  called by 按钮 'setup'8 w& T) Z) x2 Z: T: t+ K# s' d
求大神解答啊
发表于 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
  ]% W3 x) {, D- O& L建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-6-26 10:55 , Processed in 0.014661 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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