设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12700|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
& r/ F1 A; _8 T3 A* @to setup
3 I8 s1 X4 k6 \9 I( c  clear-all/ ^. D6 T$ @4 T3 U
  setup-patches* H/ P# g6 @2 r% M
  create-turtles 100* l9 c! t" J9 ^. N+ `6 x
  do-plots: b/ N4 I; y/ U: p; w' \8 H% \" }5 w1 N
  ask turtles [ setxy random-xcor random-ycor ]
9 ~& p. [( l3 U8 k9 c& lend
: g9 @  p- C. \" y2 U& h5 Ito go7 `$ ]7 d" `1 X* z# _8 a, E
  move-turtles
9 w* t+ X  I; u! x4 w, I  eat-grass
: N3 s& L" R$ E$ a8 u) C  reproduce% g. E* [. q/ g0 Q
  check-death# C% u) @4 q% M7 v" T
  regrow-grass, G7 T/ U' k$ y5 f* i/ u" z% p4 b" ?
  do-plots
, a' E! n# k: {+ g0 d3 U& yend
; f* O& ~1 K0 p( ?1 Oto move-turtles
: s! d9 ^3 M9 u: x! @& N1 Y- b  ask turtles [
2 s3 `& ~1 `* f% a6 O    right random 360, F! d. G9 o' r$ y6 g- t; t) Q/ G
    forward 11 W- q  G! X; h) i+ d' W1 w$ P
    set energy energy - 1
7 M8 B* S7 q+ l$ S    ]9 N, \. K; P6 r0 |9 S
end
( I# P1 H) _: bto setup-patches
; a) v$ m6 ?% Z7 p4 F7 P  X! B, R" ^) n  ask patches [ set pcolor green ]
* P# z# r* d2 Q0 N/ Zend
! o, ~( o# d$ d" tto setup-turtles
6 E2 v1 G4 n; ~" `$ Z3 D+ E; _  create-turtles 100& p" J0 ]: B0 N* q
  ask turtles [ setxy random-xcor random-ycor ]
/ ^4 z+ D- P) b& S5 Lend* s3 X/ K0 b. M6 b, y( T
to eat-grass
' {) F5 T; w! E9 C. F5 _3 V: N  ask turtles [. x" A' X) |0 I0 R; B, k4 s
    if pcolor = green [
% I8 J( w: @1 p& ~" E      set pcolor black
$ d6 H- g& P+ l2 y      set energy (energy + 10)
3 b: n# b- l# ^( V3 N' F) q      ]
% X4 g- {/ J6 u0 |    ifelse show-energy?4 c2 Z/ C; W9 V* m! G
      [ set label energy ]$ v" V! o. K# Q% A1 ~' D5 i4 R& S
      [ set label "" ]
: W; ^: ]( d* w' h    ]
* E5 L# R% k1 N9 U$ q, s/ H2 bend
9 X5 g) j2 o  C) H- [! H; zto reproduce: k2 N6 g* G/ B) X
  ask turtles [
. l; X- G, a& ?    if energy > 50 [+ r5 S  N- q' A. x9 z6 J4 n
      set energy energy - 50
9 _& {; @( x' T$ S9 ~$ {) l      hatch 1 [ set energy 50 ]7 j3 E. n2 Q+ M0 J; }0 W
      ]
- O3 }. I" L2 O. z6 i5 y+ b    ]% o8 A% T& f4 c- h
end
' N; g% s, Y) f# o5 ]to check-death1 G0 e3 J( t* Y; A2 {+ p) o
  ask turtles [
0 s! i" E6 Y0 @2 r' L- l  [    if energy <= 0 [ die ]% g7 b) E* ]- k2 p8 L$ o% x
    ]$ z! e- |/ p& \0 U, _- n  o5 i7 T6 G
end6 l' K* k! R( D  m7 }4 \( Z& T
to regrow-grass, B/ I. K( D% b* J
  ask patches [8 Q% L: v: V- N
    if random 100 < 3 [ set pcolor green ]
( J$ ?0 m5 U  @/ }$ l' ]9 n    ]
9 t# g7 X- G: R" E& |0 eend
6 _  z4 G* d$ |to do-plots1 N  I% ]9 r: ~
  set-current-plot "Totals"$ M5 a' ^2 E, K* K3 j
  set-current-plot-pen "turtles"
" ^9 d9 P9 D/ N3 }7 e1 s  plot count turtles
- T; D8 N# f/ [" P. |( s  set-current-plot-pen "grass") w) Z& y0 m. m8 t# j
  plot count patches with [pcolor = green]
. Q& }$ k3 s3 ?0 b4 q& Xend
5 X+ J, P9 ?9 }2 V  i可是运行时提示no such plot: "Totals"
" R5 ^5 \! ~0 b5 Yerror while observer running SET-CURRENT-PLOT! u# t7 p8 C% U0 @* S4 {0 e
  called by procedure DO-PLOTS  }; H: s8 U  R* Y
  called by procedure SETUP
9 F5 i3 f; q: ?: o+ d  u3 t  called by 按钮 'setup'
. q; r4 d  s& v; S# o/ S求大神解答啊
发表于 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
! D# N8 A" n& v建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-9-11 22:06 , Processed in 0.017650 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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