设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11226|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
3 d; R( b0 J- k5 k% M- ^8 ]8 Cto setup4 U$ J/ P0 I5 x/ Q1 _% e
  clear-all  G( y8 Z! P. c
  setup-patches' R, V! d+ ?- `4 _
  create-turtles 100) I% Z) r8 P' \, L# g
  do-plots
: W, X/ K$ ?" {# ]  ask turtles [ setxy random-xcor random-ycor ]
4 T6 f; Y. u! F7 {) yend
0 y: g+ P0 s: B! ?/ ?8 Eto go7 t" k# I* W$ O
  move-turtles2 Y; w5 f4 k' ^7 _* B
  eat-grass9 x  ^) M1 V3 F
  reproduce% T. v4 E- z$ W* ?6 C* O: \
  check-death
3 K* f' N% s3 F: }: G  regrow-grass1 J& }- Q8 o* o4 r  |- h
  do-plots% H& ?1 r% x; C
end
+ \- h- ^& Y( D5 [+ z) M4 L$ g' H5 F' gto move-turtles5 i1 ^" m" ?# c7 E1 m
  ask turtles [
0 I. N0 n. r$ A# H1 Y' ^    right random 360
. k( V: U; L2 H6 d' m8 r' l" P    forward 13 `/ C( y5 p) q* X+ z8 M
    set energy energy - 1; K! ^& X2 j& |  j2 a$ G. X
    ]/ h8 _. }7 L( @5 |- n- n$ p
end
3 D$ R& p& _. W9 t* U& C, pto setup-patches
, K2 i" g* R: t, `  ask patches [ set pcolor green ]
$ e7 W' h+ f: G% g% X+ O0 L+ R2 ~end+ N6 ^: Y" ]# W9 K
to setup-turtles2 q2 q. H' X! m* u- e
  create-turtles 100
7 D, P* f/ [% r6 Y# w  ask turtles [ setxy random-xcor random-ycor ]8 R, y. i" A9 F( |
end& I& Q/ h5 _0 p% Y
to eat-grass
% L- L/ U( ^0 H- ~  ask turtles [
2 j& P# S# M( Q& m    if pcolor = green [
, d2 d6 m6 @0 B6 m, q" x9 N$ p2 v" L; c      set pcolor black
& s/ u+ a# S' i6 j' a      set energy (energy + 10)
, V9 l, }# @; w8 ]! l      ]
/ G3 _+ O9 F9 I2 I    ifelse show-energy?1 m& ?9 P) ~& I, r
      [ set label energy ]! E0 p3 o" |" T1 \
      [ set label "" ]# M' Q1 @/ O3 c# x* Z1 y
    ]
: _! v$ @3 X: o. L6 F. }end
+ `( n. a; O" o: Nto reproduce' ?! }2 m3 U0 T- |9 ~) H" y  N
  ask turtles [
, Q: \. |, F* |: v; k; R# R    if energy > 50 [
, ]  w6 E# b6 J, @      set energy energy - 50
! I2 r; u# \- N5 s      hatch 1 [ set energy 50 ]
1 N/ m+ f+ h/ V: C6 C( X      ]$ o2 s# s( g5 f: p" ]( b
    ]( D" P9 v7 K- o) u" [5 k
end
& Y; P  C! C$ \/ [0 gto check-death
- U* {1 y1 F' j$ T, v+ ], a  ask turtles [
( Z) `- w& N# h$ |" }# U    if energy <= 0 [ die ]
; r* O$ P$ G+ C- q    ]
8 x( b  {, z! _9 B- X. ?end3 c, y, e' ~/ T) f4 t: j6 R* S
to regrow-grass
$ h2 D4 O& f" A! o  ask patches [
" i( O3 i3 I7 m    if random 100 < 3 [ set pcolor green ]" `. w0 I6 ~2 L3 q% z
    ]
+ P' x3 y1 a0 o1 send
5 n& Y% H1 F( nto do-plots
" y3 D( W" f  _" Q  set-current-plot "Totals"6 E# y7 F5 N4 o3 C6 A' m8 d
  set-current-plot-pen "turtles"7 N6 _& ^3 y% o2 p4 Z
  plot count turtles+ |$ H( E! k0 \
  set-current-plot-pen "grass"  k2 q: I8 s) c: v/ o. ~
  plot count patches with [pcolor = green]
+ w. e  N+ a* W9 hend
' k) O! @! l- Z7 h: ?0 ]. ^* z/ z可是运行时提示no such plot: "Totals"
# s0 z& K! N" h0 v# Qerror while observer running SET-CURRENT-PLOT' ?1 ^  L3 V" M$ u9 J4 |
  called by procedure DO-PLOTS
# `& I/ v8 C1 Q- [+ ]  called by procedure SETUP
0 w+ t: [" ~- V* N2 e  called by 按钮 'setup'$ U3 e# b1 Q) 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 + U5 ^/ T- z7 Z, e1 U
建一个叫做叫做Totals的绘图框就行了
8 g* _* R& U  W- ]9 |
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-5-8 16:34 , Processed in 0.014936 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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