设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10006|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
( ?' F; K7 h( ^. M, Dto setup
0 Z: D  g2 _0 ^" u2 A  clear-all
1 J+ d, \% `9 c" ^( t" C9 y5 v' n  setup-patches! D9 L9 x! Y! K; Z' s2 t
  create-turtles 100
% _# d$ l4 q6 g! J, b6 I  do-plots' x; |( n' s$ h) b/ D# D
  ask turtles [ setxy random-xcor random-ycor ]* ~$ W' [" ~. l
end8 |$ h! y7 A7 G* K' t
to go
5 w9 ?* e) U" |  move-turtles4 q  J  R0 r3 e0 f( G. u$ A
  eat-grass
2 s% n1 H; h- U  reproduce' t8 L" T! k+ g7 H5 d! p, G
  check-death
7 h& ]7 T$ @5 ?, D: O: C) m  regrow-grass
' F+ f4 n1 y) F0 z6 U) m  do-plots
& u, |$ A. F$ S+ p2 H5 qend+ n9 r$ B5 W# C/ v
to move-turtles
2 X2 U3 S+ T# p  ask turtles [
7 ~6 n, z9 ?4 e# _    right random 360
# |$ V3 Z  z+ n% i( N. _    forward 1$ V( g3 `* l5 z4 s5 v
    set energy energy - 1
6 L1 j) T7 s8 C+ t    ]0 y5 j7 h! O5 D* ~7 U6 ~1 I" p
end
& o6 R4 ?5 M3 [2 ?) o# b- q; _to setup-patches  d5 W9 U8 c* K" i3 \' o- u- ?
  ask patches [ set pcolor green ]
! w9 `! T0 N: nend/ c9 _2 B" Y# \, S
to setup-turtles
+ k" ~; ^# A$ I8 S# N  create-turtles 100
' [2 \  U- ?. q2 g7 N! V2 S  ask turtles [ setxy random-xcor random-ycor ]
0 t, [- K$ J) l8 z# vend! Q. k4 o8 D! K" D- n1 O. ~
to eat-grass8 X5 B, B1 Q; B' w
  ask turtles [
, z4 p- E; m  Q5 [    if pcolor = green [
; [; _- U/ y4 R      set pcolor black
, Q% |  O$ e; ^8 L1 @      set energy (energy + 10)
, G2 N( b4 o' }/ f1 ~+ l& o      ]; a" q* `8 Z6 u' x$ ^
    ifelse show-energy?
0 y+ a6 l; o" m3 Q! ?      [ set label energy ]
; F3 ?7 t( R# [3 L1 i, v9 v      [ set label "" ]
; J) h7 w3 k$ u$ y) b    ]' u4 f  V6 ?  X: Q" ?3 b6 j  o
end4 [) M3 m* i# k4 R. `2 J
to reproduce
' ]1 W9 i( k4 c& R  ask turtles [
) x" _$ s' }2 @    if energy > 50 [
3 [1 w& A2 D; s: {      set energy energy - 50; \4 u+ H; K) j
      hatch 1 [ set energy 50 ]
$ E4 n- f6 H5 [* c- k      ], M6 g. R; E2 l. |5 d8 B" K
    ]6 _( q& \' A" G6 `
end2 m9 K3 a4 J: X0 ^) P* |
to check-death
! j5 r  {; G9 F4 s- n5 j4 x  ask turtles [
* q' ~, Z4 j0 H" ^    if energy <= 0 [ die ]
3 D- x4 r  @8 y6 U9 z, j    ]
5 ^) f# }1 W1 L2 J/ x8 Cend( a+ T. `  m2 L
to regrow-grass* N- T7 b  q- z
  ask patches [
# t. Q4 x+ G3 o2 _2 E7 K# i    if random 100 < 3 [ set pcolor green ]
7 D7 _- R. i& |# @. ?% K    ]
5 j+ z3 i% ]) \* M# K# B$ O# V  P( eend6 E6 s0 @9 _+ t
to do-plots$ y" T* |/ k2 y& S% Y; u- Y
  set-current-plot "Totals", m9 u: ~% u# I6 I6 u
  set-current-plot-pen "turtles"1 d! L/ ^7 M; ?* j
  plot count turtles8 ~$ ?1 q. r! @7 L  V; {( h/ A; c
  set-current-plot-pen "grass"
) Y* B, N& o* w# N* l5 O  plot count patches with [pcolor = green]& ^% @$ T% i- p( p/ u
end
9 X  s7 Y" F1 x3 i可是运行时提示no such plot: "Totals"
- Q4 J8 j5 g0 P0 `error while observer running SET-CURRENT-PLOT
5 m  ^; r5 p2 H/ _2 \7 b  called by procedure DO-PLOTS
1 C* e# o& s) {  called by procedure SETUP- _, A5 W% X/ ^. \6 p
  called by 按钮 'setup'
( {! w' ^* \3 ^' g& q求大神解答啊
发表于 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
: p2 s3 J9 V7 \6 N7 w+ S8 w建一个叫做叫做Totals的绘图框就行了

( l$ U7 R+ w; F% U  O2 `1 X& j: n' ~哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-2-5 20:59 , Processed in 0.019850 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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