设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 9561|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]/ P3 ~4 e4 M1 i, F' X
to setup" M! X0 D* \' D& A5 t
  clear-all: v/ }) z7 v+ K% H5 e
  setup-patches
5 |% H7 ?0 X, G4 D6 x% O  create-turtles 100
4 s/ |# B8 T7 _+ A: i, p& V  do-plots( s. b6 A0 B/ ~. p& D8 [" B
  ask turtles [ setxy random-xcor random-ycor ]: @% f( J+ A+ Q/ x+ T& c
end! l- i8 g6 ^3 m1 t3 I# h- \
to go7 j5 R2 B- n" t
  move-turtles5 a. }3 e% a1 F
  eat-grass; X1 ^, k1 _" C# k
  reproduce
) W) t* A+ Z. d  y5 \. o1 e/ |8 z" G  check-death* n' a( M5 V& x# q
  regrow-grass! C% Y0 C5 f8 B3 X
  do-plots
& k3 ?' t+ g3 y$ y- Gend
6 G: g# v# O: F& m" ?. nto move-turtles
! \" d0 f: Z# ^( R/ X8 y  ask turtles [
/ j( d5 I; Z. L    right random 360
7 _4 R) Y% b1 F; f+ ~* o- I2 q) O    forward 1- I" ^3 x" ]  T  z, U: `
    set energy energy - 1
! j/ Z# E' L4 v# Z: H    ]0 r: {  J7 m8 f% O
end8 ?3 X- }2 `7 V; g9 Q( p
to setup-patches
+ o( M2 p% H2 _3 k  ask patches [ set pcolor green ]
3 q9 c( x9 t8 f1 V: w9 y. a- `end
- q) M5 a1 g( l, u3 Q2 gto setup-turtles
  I* ?9 R. O! @6 P) P* O' \- s  create-turtles 100+ e$ F5 o% j' q  o% Y& I( I2 w) S
  ask turtles [ setxy random-xcor random-ycor ]
  Q" r) _1 k" O+ nend& ?8 s% q" \$ G& z
to eat-grass. d6 Z& `: t  f( L: I
  ask turtles [5 H! \# Y6 K) e1 x/ U
    if pcolor = green [0 p- D( F' P, `, A1 X/ [
      set pcolor black( I. n3 }6 l& S+ C6 A, t
      set energy (energy + 10)* p$ G, C2 G; F
      ]
# p$ ?4 ~8 j0 C9 w6 e$ y. @    ifelse show-energy?
8 W: K% N# Y2 g% M5 A. F7 V" j9 Y      [ set label energy ]
8 o2 x) R; y, T; P( a      [ set label "" ]* w9 m/ Q5 ^; E0 V# R3 O* P9 M6 x
    ]: `) _$ O) Z" [& P: m7 D
end6 \5 {9 D4 P. `& J1 d# d
to reproduce* c7 U+ @( N  k6 y6 N% Q8 d
  ask turtles [
0 R8 g$ h( X# r, q    if energy > 50 [* j; M% ]' J& E% [3 \2 f4 ?
      set energy energy - 50
9 I: G1 H& E( s5 H4 ~      hatch 1 [ set energy 50 ]* h9 l6 I& p6 S8 I+ m
      ]: n& \# S1 {) v" [" E: i$ s; |
    ]
6 k2 G7 d: D0 C2 z; i8 g: i; h8 fend8 \) C  u" N# K8 ~) k
to check-death
" I' W2 ]5 N7 l7 x4 ?0 L+ F  ask turtles [
' [2 Z" q( v0 `  Q1 }- s    if energy <= 0 [ die ]
' n% z5 [& B) c' H9 G* x    ]
/ H3 ~1 T2 d7 U* L6 c. Jend! x- @( i" f, v$ [7 n! m
to regrow-grass# ?+ v3 L/ w% p$ {' z
  ask patches [
1 }6 }1 E% P- D; s    if random 100 < 3 [ set pcolor green ]
8 E. ^8 l8 M! U    ]+ @* I! a% b& \4 i& M5 f
end9 p5 w8 O8 _% }& ]/ H( |4 o9 d8 z
to do-plots8 r2 J2 `+ z3 D& `! ]
  set-current-plot "Totals"3 s& X9 A" d" w
  set-current-plot-pen "turtles"
' m( @8 _4 @9 }& m  plot count turtles# J' T" |/ D; G2 k" V% v
  set-current-plot-pen "grass"% a4 c% ~' J  @
  plot count patches with [pcolor = green]
( C  H; P# D9 e2 q" j$ Iend
1 m8 h% Q0 x4 @( W( d  M$ z可是运行时提示no such plot: "Totals"' f0 c( J2 l" _% b2 K
error while observer running SET-CURRENT-PLOT
9 {/ m1 f5 w4 G8 x% }8 `3 [( _7 h7 x  called by procedure DO-PLOTS
/ n8 t9 |* S4 ^* w  called by procedure SETUP
2 s& Q7 [; M4 c0 r8 O+ Y( J) L  called by 按钮 'setup'+ d& i. G* p- p- k7 x. T0 X! w" j
求大神解答啊
发表于 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 8 N/ u3 C/ `; v! d6 j' X8 _
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2025-12-27 01:55 , Processed in 0.021603 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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