设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10316|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]$ s8 p4 T& A6 r6 D9 i+ d2 r
to setup* r& `% A/ ], Q  ~8 `8 L
  clear-all1 Z, `, X2 |6 x/ O% ^
  setup-patches2 B& y, P, F) `1 f- c* W6 E* ~
  create-turtles 100
  z; u& P; a# S  do-plots8 |) S) p# h* F
  ask turtles [ setxy random-xcor random-ycor ]
) L$ s8 G! e# j; J, W# }8 q1 c- Send
& w9 R3 D: f) Vto go  M6 l5 Q7 n/ E1 a8 \
  move-turtles% k3 X/ E; i9 Y3 K8 R' @
  eat-grass
7 C9 G; R, F" ~* w; L' V$ r  reproduce
1 u, w- N& x! e' m* _* m6 b* w  check-death! e. r5 A& c9 j/ W5 {; l' z8 f4 p5 K
  regrow-grass
+ I* f! H, Y0 p5 C) B6 c5 p9 |  do-plots. Q9 p) R! A* x
end* p+ ]2 P* K: \0 X* h
to move-turtles4 f, K; }6 a% D# V
  ask turtles [
, v( j2 n( @& ]7 {% b. R) x1 @    right random 360) w3 o# M6 |# c+ m' k, Z
    forward 1
0 t* u! M: W' c0 B; T- J/ |    set energy energy - 1
  F# |! D' \  v- n4 s+ Z: O7 ~    ]
7 V0 I3 j- A8 _" R0 p5 `- uend$ Y. _. H# @+ B9 N' t. B! S8 ^% w. u
to setup-patches
( r4 g% Y) f+ t  ask patches [ set pcolor green ]$ v. a2 Z# {( \4 ^0 n9 W
end, x6 p& N+ C6 v! z: c
to setup-turtles
6 h. N1 T  q' ^" l  create-turtles 100, z2 _4 o5 c- K% Y3 U" Y1 b) ]  ?
  ask turtles [ setxy random-xcor random-ycor ]: A" K( l9 @- R9 I0 j) `# h
end6 S3 R: k" G# V! c. Z4 S. V- n: M
to eat-grass: f% |5 q: G& X; K; k3 Z5 ?
  ask turtles [
: W9 f+ a$ s* a4 O$ e3 L    if pcolor = green [3 \! t5 f8 B& D
      set pcolor black
7 i$ d( U& L6 k      set energy (energy + 10)
! g6 O  w3 z$ G0 a! Z8 I9 K6 ]) d! _      ]
" f; v! F  L0 Y6 H" _    ifelse show-energy?
: {2 B& Z3 Z2 ]) }      [ set label energy ]
! \  H4 b: a! R' H6 N" \# T      [ set label "" ]' G: ~5 R0 Y+ U: U8 G5 k
    ]. X- O- A: q( K3 B
end
3 g# T. |3 W2 q2 E1 ~to reproduce
, E- P" r2 s0 s' F4 D+ S0 O  ask turtles [2 U) F4 f/ v9 B& T
    if energy > 50 [. E4 R0 I. z% p
      set energy energy - 50
9 Y9 A( f$ |% C8 q& U- m  u      hatch 1 [ set energy 50 ]
& q, `, N' Q2 k- P7 A      ]
) h. E; @$ f: d% P! ?    ]
2 e  o7 j  G1 _, @' xend
! x2 v4 t4 T! O# `" j8 B6 Uto check-death
& h9 T& e2 t$ K6 u, L. O  ask turtles [
3 l' w0 x+ r6 R4 t    if energy <= 0 [ die ]; P2 e+ n; N' r3 M! |
    ]
: H: S. b7 e2 ], F8 ?  aend1 U0 D" S* S7 _$ @5 I! |. C1 C
to regrow-grass
+ r0 T' {# j& z+ f. D  ask patches [
# {8 O* Z0 z% ?7 O3 ]    if random 100 < 3 [ set pcolor green ]6 L* x6 G: t$ k6 K2 o
    ]& D1 }. \0 l$ ?' c9 Y4 K7 r
end7 c* M1 v  u  R
to do-plots
2 a( G3 Q* L9 g: h- h% K  set-current-plot "Totals"
1 [5 d9 y% |  w( A, J  set-current-plot-pen "turtles"
: N  l8 d: [3 m3 V2 c8 M  plot count turtles
( c) Q9 _; q4 w0 Y, \" {* {  set-current-plot-pen "grass"& j# G' p. Q* {  r0 b$ W" N4 ?. P
  plot count patches with [pcolor = green]
: w$ Y% _4 T: m) v5 E% Pend
* x; _7 u/ T5 a" Y% s" W, w可是运行时提示no such plot: "Totals"0 X* C4 K% b2 D# z# U
error while observer running SET-CURRENT-PLOT
* z5 |2 ]3 b* b2 U/ W+ v  called by procedure DO-PLOTS! }  u9 @5 R8 w* |, P5 A
  called by procedure SETUP
2 l7 E# C$ J1 K  called by 按钮 'setup'
- ?- o3 i0 O" W求大神解答啊
发表于 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 c* O* Z, Q5 Y1 G
建一个叫做叫做Totals的绘图框就行了
. G( e7 t% L4 g
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-3-4 07:01 , Processed in 0.017955 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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