设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 9125|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
" T, ~; q& G& A( O) vto setup
9 Z$ g3 u( K4 c' z) ]) f& G  clear-all1 ?: P3 X. u! c; d+ t5 b
  setup-patches) D: e7 q! k1 \, G2 `. ^
  create-turtles 1007 h4 n5 _% h9 B" b7 C
  do-plots
5 B. t* Q2 I9 Z2 {# M7 {- T" f  ask turtles [ setxy random-xcor random-ycor ]
5 L7 q* S( A: J9 y- ^  U) ^end
0 g) B8 W. Q) l) ^! `. {* ]to go
3 k$ m; j( t! B8 w  move-turtles
9 D2 [- [$ K2 o* u  eat-grass* s5 [! H( W) ~' T
  reproduce$ e$ `0 y( S6 T( s' G
  check-death
- E* x+ ?0 x6 e7 r& b  regrow-grass7 i& H8 B+ w. J5 i
  do-plots* ~% J4 t: E- O5 y' c! V
end9 f( I/ A7 q8 |8 m1 {$ w( f, o
to move-turtles
. O1 h* X+ O0 _2 b7 ~  ask turtles [6 F: B7 x" W* \5 [3 S) P9 ]
    right random 3606 p3 |; V' M. e% {8 Q5 X
    forward 1. G' {& f0 |! v, C% N
    set energy energy - 1
4 b: L. T4 d( i6 M    ]
8 o' C/ F! x# z; b+ E* @2 dend5 s; I% O( [+ z$ _7 c' j! p+ X
to setup-patches
; [( T5 u! W. J1 _7 _4 n5 l* H% R  ask patches [ set pcolor green ]
- D2 s, p( ?7 n* Z" Z0 l3 u4 Wend
7 c& ^& `  h% ^4 |to setup-turtles0 [0 q2 b% h" |' n+ O' M, o
  create-turtles 100
8 G$ M5 ]) i; z( p  ask turtles [ setxy random-xcor random-ycor ]
% m5 ], {- L( p" m) ?end) {( V* K- y7 y, e0 C) k. s! o
to eat-grass
3 d5 y' F* h" p3 i) K6 L" O  ask turtles [7 n, p( ~0 K2 x. G; J5 S
    if pcolor = green [4 \( o. D. U5 ]& ~; V. v( q; x
      set pcolor black# r3 N& n) f4 D- W- H2 @
      set energy (energy + 10)
/ Y1 X, z, D2 Y1 i* J: n      ]& B1 f; o% @  p. N  P2 T* B
    ifelse show-energy?; ?: f. W. B/ @# c  H) |0 }1 y. x
      [ set label energy ]
' g$ Y" V* r6 h. M* K: a- u      [ set label "" ]9 M! z8 O5 ^$ h! T; i1 q# I, D6 a
    ]+ b$ i( \' c' W& D( H
end2 ?) ~% k: s3 Y# m' F
to reproduce
. a9 u! a; \9 V1 b0 v3 ]1 I9 _  ask turtles [
  a+ E& N" o- I: P5 D; N' C1 C* S    if energy > 50 [
5 P# @/ J4 e# B+ |! I9 j9 M/ P      set energy energy - 500 t) Z; ]3 K9 p2 ?' Q7 I
      hatch 1 [ set energy 50 ]
. n4 P" S" y5 B% E      ]2 y% }7 m/ k* N/ \& F  c1 R
    ]# c& P3 H' j1 f( i) R4 J& p) S! _4 d
end8 Y9 r; n; c" X' v
to check-death
/ c% b6 ?! k! I6 ~  ask turtles [# o8 q/ h- M  B& |
    if energy <= 0 [ die ]& ^' v& M+ ]) q" K* ]$ v- _- X
    ]$ m( m5 `% a% |$ A
end9 ^: l' ^8 V6 f/ q, F: T
to regrow-grass! e9 I8 z2 M% G& p! j2 S9 V1 T
  ask patches [" \5 h- h: S- j
    if random 100 < 3 [ set pcolor green ]
8 A9 s$ m3 Y# R    ]7 J; z8 h  [) J7 n. K7 j& W
end
6 `: I4 j* J3 k$ a# rto do-plots, H8 C) G. H3 b; e
  set-current-plot "Totals"
+ F% Y: b8 p2 t7 A6 a* p  set-current-plot-pen "turtles"
3 Z: a- X9 n/ O/ ~1 ^0 c/ B+ f1 ?  plot count turtles
; [+ x/ P& f& A7 {) Z' Z5 E4 l  set-current-plot-pen "grass"
" @& _  ~8 k" Q! ~3 @  plot count patches with [pcolor = green]
/ v" O0 Y6 [* b5 G& z4 L( T" L1 jend
: ?* ]1 ~$ i- F7 n+ ]可是运行时提示no such plot: "Totals"# z; v  S+ ~. |  O" p; s( j; V
error while observer running SET-CURRENT-PLOT
/ f' @# |! B! f& r9 a0 h  called by procedure DO-PLOTS* n2 D0 |8 E+ m+ U9 `4 \- Z
  called by procedure SETUP
. M! ?$ c- z& n. b+ C- g! ^6 X0 r  called by 按钮 'setup'- B! j3 W1 E* N
求大神解答啊
发表于 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 . e- d9 H( j7 d8 d% V
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2025-11-18 00:15 , Processed in 0.017915 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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