设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10170|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]2 H! H% z/ g5 H/ C
to setup3 ~1 Q  B6 R/ f& T! z9 x8 m$ W
  clear-all
! T1 W! j# c. z  setup-patches4 Y: A8 Y5 ~+ }
  create-turtles 100
- m  i! j( T1 r: t/ I8 |) s8 S  do-plots
. w9 `4 j8 D$ P, u" \  ask turtles [ setxy random-xcor random-ycor ]
7 a8 W  |' Z: y) q4 Rend
, W( k% Z# |2 s3 s6 Oto go( ?# G- Z/ S. z( g  s0 Z# A2 H
  move-turtles# O: y# b+ t7 l/ `/ ?+ g- N+ R
  eat-grass' V. L& b; P" d! F0 Q2 V+ y
  reproduce
( |% O0 U7 l' G: V+ P. N3 t; L  check-death3 ~3 I5 _! x+ L0 R4 M' a
  regrow-grass
. Q0 I( t  [. J/ h8 O  do-plots7 x. _  h8 l' A7 f. F
end  a4 e6 U- G0 v7 C
to move-turtles
+ r& [, ]" H* s( ~+ {- p# W3 `7 f  ask turtles [
* Q4 U- _3 X2 o, E: P    right random 360
8 v* [- Q% \% s0 h; h7 q    forward 1
  d* k" b5 O/ \. @& X9 y+ {4 c    set energy energy - 16 ]. ~+ a/ j8 ?4 z6 M$ |; A
    ]: g% H1 F4 x8 s  t* H  ~
end$ u; X: q8 n# K2 j; R
to setup-patches# w3 F4 i: M3 W0 l! X! R
  ask patches [ set pcolor green ]
" w' B1 p1 f- k  X9 G. |end4 v- Q4 q( A4 t4 f" l  Z/ D6 L, }8 L
to setup-turtles0 Z1 ]; F6 [) q" w" }/ _% _1 d4 y
  create-turtles 100
; W! A% y. l( g# H; u' A1 [  f  ask turtles [ setxy random-xcor random-ycor ]
  b$ _# [! [7 `end
; `" s* _4 I/ s- v% l0 R0 A4 Cto eat-grass
2 `' l) i4 t* h' H+ l9 P  ask turtles [( I/ h9 J7 f% \; j' w# C1 j
    if pcolor = green [
# {8 F2 ]( O# k  i5 V. }      set pcolor black3 T. `+ K# y9 I& q- y: q
      set energy (energy + 10)! ]' a) U' Q! x& s9 }
      ]
3 w' [. H+ ]0 C/ o6 b- p" z    ifelse show-energy?
8 V5 C: `# C8 v+ F+ }- T      [ set label energy ]
( C6 q+ m) X, H& E) S      [ set label "" ]
8 R' b& B2 O$ Z1 H- k    ]) U, |. Q5 {7 T5 p' ]" y4 T9 ?- `
end' X/ a( v& l# B1 R) g3 y! s3 |/ i
to reproduce
* e& Q- @* ^2 ^$ M. ?3 v) n4 ~- {2 h  ask turtles [
) [( g" D9 |. S: ]) c    if energy > 50 [
4 F* Q; Y$ e* G  ]$ T      set energy energy - 50& A7 N# |% p, b# I3 I
      hatch 1 [ set energy 50 ]
! s, d: N) _. S      ]
7 B7 f! r' p+ R( _" ~5 `    ]
3 D& [. s5 ]; r3 _end* N$ ^% o9 o& V/ Y
to check-death4 D6 W- d& H1 k; S1 Z3 `
  ask turtles [6 F7 E* I& y- I  F
    if energy <= 0 [ die ]
6 O+ F" T0 i/ Z4 C* g    ]/ B& Q$ t/ x( P8 F% A, y- C7 o
end
4 N! G" [5 [9 K$ F3 h( O& Wto regrow-grass' M1 C5 R! L$ n6 c
  ask patches [
/ l* D/ s) U2 V    if random 100 < 3 [ set pcolor green ]
5 X3 R! \9 {5 p, m) R1 \5 c1 x    ]0 g# t) A! E3 k
end3 u: J( i* @6 b: l
to do-plots
; d2 [8 b  y  ?$ T- g3 S1 C  set-current-plot "Totals"
" W  k# k6 c& Z3 o  set-current-plot-pen "turtles"
6 B  s$ T/ \" ]# n3 i/ c4 C  plot count turtles: |* W$ W8 z: q1 n" k
  set-current-plot-pen "grass"7 r! c7 z; l) U8 i2 s
  plot count patches with [pcolor = green]
# s* i+ L" H6 B9 z; jend
2 k7 A# I& w  ~; ~( T' Q3 V可是运行时提示no such plot: "Totals"
1 P4 U6 ~" }7 D+ ferror while observer running SET-CURRENT-PLOT
% X5 J" M2 q( k# L' g  called by procedure DO-PLOTS7 a% p% l1 i9 j  ?
  called by procedure SETUP  c! ?% {( l! O; U
  called by 按钮 'setup'8 B5 N! u+ q7 v1 g2 l$ r5 l1 a9 S
求大神解答啊
发表于 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
5 x; c! J, A& k& Z" b3 n" I建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-2-20 10:11 , Processed in 0.019937 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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