设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11160|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]% _3 ]( `8 J+ l( w; j9 G' a
to setup
6 d( C" K: r. D4 x$ D  clear-all& y. i: r/ d5 d2 o% Z2 |
  setup-patches
, @2 K: W' I- ]7 B2 z; u9 ^+ I5 z  create-turtles 100
* q: s9 d1 r3 o9 c  do-plots
4 H+ v9 h& C: v% N  ask turtles [ setxy random-xcor random-ycor ]
3 V7 ]5 w9 c' S) ?, fend
- y% d+ m7 w; e4 v) \: [; n2 sto go9 M0 N$ {. n$ U7 t
  move-turtles7 v+ n/ p$ z  c0 g
  eat-grass% l# z3 Z  X2 x# J; Z- k
  reproduce% Q0 q7 H0 t' [
  check-death
7 ?, _. g7 Y' r  S. J* Q  regrow-grass
9 f, C: V& {" [9 B# D+ Z3 [! F: v+ d/ A  do-plots& l2 {+ j3 c1 s
end/ ~' _5 {) Y1 n8 ^3 z
to move-turtles9 S: E" T: G, |6 N5 f" h
  ask turtles [% {4 B% |" [4 f5 z; y" g
    right random 360
1 q' i) ]: Q2 i    forward 1; b8 x6 T+ \  J
    set energy energy - 1
+ b- @# D: j, P% r5 M6 |    ]2 B" m, V+ R8 l$ W% y8 u$ ]
end$ N: h  H  l! m# O) t, b
to setup-patches
& `! }) H6 F6 K7 F  ask patches [ set pcolor green ]
0 T6 a3 r9 ~$ }1 kend
, y/ }; O$ |% D; `1 _# W% Vto setup-turtles
$ {5 F0 V8 B, y& X' L  create-turtles 100
- X( b! ?' y/ k% Y) g  ask turtles [ setxy random-xcor random-ycor ]
, ^- Q6 ?  [7 G# ~( @end
7 D0 h: V/ a7 e  uto eat-grass
* C* K/ n  ^9 o, z# `  ask turtles [
% B2 j% ]; l) F    if pcolor = green [0 b! K( E: P- i- \( }- Q1 t
      set pcolor black
( A7 \. D1 J/ S* U% V: E; A+ [1 @2 S3 P      set energy (energy + 10). ~; Q/ T3 p- O0 _! N6 `
      ]/ l/ C" k. ~9 U4 f* N$ H  p# `: T# B
    ifelse show-energy?
  W& B& `. a+ {& _+ ?      [ set label energy ]7 o# k! f- J* O, l
      [ set label "" ]
9 N6 `1 {6 j* s( e    ]- O+ r4 a% P6 X9 F
end% V4 `& D8 F+ {1 j" l* V* e! L
to reproduce
' n2 ?7 l8 B0 a, Q  I, M( K( ], n  ask turtles [2 [$ r' W6 _0 v  l
    if energy > 50 [
: S6 U8 w% e% s  M' S6 w      set energy energy - 50+ I4 U' B" p/ Q' y# v- q
      hatch 1 [ set energy 50 ]
, G2 p4 ~  H9 Q% ]: i, A      ]
! S4 _) F+ f! y- r/ J/ i    ]# r0 [" l% u) h2 r: R
end
1 A# m7 z$ t5 I9 H3 `to check-death2 U- _7 S$ A# C4 d; X. ?* s3 s; o& r$ G) D
  ask turtles [
& V2 r! o2 l3 A% D0 c    if energy <= 0 [ die ]
! ?" Z  ?* h9 a- N. O4 I    ], O* m0 y# |% o
end
3 q* C( E4 r2 h; h2 I8 sto regrow-grass/ q( t. s) C  s) ^" J
  ask patches [- |1 b, P! z; Z0 ]% y
    if random 100 < 3 [ set pcolor green ]
& E* x$ ^/ A! y& G& m( j    ]/ x3 x2 H" _" K2 k  B2 X
end
  F. F- y' w/ N( }! m! B3 dto do-plots
2 ?1 C- y# D9 n$ Z  set-current-plot "Totals"% R; Y" s" f8 w$ X& J
  set-current-plot-pen "turtles"
! C8 B2 ]( v' |$ Z9 M  plot count turtles
1 }/ F9 B/ _: e+ [( E* T7 p9 J3 B' k  set-current-plot-pen "grass"
) c0 V. u) l) O  plot count patches with [pcolor = green]
' L: B8 K1 O/ O' zend- m+ p( w; @6 n- D
可是运行时提示no such plot: "Totals"1 n- U3 H' H: V. c
error while observer running SET-CURRENT-PLOT: n' Q* x+ D6 Y$ W( G
  called by procedure DO-PLOTS
/ R1 `1 S& W) i7 d- w- J7 U  called by procedure SETUP
/ c  ~" Q5 P- s/ i: D  called by 按钮 'setup'
& k: ~7 `7 g" t; 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 6 c+ `* `( u- y! _
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-5-4 01:49 , Processed in 0.016371 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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