设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12176|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]* P3 c3 \3 Z- q3 l1 k5 h7 j* Z7 X* w
to setup& j2 r3 l- c) R4 x; Z9 ~# J* b# S( X
  clear-all
5 z6 O' {( i7 k3 N4 W" E; k  setup-patches: _7 Z- O* P8 l  o
  create-turtles 1007 r; ^5 Y$ n$ `
  do-plots
" d, |( @6 ?! [- q# e6 p  ask turtles [ setxy random-xcor random-ycor ]
7 K4 K$ O' ?* a: u, Send+ v$ j3 \: ~9 ^
to go' q/ U/ o2 D. F6 m
  move-turtles4 e: r$ ~; V% M4 S9 ~
  eat-grass0 L  Z) n. O9 e
  reproduce# e0 V& b( O2 i2 F5 r/ c
  check-death- g0 n5 o5 Q8 o6 n1 ~) F, Q
  regrow-grass
) G/ b! B9 w! d# l( \2 J" |3 i& S  do-plots
6 \" X, i) u5 v3 E+ E9 l0 bend8 e- M$ s- E: \; G
to move-turtles9 ?2 ]' w. e" b7 n; C8 ]
  ask turtles [+ J, O2 e5 e+ J$ ~% W
    right random 360
) {9 F% N' H7 L7 B- t    forward 15 o8 `( _8 C4 X+ H- p
    set energy energy - 18 q6 P  b0 A2 V; P- p- m- [
    ]
7 i" D1 ~7 L3 L* _7 M% G; ]- @end; a$ \; R! U! E7 U0 a
to setup-patches
( v7 [# G3 _) w, M* h( O! y* }  ask patches [ set pcolor green ]
# o: b( O( r2 g( ~& Oend- R3 H  }+ p+ ?. `4 l4 C* Y
to setup-turtles
) m- ^) z) ~* `5 P/ B# c9 c  W  create-turtles 100
% F7 c9 U4 J+ h8 s  ask turtles [ setxy random-xcor random-ycor ]5 C$ d+ k$ m* I* u
end/ R8 T3 d' ?& i) \- T
to eat-grass7 q  g) p6 N# b. e
  ask turtles [$ r1 X9 u  G  I4 ?
    if pcolor = green [
& x6 d' Q' `* t. c( W* c; {$ f      set pcolor black
: c9 ?- \  k& ^; x! G; u2 V      set energy (energy + 10)
% U5 x8 H$ \3 n. u5 Z      ]
1 |0 m+ {+ Y; l* H! q    ifelse show-energy?2 {: O: D: |) N4 D
      [ set label energy ]
' q& @( V/ }! V" V$ @      [ set label "" ]
4 N/ c, ~' U3 t  r5 A4 {0 ]) \    ]8 Q0 W$ _. b+ B1 l% i' |( G
end4 ?1 a1 o# M$ B) d/ d
to reproduce
7 {2 G; }1 `+ \  ask turtles [
  E4 `; A3 l; S2 d, k" l! ~    if energy > 50 [
) M* S1 ~8 X9 z      set energy energy - 50
0 A+ E) m8 G. [( j5 M5 f. E      hatch 1 [ set energy 50 ]
  U2 i4 N: j# ?( j3 `      ]% \7 C0 ~( c; X; `4 {
    ]
' e. L3 K- U1 ]( ?, ^  [end; l! F& a1 _8 ^4 l) T
to check-death
' I) f5 j( R4 t( h# d! r. R$ L  ask turtles [* K: q9 ?8 |, X# |0 z$ _3 x( u* ^# [
    if energy <= 0 [ die ]0 s: g/ i+ `4 k8 u0 `% m  ]9 f
    ]) Q- Z- p# E: r5 `# F) p5 ~5 Y
end
! e: t: r1 f% B) }6 {5 oto regrow-grass. O5 q- @# S; a+ L0 S$ d
  ask patches [9 Y' }7 R+ n/ u
    if random 100 < 3 [ set pcolor green ]) C6 ~6 J! ~) t) ]+ h' e# g
    ]: `2 G$ ?* F& X3 z2 e
end0 [* p! ]: H. D) Y, b
to do-plots4 ?1 Q$ T- r& x: x
  set-current-plot "Totals"/ v+ m5 h; i1 h  e  q7 e
  set-current-plot-pen "turtles"
1 z) u# d8 L7 m& ^- C; @- O! s  plot count turtles( L; p; l9 e8 u3 \
  set-current-plot-pen "grass"
: Z. X" i6 |  k4 U+ u( G  plot count patches with [pcolor = green]
$ W8 R5 p: |8 A' d# _+ N; oend
) `; b- ?; U9 O  |6 s) c) y7 q可是运行时提示no such plot: "Totals"
) T' r8 o5 l2 Q( L7 n, xerror while observer running SET-CURRENT-PLOT0 H5 [% x5 V8 l6 f; D( v7 f
  called by procedure DO-PLOTS
! k8 z, I% B9 P  called by procedure SETUP
& N! E) m4 F$ Z9 v7 A7 C  called by 按钮 'setup'$ j5 ]$ r3 c' w( }2 P) U: a2 T% \
求大神解答啊
发表于 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
. ^9 A! y+ U" {. Z* c6 p7 _建一个叫做叫做Totals的绘图框就行了
( X8 p* v' B5 S$ c5 t# k3 r
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-7-31 13:16 , Processed in 0.018170 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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