设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10364|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]8 p4 k" R0 Q  o9 k  h" |3 }
to setup
/ y  k  k9 {2 B) K3 A6 ~6 x  clear-all
" o" j7 z5 i' S, A  setup-patches5 M" T( ]) @0 C: L( G
  create-turtles 100( q- s: K0 D4 K' p
  do-plots
" X6 x7 A, N. e# Y  ask turtles [ setxy random-xcor random-ycor ]
( @5 m: K2 f: Bend: Q6 O& x* u; X; N7 A
to go3 X  @' }2 I, i
  move-turtles$ D. C' Z. |5 }
  eat-grass) `: m9 J6 V2 x& s. r& @  ?
  reproduce
& H, i* m3 ]2 [7 l3 U  check-death
: U6 T, A7 k% s# Q2 y' B0 \+ t  regrow-grass
% b( F" O0 w: P1 r  do-plots( G7 w: C3 d1 X$ L2 a- l% T
end
% B: [' G% ]& V7 ~4 sto move-turtles
/ O" @8 ]. ]$ s6 h  ask turtles [
4 o9 L5 M' k  M; u    right random 360+ B8 }3 O# Q* d: d. u
    forward 1
( E2 T0 r  [0 L, T* N! t- N. h    set energy energy - 1
. p; e% ^( O7 e" s    ]
$ I3 Y' T4 T+ F& e- V+ }end" D/ D  r* [' z) @
to setup-patches
" J, I0 N. o8 v; p  ask patches [ set pcolor green ]
$ l  {1 F) ]% R: u) ~& Eend1 {! S* j( E6 L$ a3 W5 r0 q. o, k1 j
to setup-turtles
" E/ v2 m0 ?8 f& Q. j  create-turtles 1009 o$ q! g  \! n# b& W
  ask turtles [ setxy random-xcor random-ycor ]
1 H, J' O; \5 e  E4 b2 G4 o- gend
5 Z6 v% L& W) q. |to eat-grass
  U4 l  H5 y+ g7 W& L/ P4 B8 c  ?5 X  ask turtles [$ O/ h, X/ s% n8 _
    if pcolor = green [4 D6 b# n5 Q2 Q- ~9 Q" X$ }5 r
      set pcolor black
: H- |& C1 i! b( r" [" X& }1 H" _      set energy (energy + 10), ^$ ~: y! g$ m# e; q0 e
      ]/ i* l$ s5 B& h9 L# `! e+ \! }+ A
    ifelse show-energy?
( O3 r" P8 I3 s      [ set label energy ]' Y! ]# a  f$ L7 f9 x/ b/ W
      [ set label "" ]
. ?- _/ t; H) A& Q    ]1 \( o; Y0 e) n: Z" O; e! c
end
. J' K5 ]- g  [to reproduce
; ]" |5 S9 Y5 F  W4 n  ask turtles [# U# A+ M8 i% {6 P" j3 x$ E
    if energy > 50 [
% R9 q- U2 p% ~& k' A& V/ u$ p      set energy energy - 50
4 ?- N3 ]/ j) A1 n4 S* s      hatch 1 [ set energy 50 ]. J6 A; \' X( d3 S. W, ?8 l" }
      ]3 a  K" k" t' K2 ?+ B; k2 R3 |+ I, ]
    ]
4 g. I% \+ \0 gend1 F& a  d& [' V5 R' h
to check-death1 H5 i( H8 [; Y+ ?( ~
  ask turtles [
" _! d* [4 k1 O/ d4 A1 o    if energy <= 0 [ die ]. I, l' g$ p; u+ ]8 }3 D
    ]
4 w7 u, i- X5 b  X8 a. Q. g! kend
  ?9 x9 w: W; n/ l. ?, d' ]to regrow-grass; @9 s8 \) n+ }
  ask patches [. a% r6 ^" K! V
    if random 100 < 3 [ set pcolor green ]
1 f5 ?0 s' h9 @3 W; y    ]
: d0 H  N4 l5 @$ @end
9 f% b2 W, J1 F; r6 `. }to do-plots
% T4 `4 K) y9 }" L! L/ e& V  set-current-plot "Totals"
8 z- Y3 [% q( X0 H% m8 a3 {8 a  set-current-plot-pen "turtles"
7 h/ g: E7 H. b. ^. g6 u  plot count turtles
4 d9 P) ]' ?. P2 v3 ]  set-current-plot-pen "grass"1 F- i' u7 w6 I
  plot count patches with [pcolor = green]' I3 V0 s! |+ a" w" U: Q' S
end
) U" C/ o. @8 V, N4 D8 |可是运行时提示no such plot: "Totals"
1 S& G7 t% a- s; y/ L/ derror while observer running SET-CURRENT-PLOT
( u) P6 r& H7 c0 t4 r  k' x; z  called by procedure DO-PLOTS3 ^3 S  f' ]. w5 x+ W$ n
  called by procedure SETUP
# [. v! M" Y9 o" c2 j  s  called by 按钮 'setup'
2 |7 e+ R: `- C8 y求大神解答啊
发表于 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 ~' ~( ^) ^. N4 p
建一个叫做叫做Totals的绘图框就行了
- w6 E* Y7 [) r
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-3-8 10:52 , Processed in 0.031623 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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