设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10139|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
! Y) g& T. F9 `6 [+ S  Qto setup
! t& V0 W/ O2 `4 O  clear-all" t5 ~( P2 p% x; g
  setup-patches% n% r% i5 ]& v8 o6 @/ i
  create-turtles 100
! R( A' G) T) M0 c7 k4 U& m2 I; T  do-plots
9 T2 O: L. V- f) Y4 h9 l% {  ask turtles [ setxy random-xcor random-ycor ]
/ w% ]' z# ^5 P2 B3 _9 k8 Aend
. q! Y% s( \, T6 K$ [, qto go
6 X3 b% }' d% F) q  move-turtles
: ^7 N/ z* y8 B% L$ @1 r  eat-grass
3 ~6 j6 |( Q! E% L  reproduce
* f- w* o* U+ K+ p% o7 T  check-death
* a1 Z6 |" Y- g& R  regrow-grass
- C& G- q% z/ Z# e& _  do-plots* U) a1 r$ `  s5 i+ T! b
end. s( d: z; ?3 B
to move-turtles
, Y# a' R* i/ c0 _3 e  ask turtles [
# |  V- S& U) J" a) U4 V    right random 3608 x1 d1 L; Z8 Q' `  E7 R* |
    forward 1
( a" R6 p5 R2 s    set energy energy - 1, G3 c: n- `" ^$ Y, H. {5 o
    ]
) n8 ~  M* J0 rend" z2 U  L! x+ Z9 q- _7 u* k
to setup-patches
2 h, |: F7 `, {+ y" u  ask patches [ set pcolor green ]
1 }4 k- O! X5 o: W8 M) Xend
, m5 X! k9 p2 _' Z( b8 n. H& [# @to setup-turtles: I3 k! Q0 I' J* D& N$ }
  create-turtles 100
% `4 l) `. C% D' }; u2 Q8 S  ask turtles [ setxy random-xcor random-ycor ]
. P; l" b, M; ]end* w% f2 ?0 u( v0 V! j
to eat-grass
! T. V* J1 I/ z3 {5 f0 n" c+ t4 L  ask turtles [8 q( ]$ B2 N" Z! P3 B
    if pcolor = green [
9 j1 g! _6 X2 ?9 @7 F$ s! U      set pcolor black3 m$ Q1 C1 I2 d: w7 V% B  L5 b1 y
      set energy (energy + 10)
# r: `+ e/ v/ q9 G# p      ]# }, x- X1 r' t# T$ p6 @
    ifelse show-energy?
! S* \3 @; q0 `: F3 l      [ set label energy ]
9 }: S1 h& U7 A! w      [ set label "" ]
% S, w: m! Z5 u/ Q( W: z7 H/ S    ]
9 M) E% v; L) l0 g- Pend& r. v, r6 M, E9 f; P# Q; |2 M$ y0 a
to reproduce9 @4 g# N! X7 q* q6 y  F" R1 L( M
  ask turtles [
% I2 W& P9 |) l) E( [" E    if energy > 50 [" i! w+ A! R( N  L9 o5 A
      set energy energy - 50+ I* j" j; X4 _* l6 M# p* M
      hatch 1 [ set energy 50 ]
$ Z- W$ I6 w. L0 i. k      ]
4 X7 U# ^' f# b    ]: H" t+ _! {8 u1 z
end
3 A9 l( C4 P& h' i+ f1 D. Xto check-death% |$ g/ X' n% G# x6 `% r
  ask turtles [: Y. }2 `- B3 k  I. z
    if energy <= 0 [ die ]- H! Q$ J2 u+ V3 U9 u
    ]
- }; s: J$ c8 ~5 I8 ]% \1 [end0 L' C# G* d! O, H( M2 A0 b
to regrow-grass
; m$ @0 G9 b3 |5 L* m& T  ask patches [* v( ]9 [( ]2 _# ~) H
    if random 100 < 3 [ set pcolor green ]4 u; J3 H. m# n. \- h
    ]6 Y+ \* ?$ H- A  F
end4 v& J% z) ~& v1 `8 ]+ f
to do-plots
8 g1 _! Y2 B+ u" E  set-current-plot "Totals"
$ ]. T; I6 H; ^4 s0 U7 [; k7 U  set-current-plot-pen "turtles"! j3 `* s. v# R2 w' Y
  plot count turtles
( `$ [4 M& v2 O2 S- c. r  set-current-plot-pen "grass"
2 `- R0 {" B: u$ Z: G1 F  plot count patches with [pcolor = green]6 M( G! b8 y5 y- D
end+ O: D$ S- H: b. ^0 A, Q
可是运行时提示no such plot: "Totals"/ C4 a2 [4 v* Y/ S7 V! ]' e, {0 P
error while observer running SET-CURRENT-PLOT
; M' k8 a$ M- P2 Z# _% a  called by procedure DO-PLOTS
  W* L6 }* p  o8 `  called by procedure SETUP6 _: m% j4 t6 ?4 E0 [0 m! j% F
  called by 按钮 'setup'
, b. R- H3 I/ f/ c3 P- o求大神解答啊
发表于 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 2 J) m6 J7 a) e# Y
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-2-17 01:25 , Processed in 0.017715 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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